sostudy 2022-04-20 12:55
浏览 110
已结题

按键精灵 能不能实现若干个Sub 子程序的循环调用?(语言-按键精灵)

问题遇到的现象和发生背景

定义了若干个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循环内部分代码:

img

子程序a1代码,其他类似

img

  • 写回答

1条回答 默认 最新

  • sostudy 2022-04-20 19:38
    关注

    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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 4月28日
  • 已采纳回答 4月20日
  • 创建了问题 4月20日

悬赏问题

  • ¥15 用matlab 设计一个不动点迭代法求解非线性方程组的代码
  • ¥15 牛顿斯科特系数表表示
  • ¥15 arduino 步进电机
  • ¥20 程序进入HardFault_Handler
  • ¥15 oracle集群安装出bug
  • ¥15 关于#python#的问题:自动化测试
  • ¥20 问题请教!vue项目关于Nginx配置nonce安全策略的问题
  • ¥15 教务系统账号被盗号如何追溯设备
  • ¥20 delta降尺度方法,未来数据怎么降尺度
  • ¥15 c# 使用NPOI快速将datatable数据导入excel中指定sheet,要求快速高效