vb 為什麽timer還是會執行

Private Sub Timer1_Timer()

If a < 5 Then

Dim b As New Form2

b.Label1.FontSize = 50

b.Label2.FontSize = 25

b.Show

a = a + 1

Else

Form1.Timer1.Enabled = False

End If

End Sub

這裏的a是局部變量，每次end sub之後就沒有了，每次進入timer以後都會重新定義變量a，這樣a永遠=0，所以永遠不會到else裏面，應該是這樣：

Private?Sub?Command1_Click()

Form1.Timer1.Enabled?=?True

End?Sub

Private?Sub?Form_Load()

Form1.Label1.FontSize?=?16

a?=?0

End?Sub

Private?Sub?Timer1_Timer()

timer1.enable=false?'壹進來先停Timer

If?a?<?5?Then

Dim?b?As?New?Form2

b.Label1.FontSize?=?50

b.Label2.FontSize?=?25

b.Show

a?=?a?+?1

timer1.enable=true‘需要的時候再啟用timer

End?If

End?Sub