如何在vb中的Text1中显示“还剩下n秒”（n代表100~0的各个数）

Question

每过一秒显示下一个

Answer 1

需要一个Timer1控件：

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

Private Sub Timer1_Timer()
Static t As Integer
If t = 0 Then
t = 100
ElseIf t = 1 Then
Text1.Text = "时间到"
t = 0
Timer1.Enabled = False
Exit Sub
Else
t = t - 1
End If
Text1.Text = "还剩下" & t & "秒"
End Sub

Answer 2

private sub form_load()
dim n as integer
n=10
timer1.interval=10000
end sub
private sub timer1_timer()
n=n-1
text1.text="还剩下" & n & "秒"
end sub

Answer 3

--------------------------------------------------------------
'倒计时2分钟
dim withevents tim as timer
dim t%
sub form_load()
t=2*60 '2为倒计时分钟，t为倒计时秒钟。
me.fontsize=40 '设置窗体字体大小
set tim=controls.add("vb.timer","tim") '添加计时器
tim.interval=10 '10毫秒时间间隔，刷新一次时间
tim.enabled=true '启动计时器
end sub
sub tim_timer()
static i%,j% 'i为刷新次数，j为倒计时毫秒数
if i=100 then i=0 '100次*10毫秒=1秒钟，让它1秒钟后归零
if j=0 then t=t-1 '完成一次毫秒倒计时,倒计时秒-1
if t=0 then
tim.enabled=false '倒计时时间到，关闭计时器
controls.remove tim '删除计时器
set tim=nothing '释放内存空间
msgbox "时间到！" '弹出时间到提示
end if
me.cls '清除窗体内容
print t\60 & ":"& t mod 60 & ":" & j '打印倒计时时间到窗体
i=i+1 '刷新次数自加1
j=100-i '无话可说
end sub

Answer 4

先是要拉一个时钟控件：Timer1
然后根据你的需要，是formload的加载窗体的时候执行，还是使用按钮command1触发运行
然后在timer1里面写入你程序。

Answer 5

Dim t As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
t = 100
text1.text="总时间100秒"
End Sub

Private Sub Timer1_Timer()
t = t - 1
Text1.Text = "还剩下" & t & "秒"
If t = 0 Then
MsgBox ("时间到")
Timer1.Enabled = False
End if
End Sub

Answer 6

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Text1.Text = 100
End Sub

Private Sub Timer1_Timer()
Static i As Long
i = Val(Text1.Text) - 1

Text1.Text = "还剩下" & i & "秒"

If i = 0 Then Timer1.Enabled = False

End Sub