VB中怎么用Timer控件做成自动数123的

来源：百度知道 编辑：UC知道 时间：2024/05/15 17:58:17
源代码
让他自动数123456这样数下去
假如用一个timer控件和一个label控件，label显示数字，如开始是1，隔一秒就是2`````这样一直下去数到100

Dim i As Integer

Private Sub Form_Load()
i = 0
Timer1.Interval = 1000 '设置timer控制的时间
Label1.Caption = i '将i的值显示在label1控制上

End Sub

Private Sub Timer1_Timer()
i = i + 1 '将i的值加上1
Label1.Caption = i
End Sub

dim i

sub Timer()
msgbox i
i=i+1
end sub

用TIMER设置成1秒，到时间自动将LABEL的CAPTION +1就可以实现了~