求 VB 10秒倒计时代码

给我一个vb编程10秒倒计时器。~

Dim i As Integer
Dim j As Integer

Private Sub Command1_Click()
i = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If i > 0 Then i = i - 1
Text1.Text = i
End Sub

Option Explicit

Dim x As Integer

Private Sub Form_Load()
x = 10
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
x = x - 1
Text1.Text = x
If x = 0 Then Timer1.Enabled = False
End Sub

一个文本控件text1显示倒计时 一个定时器控件定时，一个按钮控件触发倒计时事件
Dim i As Integer '全局变量

Private Sub Command1_Click()
Text1.Text = 10 '文本初始值10
Timer1.Enabled = True '开定时器
Timer1.Interval = 1000 'MS单位
i = 10 ' i赋初始值
End Sub

Private Sub Form_Load()
Text1.Text = "" '文本初始值空值
End Sub
Private Sub Timer1_Timer()
i = i - 1 '每到1s响应定时器，响应次数+1
Text1.Text = i
If i = 0 Then
Timer1.Enabled = False '关定时器
End If
End Sub

Dim test As Long
Private Sub Form_Load()
Timer1.Interval = 1000
test = 10
Text1.Text = ""
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.Text = test
test = test - 1
If Text = 0 Then
Timer1.Enabled = False
'到时间处理的事件
End If
End Sub

加入一个TIMER，设置INTERVAL为1000

OPTION EXPLICT
DIM LNGSECOND AS LONG

PRIVATE SUB FORM_LOAD
LNGSECOND = 10
TEXT1.TEXT = "开始倒数"
END SUB

PRIVATE SUB TIMER_TIMER
IF LNGSECOND = 0 THEN
TIMER.ENABLED = FALSE
EXIT SUB
ELSE
TEXT1.TEXT = LNGSECOND
LNGSECOND = LNGSECOND - 1
ENDIF
END SUB

Option Explicit
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static m
m = m + 1
Text1.Text = "剩余" & 11 - m & "秒"
If m = 11 Then MsgBox "时间到!": Timer1.Enabled = False
End Sub

---

锡林郭勒盟13442715657： vb 倒计时10秒钟 - ？
致肩妇舒： Option Explicit Dim x As Integer Private Sub Form_Load() x = 10 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() x = x - 1 Text1.Text = x If x = 0 Then Timer1.Enabled = False End Sub

锡林郭勒盟13442715657： 给我一个vb编程10秒倒计时器. - ？
致肩妇舒： Dim i As Integer Dim j As Integer Private Sub Command1_Click() i = 10 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() If i > 0 Then i = i - 1 Text1.Text = i End Sub

锡林郭勒盟13442715657： 用vb做10秒倒计时的程序,要简单的 - ？
致肩妇舒： Private Sub Form_Load() Text1.Text = 10 End Sub Private Sub Timer1_Timer() Text1.Text = Val(Text1.Text) - 1 If Val(Text1.Text) = 0 Then Timer1.Enabled = False End If End Sub

锡林郭勒盟13442715657： 倒计时钟 - vb倒计时钟设计一个倒计时的时钟单击命令按钮,从10秒开始每1秒 ？
致肩妇舒： 打开VB ,在form1 上放置一下command、label1和一个timer 控件 输入以下代码 Dim ts As Integer Private Sub Command1_Click() ts = 10 Label1.Caption = 10 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ts = ts - 1 Label1.Caption = ts If ts = 0 Then Label1.Caption = ＂开始＂ Timer1.Enabled = False End If End Sub

锡林郭勒盟13442715657： VB怎么制作倒计时10秒到0秒跳出信息框 - ？
致肩妇舒： Dim i As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False End SubPrivate Sub Timer1_Timer() Label1.Caption = 10 - i i = i + 1 If i > 10 Then i = MsgBox(＂10秒倒计时结束＂) i = 0 End If End Sub 您的认可 就是对我最大的支持

锡林郭勒盟13442715657： 怎样用VB设计一个倒计时程序? - ？
致肩妇舒： 设置的倒计时时间是知怎么样的格式?X天X分X秒?还是X秒?以道下以X秒为例(天数等可以转换为秒数再回倒计时),添答加Text1以输入倒计时秒数,添加Timer1:Dim starttime As Single Private Sub Command1_Click()If Text1.Text <> ＂＂ ...

锡林郭勒盟13442715657： 求一个1小时倒计时VB程序代码 在线等! - ？
致肩妇舒： 添加一个timer,一个form 代码如下 dim delay as integer private sub timer1_timer() me.cls if delay>0 then delay=delay-1 else form2.show timer1.enable=false end if me.print ＂还有＂ & delay & ＂秒.＂ end sub private sub form_load() timer1.interval=1000 timer1.enable=true me.autoredraw=true end sub

锡林郭勒盟13442715657： 用vb做倒计时器,怎样在最后10秒发出警示音 - ？
致肩妇舒： if 倒计时

锡林郭勒盟13442715657： 求vb倒计时10秒后执行ntsd - c q - pn 进程.exe,求各位好心大神帮忙. - ？
致肩妇舒： ntsd命令在win10系统中已经不能使用了,这里使用的命令是zdtaskkill.如果你可以使用ntsd命令的话,只需将代码稍加修改即可.添加一个timer控件.代回码如下.Private Sub Form_Load()'可以在需要的事件里面激活计时器而不一定是在加...

锡林郭勒盟13442715657： 一个VB倒计时程序 - ？
致肩妇舒： '在vb窗口上加入Label1,timer1,command1,然后在代码窗口写入以下代码. Dim S, M, H Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Label1.Caption = ＂0:02:00＂ 'Label1....