妳可以將這5個腳本寫成5個函數過程,然後用另壹個函數,rnd隨機來做隨機調用
a=int(rnd*5)+1
MsgBox(a)
If?a?=?1?Then?
Call?fun1
ElseIf?a?=?1?Then?
End?If
Function?fun1()
'函數代碼1
End?Function
Function?fun2()
'函數代碼2