vb编一程序，在窗体中放置一个大大的标签，显示倒计时共10秒，时间到后，在标签中显示“时间到了”

比如标签名为label1 设置caption属性为 10
放入一个timer控件 间隔设置为1000 也就是1秒
然后在timer控件的事件中写如下代码

label1.caption = label1.caption -1
if label1.caption="0" then
timer1.enable=false
label1.caption="时间到了"
end if

form1的public部分
dim a as integer'在窗体通用部分声明一个变量a
a=11'初始化a的值

在timer1(时间间隔1000)的change事件中：
if a=0 then
label1.caption="时间到了"
else
a=a-1
label1.caption=a
end if
嘎嘎

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.FontSize = 15
Label1 = 10
End Sub

Private Sub Timer1_Timer()
Label1 = Val(Label1) - 1
If Val(Label1) = 0 Then
Label1 = "时间到"
Timer1.Enabled = False
End If

End Sub

Option Explicit
Dim i
Private Sub Command1_Click()
i = 10
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = i
If i = 0 Then
Label1.Caption = "时间到了"
Timer1.Enabled = False
End If
i = i - 1
End Sub

支持 changyanfeng