Question

vb6.0 timer控件 累加的错误 高手们快来帮帮小弟！！！

我要实现 时钟每运行一次 变量a累加0.01 当a=1时 时钟控件停止运行 Public a As Double
Private Sub Command1_Click()
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
a = a + 0.01
If a = 1 Then
Timer1.Enabled = False
End If
Label1.Caption = a
End Sub
为什么啊的累加值会出错！！！不解 请高手指点
public a as double a不是全局变量吗 还是不行

Answer 1

因为a是double类型的，所以要比较它和某个整数的值时，最好限制一下它小数点后的位数，用Round(a,2)限制为两位

把
If a = 1 Then
改成
If Round(a, 2) = 1# Then

Answer 2

把a变成全局变量！！
时钟每运行一次，里面的变量立马释放！