A. 我是VB菜鳥，請各位大神幫忙解決個問題，如何用VB程序編輯公共電話計費的程序
Dim h, m, s
Private Sub Command1_Click()
Text1.Text = Format(Now, "hh:mm:ss")
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Text3.Text = Format(Now, "hh:mm:ss")
Timer1.Enabled = False
h = 0
m = 0
s = 0
End Sub
Private Sub Form_Load()
h = 0
m = 0
s = 0
End Sub
Private Sub Timer1_Timer()
s = s + 1
If s = 60 Then
m = m + 1
s = 0
End If
If m = 60 Then
h = h + 1
m = 0
End If
Text2.Text = h & "時" & m & "分" & s & "秒"
Select Case Format(Now, "hh")
Case 7 To 19
If m <= 3 Then
Text4.Text = 0.5
Else
Text4.Text = 0.5 + (（m - 3） * 0.15)
End If
Case Else
If m <= 3 Then
Text4.Text = 0.5 / 2
Else
Text4.Text = (0.5 + (（m - 3） * 0.15)) / 2
End If
End Select
End Sub
B. 急！！！VB考試簡單編程
下面是源碼，需要窗體和可執行文件和工程的話 及時聯系我
Private Sub Form_Load()
Text1.Text = "學號 姓名"
Text2.Text = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & Format$(Time, "hh:mm:ss")
End Sub
Private Sub Timer1_Timer()
Form2.Show
Form1.Hide
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowSave
On Error GoTo errorhandle
CommonDialog1.Flags = cdlOFNFileMustExist
strFileName = CommonDialog1.FileName
lngHandle = FreeFile() '取得句柄
'准備要寫入的內容
strWrite = "編號 片名 導演 主演 類別 日期 語言"
For i = 0 To 3
strWrite = strWrite & Chr(13) + Chr(10) & Combo1(i).Text & Chr(9) & Text2(i).Text & Chr(9) & Text3(i).Text & Chr(9) & Text4(i).Text & Chr(9) & Combo2(i).Text & Chr(9) & Text5(i).Text & Chr(9) & Combo3(i).Text & Chr(9)
Next i
'For後面的參數表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入
''''''append是每次在文件末尾寫入,不刪除其它已經存在的文件.如果換成output則刪除其它文件後再寫入
''''''print#1,text1.text ''''''如果print換成write則寫進txt中後自動加雙引號
Open strFileName For Output As lngHandle '打開文件
Print #lngHandle, strWrite '寫入文本
Close lngHandle '關閉文件
errorhandle:
End Sub
Private Sub Command2_Click()
Form4.Show
End Sub
Private Sub Form_Load()
For i = 0 To 3
For j = 0 To 3
Combo1(i).AddItem 1 + j
Next j
Next i
For i = 0 To 3
Combo2(i).AddItem "愛情片"
Combo2(i).AddItem "喜劇片"
Combo2(i).AddItem "懸疑片"
Combo2(i).AddItem "恐怖片"
Next i
For i = 0 To 3
Combo3(i).AddItem "英語"
Combo3(i).AddItem "日語"
Combo3(i).AddItem "法語"
Combo3(i).AddItem "漢語"
Next i
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form2.Show
Form4.Hide
End Sub
Private Sub Text1_Change()
End Sub
C. VB中菜單編輯器怎麼使用啊
在窗體出現的情況下,由VB編程環境的菜單中選工具,在其下拉菜單下選菜單編輯器,然後按如下說明操作:
「菜單編輯器」對話框
使用菜單編輯器可以為應用程序創建自定義菜單並定義其屬性。
對話框選項
「標題」
使用該選項可以輸入菜單名或命令名，這些名字出現在菜單條或菜單之中。
如果想在菜單中建立分隔符條，則應在Caption 框中鍵入一個連字元 (-)。
為了能夠通過鍵盤訪問菜單項，可在一個字母前插入 & 符號。在運行時，該字母帶有下劃線（& 符號是不可見的），按 ALT 鍵和該字母就可訪問菜單或命令。如果要在菜單中顯示 & 符號，則應在標題中連續輸入兩個 & 符號。
「名稱」
允許為菜單項輸入控制項名。控制項名是標識符，僅用於訪問代碼中的菜單項；它不會出現在菜單中。
「索引」
可指定一個數字值來確定控制項在控制項數組中的位置。該位置與控制項的屏幕位置無關。
「快捷鍵」
允許為每個命令選定快捷鍵。
「幫助上下文 ID」
允許為 context ID 指定唯一數值。在 HelpFile 屬性指定的幫助文件中用該數值查找適當的幫助主題。
「協調位置」
允許選擇菜單的 NegotiatePosition 屬性。該屬性決定是否及如何在容器窗體中顯示菜單。
「復選」
允許在菜單項的左邊設置復選標記。通常用它來指出切換選項的開關狀態。
「激活的」
由此選項可決定是否讓菜單項對事件做出響應，而如果希望該項失效並模糊顯示出來，則也可清除事件。
「可視的」
將菜單項顯示在菜單上。
「顯示窗口列表」
在 MDI 應用程序中，確定菜單控制項是否包含一個打開的 MDI 子窗體列表。
「右箭頭」
每次單擊都把選定的菜單向右移一個等級。一共可以創建四個子菜單等級。
「左箭頭」
每次單擊都把選定的菜單向上移一個等級。一共可以創建四個子菜單等級。
「上箭頭」
每次單擊都把選定的菜單項在同級菜單內向上移動一個位置。
「下箭頭」
「下箭頭」
每次單擊都把選定的菜單項在同級菜單內向下移動一個位置。
「菜單列表」
該列表框顯示菜單項的分級列表。將子菜單項縮進以指出它們的分級位置或等級。
「下一個」
將選定移動到下一行。
「插入」
在列表框的當前選定行上方插入一行。
「刪除」
刪除當前選定行。
「確定」
關閉菜單編輯器，並對選定的最後一個窗體進行修改。菜單可以在設計時使用，但在設計時可以通過選定一個菜單，來打開菜單單擊事件的「代碼」窗口，而不是執行事件代碼。
「取消」
關閉菜單編輯器，取消所有修改。