vb中倒计时的设计并在窗体中显示出来（比如100秒）

vb中倒计时的设计并在窗体中显示出来（比如100秒）

在窗体上画两个label控件，一个Command控件，一个Timer控件，代码如下：Dim Time_Num As Double '定义用于用户输入定时的初始值
Private Sub Command1_Click() '开始定时按钮
If Command1.Caption = "倒计时开始" Then '判断是否为开始，是则提示输入初始值，同时将按钮改成停止
Time_Num = InputBox("请输入倒计时起始值", "定初始值")
Command1.Caption = "停止"
Label1.Caption = "你预定的初始值为：" & Time_Num & "秒" '在label1中显示你的初始值
Timer1.Enabled = True '开始时间控件
Else
If Command1.Caption = "停止" Then '否则判断是否为停止按钮

Command1.Caption = "倒计时开始" '是的话则更改按钮为倒计时开始
Timer1.Enabled = False '停止时间控件
End If
End IfEnd SubPrivate Sub Form_Load() '初始化一些控件信息
Command1.Caption = "倒计时开始"
Timer1.Interval = 1000
Timer1.Enabled = False
Label1.Caption = ""
Label2.Caption = ""
End SubPrivate Sub Timer1_Timer() '时间控件事件，1秒中触发一次
Time_Num = Time_Num - 1
If Time_Num = 0 Then
Timer1.Enabled = False
Label2.Caption = "倒计时完成"
Else
Label2.Caption = "倒计时还剩下：" & Time_Num & "秒"
End If
End Sub

创建2个command按钮，1个timer控件

command1的caption属性改为“开始”

command2的caption属性改为  “停止”

dim a private sub command1_click() a = inputbox("输入到记时的时间")     timer1.interval = 1000 end sub

private sub command2_click() timer1.interval = 0 end sub

private sub timer1_timer() a = a - 1 form1.cls print a end sub