分类：电脑/网络-软件
问题：VB中怎样是文本框中显示当前时间？比如怎样设计一个自动电话计费器 
比如怎样 一个自动电话计费器？要求显示通话开始时间和结束时间。
回答：通话开始时间：text1.text=time()通话计时：先添加一个timer控件，然后把interval属性设为1000，这样就可以计时了可以这样：添加2个command控件用来做开始计时和结束的控制按钮，把command1的caption命名为 通话，command2命名为 挂断，enabled设为false，把timer的enabled属性设为false，interval属性设为1000代码如下：Dim a,b,c As Integer '定义全局变量Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.Text = Time '通话的开始时间Timer1.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Form_Load()a = 0b = 0c = 0End SubPrivate Sub Timer1_Timer()Text2.Text = Time '这个用来显示现在时间'下面的是显示通话计时a = a + 1If a >= 60 Thena = 0b = b + 1If b >= 60 Thenb = 0c = c + 1End IfEnd IfIf a < 10 And b < 10 And c < 10 ThenText3.Text = "0" & c & ":0" & b & ":0" & aElseIf c < 10 And b < 10 ThenText3.Text = "0" & c & ":0" & b & ":" & aElseIf c < 10 And a < 10 ThenText3.Text = "0" & c & ":" & b & ":0" & aElseIf a < 10 And b < 10 ThenText3.Text = c & ":0" & b & ":0" & aElseText3.Text = c & ":" & b & ":" & aEnd IfEnd Sub还有什么地方不懂的可以发消息给我