我想用VB做一个程序，请看要求给出代码

我想做一个倒计时程序，倒数完后会显示一个对话框。

Dim a
Private Sub Form_Load()
Timer1.Interval = 1000 '设定1秒一次
a = 10 '设定从10开始倒数
End Sub

Private Sub Timer1_Timer()

a = a -1
label1.caption=a

if a = 0 then

msgbox "时间到"

'若想时间到达后，停止倒时，则添加时间控件的取消代码

'若想时间到达后，返回继续倒时，则在赋值a变量时，将a变量继续赋值到另一个变量，然后到这里将a变量等于之前赋值的变量

end if
End Sub

如果还没找到合适的，请找我

Private Sub Form_Load() Timer1.Interval = 1000 '1秒 Label1.Caption = 10 '初始值为10 End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 '每1秒减1 If Label1.Caption = 0 Then '等于0时 MsgBox "时间到", , "提示" '弹出消息框 Timer1.Enabled = False '停止时钟 End If '判断结束 End Sub

Dim a Private Sub Form_Load() Timer1.Interval = 1000 '设定1秒一次 a = 10 '设定从10开始倒数 End Sub

Private Sub Timer1_Timer() For i = 1 To a '循环 a = i - 1 Label1.Caption = a Next '退出循环 If Label1.Caption = 0 Then Print "时间到" End If End Sub