自编函数的数组参数怎么传递？

[feifan98]

各位大侠，我想编写一个函数，要以数组为传递参数，怎么写呢？
是不是这样
function 函数名（a（30，30）as long） as long



end function
其中a（30，30）为传递的参数！

[feifan98]

谢谢叶帆

[道素]

前边加一个byref传地址方式


SHANNON
----------------
[e-mail]

[刘洪峰AIoT]

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim b(30, 30) As Long
For i = 0 To 30
For j = 0 To 30

b(i, j) = Rnd * 100 + 1000
Next j, i
Call aaa(b)

End Sub

Sub aaa(a() As Long)
Dim i As Integer
Dim j As Integer
For i = 0 To 30
For j = 0 To 30

Debug.Print a(i, j)
Next j, i

End Sub

[大智 Kevin]

实际上vb是有指针这个概念的，只不过ms没有公开。