这个vb程序中周期性地做一件事错在哪里
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,总是起始值.程序错在哪里呢?