Question

急！vb编程题。vb高手帮下忙。

设计一个倒时器，当在文本框中输入一个分钟数，单击命令按钮就开始倒记时，在倒记事结束时出现信息框“记时到！”的提示。谢谢！！！

Answer 1

Private Sub Command1_Click()
Dim intTime As Integer
intTime = Val(Text1.Text) * 60
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = intTime - 1 '按秒开始倒计时
If intTime = 0 Then
Timer1.Enabled = False
MsgBox "记时到！"
End If
End Sub

Answer 2

Private Sub Form_Load()
Text1.text = "00:10:00"
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.Text = CDate(Text1.text) - 1 / 24 / 60 / 60
if Cdate(text1.text) =0 then msgbox "记时到！"
End Sub