请大家帮个忙，设计一个倒计时的程序？？

来源：百度知道 编辑：UC知道 时间：2024/09/24 19:14:22
设计一个倒计时程序，窗体上有两个按钮分别为command1和command2，名称分别为“设置”和“开始”，还有一个横滚动条和一个文本框，运行时单击“设置”按钮，弹出inputbox输入对话框，供用户输入倒计时，以分钟为单位，最后点击开始按钮，为本框中显示时间（格式为：时：分：秒） 一秒一秒的倒计，同时滚动条上的滚动块自左向右移动。倒计时结束关闭程序。

Dim i As Integer
Dim a As Double
Dim h, m, s As Integer
Dim T As Double
Private Function TimeDisPlay(n As Double) As String '显示时钟函数
Dim h, m, s As Integer
Dim i As Integer
h = Int(n / 3600)
m = Int((n Mod 3600) / 60)
s = n Mod 60
TimeDisPlay = Format(CStr(h), "00") & ":" & Format(CStr(m), "00") & ":" & Format(CStr(s), "00")
End Function
Private Sub Command1_Click()
a = InputBox("清输入定时分钟数")
T = a * 60 '换算为秒
End Sub

Private Sub Command2_Click()
Slider1.Min = 0
Slider1.Max = T
Timer1.Enabled = True
Timer1.Interval = 1000 '设置计时器为1秒运行一次
End Sub

Private Sub Form_Load()
Slider1.Max = 100
Slider1.Min = 0
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.Text = TimeDisPlay(T)
T = T - 1
i = i + 1
Slider1.Value = i
If T = 0 Then