Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "0"
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
Beep
End Sub
定义模块级变量tm
按开始：
tm=timer
text1.text=now()
按结束：
text1.text=now()
text2.text=timer-tm
'开始到结束持续时间
设个timer控件
timer1_timer
text1.text=now()
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024