VB Timer 的问题 (等，在线等！！！)

来源：百度知道 编辑：UC知道 时间：2024/09/28 11:20:09
我想做个东西，比如说，
间隔1000毫秒，Command1.Caption = "xxxx(10)"
再间隔1000毫秒，Command1.Caption = "xxxx(9)"
再间隔1000毫秒，Command1.Caption = "xxxx(8)"......
最好能帮我写个简单的程序看看。在线等~

dim n as integer

private sub form_load()
n=10
end sub

private sub timer1_timer()
Command1.caption = "xxx" & n
n = n - 1
if n < 0 then timer1.enabled=false
end sub

Dim a As Integer
Private Sub Form_Load()
a = 11
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a = a - 1
Command1.Caption = "XXXX" & "(" & a & ")"
If a <= 0 Then a = 11
End Sub