求助一个循环的问题

piazi666

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

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

紫猫

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

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

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