那位大虾帮帮我啊 ～～～～～～


有急用啊 ～

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

帮我看看这个程序,怎么运行不出来啊