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 子窗体列表。
“右箭头”
每次单击都把选定的菜单向右移一个等级。一共可以创建四个子菜单等级。
“左箭头”
每次单击都把选定的菜单向上移一个等级。一共可以创建四个子菜单等级。
“上箭头”
每次单击都把选定的菜单项在同级菜单内向上移动一个位置。
“下箭头”
“下箭头”
每次单击都把选定的菜单项在同级菜单内向下移动一个位置。
“菜单列表”
该列表框显示菜单项的分级列表。将子菜单项缩进以指出它们的分级位置或等级。
“下一个”
将选定移动到下一行。
“插入”
在列表框的当前选定行上方插入一行。
“删除”
删除当前选定行。
“确定”
关闭菜单编辑器，并对选定的最后一个窗体进行修改。菜单可以在设计时使用，但在设计时可以通过选定一个菜单，来打开菜单单击事件的“代码”窗口，而不是执行事件代码。
“取消”
关闭菜单编辑器，取消所有修改。