Do
TracePrint Int((5 - 1 + 1) * Rnd + 1)
If Int((5 - 1 + 1) * Rnd + 1) = 1 Then
Call a1
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 2 Then
Call a2
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 3 Then
Call a3
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 4 Then
Call a4
ElseIf Int((5 - 1 + 1) * Rnd + 1) = 5 Then
Call a5
End If
Loop
Sub a1
//脚本1
End Sub
Sub a2
//脚本2
End Sub
Sub a3
//脚本3
End Sub
Sub a4
//脚本4
End Sub
Sub a5
//脚本5
End Sub
分别复制五个脚本源代码到子程序中,然后启动就行了,如果不需要循环把Do和Loop去掉就好了
5个脚本写成子程序 然后随机数