Dim t As Long
Dim i As Integer
Private Sub Timer1_Timer()
i = i + 1
End Sub
Private Sub Form_Load()
Dim a As Variant
Dim c As Integer

t = a
a = i
If a <> t Then
c = c + 1
Text2.Text = c
End If
End Sub

我想让当a的值发生变化时,c的值自动加1
运行后没反映
不知道问题在哪

Dim Value As Long ,Counter as long
Dim OldValue As long

Private Sub Timer1_Timer()
If Value <> OldValue Then
Counter = Counter + 1
OldValue = Value
end if
End Sub

Private Sub Form_Load()
Value = 0
OldValue = 0
Counter = 0

......
End Sub

至于你的代码 毫无逻辑可言