VB timer问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 09:10:08
怎么让 timer控件只运行3次循环啊？？
gage_gao 的答案 当循环3次以后 再循环I就成4 5 6 ……然后不停止了！

Dim i As Integer

Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = i
If i = 3 Then Timer1.Enabled = False
End Sub

Dim TimerNum As Integer

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

Private Sub Timer1_Timer()
TimerNum = TimerNum + 1
If TimerNum > 3 Then
Exit Sub
End If
Print "已循环运行了" & TimerNum & "次"
End Sub