Question

设计一个倒数计时器，在文本框中输入分钟数就开始计时，在计时结束后，出现信息框“时间到！”的提示。

Answer 1

添加一个文本框和时间控件 然后把下面的代码复制到一个新的VB工程中 Dim minute As Integer Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then minute = Val(Text1.Text) * 60 Timer1.Enabled = True Text1.Enabled = False End If End Sub Private Sub Timer1_Timer() minute = minute - 1 Text1.Text = "倒计时:" & minute If minute <= 0 Then MsgBox "时间到" Timer1.Enabled = False End If End Sub