当然,你可以将
sub a1()
sub a2()
sub a3()
合定义为一个过程
sub a(byval index as integer)
如:
Sub a1()
MsgBox "a1"
End Sub
Sub a2()
MsgBox "a2"
End Sub
Sub a3()
MsgBox "a3"
End Sub
Sub a(ByVal index As Integer)
If index = 1 Then MsgBox "a1"
If index = 2 Then MsgBox "a2"
If index = 3 Then MsgBox "a3"
End Sub
Private Sub Command1_Click()
a 3
End Sub