如何真正退出VB6的FOR循环？请教前辈我的问题出在什么地方。

假设实现鼠标点击和移动都无误

Dim a As Integer
If intX > 0 And intY > 0 And FX >1  And jE > 1  Then
a =JE
For i = 1 To a Step 1
a = a + 1'(不是就点a次,为什么要加1)
If i <= a Then(为什么还要判断i比a小点击?i在1~a中循环,一直比a小,a在循环过程中改变,不影响i还是1~原先的a)
dm_ret = dm.LeftClick  '鼠标左键单击JE次（如果JE=9，就是点击9次。）
End If
Sleep 50
Exit For(为什么要用exit for ?点击过程中有跳出JE的需要?)
Next i
dm.MoveTo 520, 653 '移动鼠标到位置：920, 653
End If

改了试试
Dim a As Integer
If intX > 0 And intY > 0 And FX >1  And jE > 1  Then
a =JE
dm.MoveTo 520, 653 '移动鼠标到位置：920, 653
For i = 1 To a Step 1
dm_ret = dm.LeftClick  '鼠标左键单击JE次（如果JE=9，就是点击9次。）
Sleep 50
Next i
End If