Question

vb中function参数列表中二维数组作为形参怎么用

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

与一维数组用法一样，以下是个例子：
Private Sub Command1_Click()
Dim a(2, 2) As Integer
Dim i As Integer, j As Integer, m As Integer
For i = 0 To 2
For j = 0 To 2
m = m + 1
a(i, j) = m
Next
Next
Debug.Print getValue(a)
End Sub
Private Function getValue(a() As Integer) As Integer
Dim s As Integer
Dim i As Integer, j As Integer
For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
s = s + a(i, j)
Next
Next
getValue = s
End Function