如何建 VB 数组sub

来源：百度知道 编辑：UC知道 时间：2024/05/20 20:30:38
想建立几个sub 要类似数组的
随机调用其中1个sub
例
x=Int((3-1+1)*rnd+1)
从1~3中随机选1个数
再调用第一个sub或第二个sub或第三个sub

希望高手们解答解答
有不同方法 但执行类似的也可以说说
麻烦各位了
在弄个作品，卡在这了

你的意思是？
Private Sub Command1_Click()
Call GetRnd
End Sub

Private Sub GetRnd()
Select Case Int((3 - 1 + 1) * Rnd + 1)
Case 1
Call sub1
Case 2
Call sub2
Case 3
Call sub3
End Select
End Sub

Private Sub sub1()
MsgBox "过程1"
End Sub
Private Sub sub2()
MsgBox "过程2"
End Sub
Private Sub sub3()
MsgBox "过程3"
End Sub