Question

vb设计 具体是能够设置倒计的时间,并且能进行倒计时

要求一个COMMAND 一个TEXT 一个FRAME 一个TIMER 注意是可以自己设定的时间 ( COMMAND1.CAPTION=开始 FRAME1.CAPTION=现在开始倒计时
TIMER 的属性有INTERVAL=1000,ENABLE=FALSE) 谢谢大家了 大家尽力而为把!
老师 T=T-1的用意是什么呀?不是很明白!还有老师在Private Sub Command1_Click()
中给了T = T * 3600 我想问在Private Sub Timer1_Timer()中T=T-1中T还是T*3600吗?若不是那H = Int(T / 3600)
M = Int((T Mod 3600) / 60)这些不是很矛盾!本人不是很清楚 若说出什么很可笑的问题希望你见谅!谢谢回答!!

Answer 1

需要一个按钮，点按钮输入倒计时小时数；一个文本框，在文本框里显示倒计时时间
Option Explicit
Dim T As Single
Dim H, M As Integer
Dim S As Single
Private Sub Command1_Click()
Text1 = ""
Timer1.Interval = 0
T = Val(InputBox("请输入倒计时小时数(可以是小数)：", "倒计时", "1.532"))
If T = 0 Then MsgBox "请输入大于0的数！": Exit Sub
T = T * 3600 '将小时数转换为秒
Timer1.Interval = 1
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If T > 1 Then
Timer1.Interval = 1000
T = T - 1
H = Int(T / 3600) '将秒转换成小时，不足一小时去掉
M = Int((T Mod 3600) / 60) '将不足一小时的秒转换成分钟，不足一分的去掉
S = T Mod 60 '取秒中不足小时和分的余数
Text1 = Trim(H) + ":" + Trim(M) + ":" + Trim(S)
Else
Text1 = "时间到！"
Timer1.Enabled = False
End If
End Sub