IF 语句啊!!

假设定义一个全局变量a

用一个TIMER控件监视它

时间内判断
if a 的值变化 then ......

要么你用一个看不见的text 监视
每次 a变化的时候 再后面加一个语句 text1.text=a
a 变化 text1的值必然发生变化 这个时候可以通过text1的 change 事件来判断 了
在text1的 change 事件里直接写你需要的代码

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

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

你这个程序要做什么
你是不是想自动在text上显示数字
好好去看看书
现在跟你说明白了
你还是不懂
你应该了解程序的运行顺序