自定义函数引入数组怎么弄，遇到困难，请各位帮下忙

[wx9288]

Sub a()
Dim arr(1, 1) As String
arr(0, 0) = 1
arr(0, 1) = 1
arr(1, 0) = 1
arr(1, 1) = 1
Dim gg As String = sss(arr())
End Sub



Function sss(ByVal arr() As String) As String


Dim aa As String =arr(1,1)
Return aa

End Function

总显示错误 提示索引数少于索引数的维数，麻烦高手帮帮忙

[github_36000833]

Sub a() Dim arr(1, 1) As String arr(0, 0) = 1 arr(0, 1) = 1 arr(1, 0) = 1 arr(1, 1) = 1 Dim gg As String = sss(arr) End Sub Function sss(ByVal arr(,) As String) As String Dim aa As String = arr(1, 1) Return aa End Function

[小猪的天空]

数组开始从0开始，声明的时候1就表示一个！

[寂静的羽夏]

试一下这个，虽然有瑕疵。 Function sss(ByVal arr（） As array) As String Dim aa As String =arr(1,1) Return aa End Function