问题很急，谢谢各位

Question

我想往函数里面传递数组怎么写函数的声明
谢谢各位

Answer 1

function a(b(),c()) as long

Answer 2

如果要在数组里返回值的话，用
function a(byRef b() as Integer) as long

Answer 3

Dim B(X) As Integer
Function A(B(X) As Integer) As Long
   ...
End Function
说明：X为自然数。

Answer 4

Private Function SumAll(Val() As Integer) As Long
    Dim i  As Long
    Dim ub As Long
    ub = UBound(Val)
    For i = LBound(Val) To ub
        SumAll = SumAll + Val(i)
    Next
End FunctionPrivate Sub Command1_Click()
    Dim m(2) As Integer
    Dim n(2 To 3) As Integer
    For i = LBound(m) To UBound(m)
        m(i) = i
    Next
    For i = LBound(n) To UBound(n)
        n(i) = i
    Next
    'MsgBox SumAll(m) & vbCrLf & SumAll(n) '这样写也可
    MsgBox SumAll(m()) & vbCrLf & SumAll(n())
End Sub