Private Function abc(strTemp As String, Optional iniTemp As Integer)'iniTemp 这个参数就是可选了End Function
用数组参数。private function abc(i(?) as string )end function 你得意写多少参数就有多少参数,不过就是类型都是相同的。
Private Sub Form_Load() MsgBox GGl123(1)End SubPublic Function GGl123(A1 As Integer, Optional A2 As Integer, Optional A3 As Integer) As String GGl123 = "A1是必选参数,A2、A3为可选参数"End Function
有两个选择:一个是使用Optional,另一个就是使用数组参数。
谢谢我试了,可以实现。但是在申明数组参数时有错误, 例如: Optional aa() as string 这句就有错误了,是不是Optional不支持数组参数?
Private Sub Form_Load()
MsgBox GGl123(1)End SubPublic Function GGl123(A1 As Integer, Optional A2 As Integer, Optional A3 As Integer) As String GGl123 = "A1是必选参数,A2、A3为可选参数"End Function
例如:
Optional aa() as string
这句就有错误了,是不是Optional不支持数组参数?