请VB高手进入,本人有一难题

来源：百度知道 编辑：UC知道 时间：2024/09/28 08:06:15
编写一个秒表工作程序,程序运行后,单击开始按纽,该按纽变灰(不可用),在上面的标签中显示开始时间.等一会儿,单击结束按纽;该按纽变灰,同时开始按纽可用,并在中间标签中显示停止时间,在下面的标签中显示经过的时间.

凑个热闹,刷2分;

Dim starttime As Long
Private Sub Command1_Click()
starttime = Timer
Label1.Caption = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Label3.Caption = Int(Timer - starttime) & "秒"

End Sub

Private Sub Command2_Click()
starttime = Timer
Timer1.Enabled = False
Label2.Caption = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False

End Sub

Private Sub Timer1_Timer()
Label3.Caption = Int(Timer - starttime) & "秒"
End Sub

添加两个按扭控件：
按扭1的name和caption为开始
按扭2的name和caption为结束
添加一个label控件，名称为label1

Timer：这里的Timer不是控件，而是一个函数，这个函数返回的值是从0点整开始到目前所经过的时间，单位为秒。
所有程序代码如下：

Public Tmb As Double '按下开始按扭时Timer的值
Publi