按键精灵安装，怎么在一轮循环里随机执行多个子程序

取个1到4的随机数，根据随机数的值来执行某一个子程序

Randomize

do

    随机数 裂蔽= Int((4 * Rnd) + 1)

    TracePrint 随机数

    If 随机数 = 1 厅源宴Then 

        Call 子程序1

    ElseIf 随机数 = 2 Then 

    扮银    Call 子程序2

    ElseIf 随机数 = 3 Then 

        Call 子程序3

    ElseIf 随机数 = 4 Then 

        Call 子程序4

    End If

loop

子程序名字不能数字开野清头啊

随机调指脊帆取 可以先生成随机唯雹数。随机的哪个就调用哪个

比如

Randomize

s = int(7 * rnd + 1)

TracePrint s

Select Case s

Case 1

Call zcx1

Case 2

Call zcx2

Case 3

Call zcx3

Case 4

Call zcx4

Case 5

Call zcx5

Case 6

Call zcx6

Case 7

Call zcx7

End Select

.版本晌拦 2

.子程序 _按钮1_被单击

编辑框1.内容 ＝ 子程序_生成改银随机数 (25)

.子程序 子程序_生成随机数, 文本型

.参数 位数, 整数型

.局部变量 temp, 文本型

置随机数种子 ()

.计次循环首 (位数, )

temp ＝ temp ＋ 到文本 (取随机数 (, ))

.计次循宴歼胡环尾 ()

返回 (temp)

---