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