求设计计时器的vb程序代码

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:35:41
界面要求：
* 使用一个标签、两个命令按钮、一个时钟控件完成。
* 运行要求：
* 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒；
* 2、点击“结束计时”按钮，停止计时。
* 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。
* 计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用

Private sss As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10

Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
sss = sss + 1
hh = Format(Int(sss / 360000), "00")
mm = Format(Int((sss - 360000 * hh) / 6000), "00")
ss = sss Mod 6000
Label1.Caption = hh & ":" & mm & ":" & Format(sss / 100, "00.00")
End Sub