在function中如何将数组作为参数

[linyucao]

rt

[AntingZ]

传递数组名并指明维数就可以了

[iintsy]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a(2) As Integer
a(0) = 1
a(1) = 2
a(2) = 3
MsgBox(test(a))
End Sub
Public Function test(ByVal a() As Integer) As Integer
Return a(0)
End Function

试试？

[AntingZ]

下面是二维的例子，多维的多加几个逗号久可以了：

Function myFunc(ByVal aaa As String(,))
Dim i, j As Int32
For i = 0 To aaa.GetUpperBound(0)
For j = 0 To aaa.GetUpperBound(1)
MsgBox(aaa(i, j))
Next
Next
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bbb(2, 3) As String
For i As Int32 = 0 To 2
For j As Int32 = 0 To 3
bbb(i, j) = i * 100 + j + 1
Next
Next

myFunc(bbb)
End Sub