设计一个倒计时的程序

来源：百度知道 编辑：UC知道 时间：2024/05/13 17:44:40
（1）倒计时时间是通过[设置时间]按钮任意设置。
（2）单击[启动时间]按钮开始计时后，转换为[暂停时间]按钮。
（3）单击[暂停时间]按钮开始计时后，又转换为[启动时间]按钮。
（4）单击[停止]按钮停止计时。
窗体上有一个标签，用来显示时间，三个命令按钮，分别是上面的设置、启动、停止。显示的时间格式是：时，分，秒。用VB编写哦，谢了

Dim Ts As Integer, Tm As Integer, Th As Integer
Dim StartT As Boolean

Private Sub Command1_Click()
If StartT = False Then
Command1.Caption = "暂停时间"
Else
Command1.Caption = "启动时间"
End If
StartT = Not StartT
End Sub

Private Sub Command2_Click()
StartT = False
Command1.Caption = "启动时间"
Ts = 0
Tm = 0
Th = 0
End Sub

Private Sub Command3_Click()
Th = Val(InputBox("输入小时"))
Tm = Val(InputBox("输入分钟"))
Ts = Val(InputBox("输入秒"))
End Sub

Private Sub Form_Load()
Command1.Caption = "启动时间"
Command2.Caption = "停止"
Command3.Caption = "设置时间"
Label1.Caption = "0:00:00"
Timer1.Enabled = True
Timer1.Interval = 1000
Ts = 0
Tm = 0
Th = 0
StartT = False
End Sub

Private Sub Timer1_Timer()
If StartT = True Th