UC知道VB 问题 （如何写这个代码？）
来源：百度知道 编辑：UC知道 时间：2024/08/20 13:58:12
编写倒计时程序：（要求）
1.通过inputbox对话框输入倒计时时间（以分钟为单位）
2.当倒计时时间到达 00：00：00时，停止计时并且提示时间到
（在显示到计的时间）
注：在 from1里有3个命令键（分别是设计倒计时；启动倒计时；结束）， 一个标签（倒计时时间显示在上面）
1.通过inputbox对话框输入倒计时时间（以分钟为单位）
2.当倒计时时间到达 00：00：00时，停止计时并且提示时间到
（在显示到计的时间）
注：在 from1里有3个命令键（分别是设计倒计时；启动倒计时；结束）， 一个标签（倒计时时间显示在上面）
Option Explicit
Dim Tm, HH, MM, SS
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub
Private Sub Command1_Click()
Tm = InputBox("请输入起始时间：(时:分:秒)")
HH = Mid (Tm,1,2)
MM = Mid (Tm,4,2)
SS = Mid (Tm,8,2)
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
SS = SS + 1
If SS >= 60 Then SS = 0 : MM = MM + 1
If MM >= 60 Then MM = 0 : HH = HH + 1
End Sub