Question

VB计时器累加问题

Sub timer1_time()
a=a 1
print a
end sub
interval属性设为1000,但窗口输出的都是11111111,为什么不是123这样累加下去？

Answer 1

Private Sub Timer1_Timer()
Static a As Integer '没有这行，a每次都会初始化为0a = a + 1Debug.Print a
End Sub '也可以把a 定义在过程外dim a as integer Private Sub Timer1_Timer()a = a + 1 Debug.Print a
End Sub

Answer 2

Sub timer1_time()
a=a +1
print a
end sub

Answer 3

a要么全局 要么定义成static a as integer 否则肯定一直是1