Почему в переменой Action остается 1? - VB

Формулировка задачи:

Скажите plsss где ошибка ???

Timer1.Enabled = True 
Timer1.Interval = 500 
 
Private Sub Timer1_Timer()
Dim Action As Integer
If Action = 0 Then
Action = 1
Else
Action = Str(Action + 1)
End If
End Sub

Почему в переменой Action остаются 1 ???

Решение задачи: «Почему в переменой Action остается 1?»

textual
                            Листинг программы 
                        

                            Private Sub Timer1_Timer()
Static Action As Integer
Action = Action + 1
End Sub
                        

Оцени полезность:

6 голосов , оценка 3.833 из 5

Похожие ответы