求助一道关于时钟的问题

题目

求助一道关于时钟的问题
窗体上添加一个计时器和一个label1,计时器每秒触发一次,label1上显示数字为5,设计使得程序运行时,标签label1显示的数字按每秒递减1,当显示为“0”时,倒计时停止.

答案

你看下,是不是要这样子：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
If Label1.Caption = "0" Then
Timer1.Enabled = False '或 Timer1.Interval = 0
End If
End Sub
主要用计时器的Enabled和Interval两个属性.