VBA：传入并返回函数中的数组

Question

我希望能够传入数组，使用其中的值执行某些操作，然后在函数中返回结果数组。

有没有其他方法可以在不使用Variant的情况下执行此操作？

我知道这不起作用，但我希望它看起来像这样:(假设arr和Test（）长度相同）

Function Test()(arr() As Integer) As Integer
    For i = 0 To UBound(arr)
        Test(i) = arr(i) + 1
    Next i
End Function

Answer 1

这样的事情：

Function AddOne(arr() As Integer) As Integer()
    Dim i, rv() As Integer
    ReDim rv(LBound(arr) To UBound(arr))
    For i = LBound(arr) To UBound(arr)
        rv(i) = arr(i) + 1
    Next i
    AddOne = rv()
End Function