UC知道vb问题请教，设计倒记时（书上的）但我有点看不懂~~
来源：百度知道 编辑：UC知道 时间：2024/06/19 08:10:44
Dim t As Integer
Sub command1_click()
t = 60 * Val(Text1.Text)
timer1.Enabled = True
End Sub
Sub timer1_timer()
Dim m, s As Integer
t = t - 1
m = Int(t / 60)
s = t Mod 60
label1.Caption = m & "分" & "s" & "秒"
If t = 0 Then
timer1.Enabled = False
MsgBox ("时间到!")
End If
End Sub
★就是下面这小段
t = t - 1
m = Int(t / 60)
s = t Mod 60
Sub command1_click()
t = 60 * Val(Text1.Text)
timer1.Enabled = True
End Sub
Sub timer1_timer()
Dim m, s As Integer
t = t - 1
m = Int(t / 60)
s = t Mod 60
label1.Caption = m & "分" & "s" & "秒"
If t = 0 Then
timer1.Enabled = False
MsgBox ("时间到!")
End If
End Sub
★就是下面这小段
t = t - 1
m = Int(t / 60)
s = t Mod 60
在时间控件里面..
每个时间段
t-1
m赋值t/60的整数
s赋值t 和60的模
整个程序的意思就是.
你给text控件一个值比如是10
那么t=60*10=600
t在时间控件里面每次减1作为运算是否倒计时到了最后
m=int(t/60)'意思是 比如600/60就是10分钟 599/60 取整数就是9分钟
s=t mod 60 '取模 比如600 mod 60 就是0秒 599 mod 60 就是59秒这样来产生秒数
t 是秒，timer每一秒钟执行一次，所以每一秒钟减去1，int(t/60)得到分，s 是取余函数。比如t 是80 算完后m就是1，s就是20.就得1：20
1