坐标写进数组变量

X = 1
Do
If X = 1 Then
X = X + 1
ElseIf X = 2 Then
X = X + 1
ElseIf X = 3 Then
X = X + 1
ElseIf X = 4 Then
X = X + 1
ElseIf X = 5 Then
X = X + 1
ElseIf X = 6 Then
X = X + 1
ElseIf X = 7 Then
X = X + 1
ElseIf X = 8 Then
X = X + 1
ElseIf X = 9 Then
End If
Loop Until X = 9

Sub 循环遍历数组()
Dim i,axisX,axisY
i = 0
axisX = Array(100, 200, 300, 400, 500, 600, 700, 800, 900)
axisY = Array(150, 250, 350, 450, 550, 650, 750, 850, 950)
Do
......
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, axisX(i), axisY(i))
Delay 100
......
i = i + 1
Loop Until i = 10
Delay 100
End Sub

这个够明白了吧

好像挺好的，我要慢慢研究一下，先谢谢你了。

大家帮我看看为什么不动的？那里错了？