定义了若干个sub子程序a1至a6,在一个for循环中需要依次执行子程序a1至a6
运行正常,想进一步优化、简短一下代码
在for循环中,在嵌套一个循环,以实现缩减代码
原代码类似与如下:
for 6
call a1
call a2
call a3
call a4
call a5
call a6
i++
next
优化后希望得到如下代码并能正常运行:
for 6
for 6
call aj
j++
next
i++
next
相关代码截图:
for循环内部分代码:
子程序a1代码,其他类似
i = 0
d = 1
For t
For 7
Call rw
i = i + 1
d = d + 1
Next
Next
Sub rw
Select Case i
Case 0
Call xjrw
Call a
Call a1
Call b1
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case 1
Call xjrw
Call a
Call a2
Call b2
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case 2
Call xjrw
Call a
Call a3
Call b3
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case 3
Call xjrw
Call a
Call a4
Call b4
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case 4
Call xjrw
Call a
Call a5
Call b5
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case 5
Call xjrw
Call a
Call a6
Call b6
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case 6
Call xjrw
Call a
Call a7
Call b7
Call qysz
MoveTo 842, 652
Delay 100
LeftClick 1
Case Else
//否则
End Select
End Sub