Question

求vb计时器编程代码

编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，运行程序后，在标签内显示经过的秒数，并响铃

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "0"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
Beep
End Sub

Answer 2

定义模块级变量tm
按开始：
tm=timer
text1.text=now()
按结束：
text1.text=now()
text2.text=timer-tm
'开始到结束持续时间
设个timer控件
timer1_timer
text1.text=now()