Question

VB倒计时程序

编写一个倒计时程序，实时显示倒计时时间，当时间地见到零，弹出一个消息框[使用Timer控件]

Answer 1

很简单的，我这的代码有注释。你需要添加一个Timer控件，不需要改名，然后把下面的代码放进去。运行试试，不知道合不合你心意。 Dim X As Integer
Private Sub Form_Load()
Me.AutoRedraw = True '永久性显示
X = 10
Print "倒计时" & Str(X) & "秒" '在窗体上显示文字
Timer1.Enabled = True '使时间控件可用，默认时为True。所以可用把这句删掉
Timer1.Interval = 1000 '设置间隔时间为 1000毫秒
End SubPrivate Sub Timer1_Timer()
Cls '清除运行时窗体所生成的图形和文本
X = X - 1 '计算，每次减1
Print "倒计时" & Str(X) & "秒" '在窗体上显示文字
If X = 0 Then
MsgBox "时间已到！", , "提示"
Timer1.Enabled = False '使时间控件不可用
End If
End Sub

Answer 2

在timer世间里面编写就好了啊
Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
a = 30
b = 0
Text1.Text = "30:00"
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
b = b - 1
If b < 0 Then
a = a - 1
b = 59
End If
If a < 0 Then msgbox “时间到”
If a < 10 Then
If b < 10 Then
Text1.Text = "0" & a & ":0" & b
Else
Text1.Text = "0" & a & ":" & b
End If
Else
If b < 10 Then
Text1.Text = a & ":0" & b
Else
Text1.Text = a & ":" & b
End If
End If
End Sub
这里倒计时间是半小时。你自己看看，修改下。

Answer 3

Dim a As Integer
Private Sub Command1_Click()
Label1.Caption = ""
a = 11
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = a - 1
Label1.Caption = a
If Label1.Caption = 0 Then
Timer1.Enabled = False
MsgBox "时间已到"
End If
End Sub