有关数组在函数间传递的问题

Question

你的函数定义的参数应该是字符串数组Option Explicit
Dim strArray() As StringPrivate Sub showArray(ByRef strRray() As String)
    MsgBox strRray(1, 1)
End Sub
Private Sub Form_Load()
ReDim strArray(3, 3)
strArray(1, 1) = "1,1"
'运行到后面一句报错“by ref参数类型不符”
showArray strArrayEnd Sub

Answer 1

Private Sub showArray(ByRef strRray() As String)
                        ———— ——————
    MsgBox strRray(1, 1)
End Sub

Answer 2

Option Explicit
Dim strArray() As String
Private Sub showArray(strRray() As String)
    MsgBox strRray(1, 1)
End Sub
Private Sub Form_Load()
ReDim strArray(3, 3)
strArray(1, 1) = "1,1"
'运行到后面一句报错“by ref参数类型不符”
showArray strArray
 
End Sub
老大这个在我机器运行没问题啊

Answer 3

哦，不好意思，原来你没有加上这个：
Private Sub showArray(strRray() As String)
    MsgBox strRray(1, 1)
End Sub传递数组参数的时候，要这样声明形参strRray() As String，括号不能少