求助一个循环的问题

piazi666 · 发表于 2019-2-13 00:20:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Sub aaaa()
Sub bbbb()
Sub cccc()
Sub dddd()

我有4个子程序，如何叫它们乱序依次执行完毕？
o(︶︿︶)o 期待高手回答

紫猫 · 发表于 2019-2-13 09:48:21

这是随机某个的例子, 如果要全随机, 你可以用紫猫插件的获取不重复随机数后再调用

[按键精灵] 纯文本查看 复制代码

Randomize
 
//随机调用某个函数子程序例子
Dim 随机数
随机数 = RndNum(1, 4)
Select Case 随机数
Case 1
    Call f1()
Case 2
    Call f2()
Case 3
    call f3()
Case Else
    Call f4()
End Select
 
Function RndNum(min, max)
    RndNum = Int((max-min+1)*Rnd() + min)
End Function
 
Function f1()
    TracePrint "f1"
End Function
 
Function f2()
    TracePrint "f2"
End Function
 
Function f3()
    TracePrint "f3"
End Function
 
Function f4()
    TracePrint "f4"
End Function

		自动登录	找回密码
密码			立即注册

[已回复] 求助一个循环的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。