这个vb程序中周期性地做一件事错在哪里

[hkdavis]

Private Sub Form_Load()
Timer1.Interval = 60000 '间隔为60秒，使num值增加1

Timer1_Timer '调用事件，num增加
End Sub

Private Sub Timer1_Timer()
Dim num As Integer
num = 1
Static sngOldTime As Single

Dim sngt As Single
sngt = Timer
'开始于8:00钟
If sngt >= 8 * 3600! Then
'不超过20：00钟

If sngt < 20 * 3600! Then

If Abs(sngt - sngOldTime) > 60 Then

exec '每隔一分钟，调用一次过程，num加1

End If
End If
End If
End Sub

Sub exec()
num=num+1
label1.Caption=num
End Sub

结果label1显示的数据num并没有增加1，总是起始值.程序错在哪里呢？

[leslielu]

在外面定义你的NUM。里面是私有的。每次从新建立。
在所有的程序外定义！

[liyang]

您的num定义在timer事件内，在exec中的num永远是0啦！

[liyang]

您的num定义在timer事件内，不是全局量。在exec中的num永远是0啦！