VB倒计时怎么做
Dim i As Integer
Private Sub Command1_Click() (计时器开始工作)
( ? )
End Sub
Private Sub Timer1_Timer()
i = （ ？ ）
If i > 0 Then
（ ？ ）
else
label1.caption="时间到"
（ ？ ）
（ ？ ）
end if
End Sub
求？里面怎么填，窗体上只有一个标签，命令按钮，和计时器
1、首先，建立一个工程，并在窗口中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，再添加一个计时器控件，并且添加一个文本框，将界面设置成如下图所示。
2、将文本框的Text里的属性清空干净，再把字体Font的属性调整成为小四，方便接下来的观察，一定记得把背景色属性Backcolor调为浅黄色。
3、接下来，双击“设置倒计时”命令这个按钮，就会进入到代码编辑窗口，输入如图所示代码：
4、接着双击“启动倒计时”命令这个按钮，接下来会进入代码编辑窗口，再输入如下图所示代码：
5、再接着双击“计时器”控件，然后进入代码编辑窗口，输入如图所示代码：
6、在代码编辑窗口的通用段进行这三个变量的定义：Dim h As Integer, m As Integer, s As Integer '分别存储这三个量时、分、秒，如下图所示。
7、最后再双击窗体，然后就会进入代码编辑器，在 Form_Load事件中写入代码，代码如下图红框所示：
8、接着关闭代码窗口，按一下F5运行程序，再单击“设置倒计时”这个命令按钮，这时候就会弹出一个输入对话框，一定要记得此时输入分钟数，数字为1，然后确定，如图所示：
9、最后一定要单击“启动倒计时”这个命令按钮，然后文本框就会显示倒计时时间，并会不断地变动，这个时候你就可以看见时间在变动，这就是实现了倒计时功能，如图所示：
扩展资料：
使用VB倒计时设置计时参数5X60=300秒，然后设置定时器1S中断.当计时器为0就是5分钟，将计时器参数显示在文本框中就可以了。这个题目需要使用计时器控件，所以计时器的控件的Timer事件以及Enable属性、Interval属性需要熟知。
Dim i As Integer
Private Sub Command1_Click() '(计时器开始工作)
Command1.enabled=false'倒计时开始了，此按钮不能再次点击
Timer1.Enabled = True ’开始计时
Timer1.Interval = 1000 ‘一秒一刷新界面
i=60 '要倒计时的时间 ，此例假设为60秒，你可实际更改
End Sub
Private Sub Timer1_Timer()
i = i-1 ’递减
If i > 0 Then
Label1.Caption = "剩余" & i & "秒"
else
label1.caption="时间到"
timer1.enabled=false ‘停止计时
Command1.Enabled = True ’按钮可用
end if
End Sub
张志晨：仅供参考。
来自：求助得到的回答用Timer控件，.Interval设置触发时间，再定义一个全局变量用于计数即可，示例：
Dim js As LongPrivate Sub Form_Load()
Timer1.Interval = 1000 '1秒触发一次
Label1 = ""
js = 10
End Sub
Private Sub Timer1_Timer()
If js = 0 Then End
Label1 = "倒计时：" & Val(js) & "秒后关闭"
js = js - 1
End Sub
Private Sub Command1_Click() '(计时器开始工作)
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i < 10 Then '10秒
Label1.Caption = "剩余" & 10-i & "秒"
else
Label1.Caption = "时间到"
i = 0
Timer1.Interval = 0
End If
End Sub本回答被网友采纳
i = 10 ' 改成你想要倒计时的次数
第二空：i = i - 1
第三空：label1.caption = "还剩:" & i & "秒"
第四空：timer1.enable = false
另外需要设定Timer1的Interval属性为1000，即1秒钟执行一次Timer事件。