ms-access - VBA:反转数组？

Question

我怎样才能反转一个充满整数的数组，例如:

[1;5;8;45;54]

收件人:

[54;45;8;5;1]

有没有我可以使用的内置函数？

我尝试使用 this方法:

Array.Reverse(arr)

我从“工具”>“引用”中添加了 Mscorlib.dll，但它显示错误:语法错误。在 Array.Reverse(arr) 位置。

Answer 1

你可以使用 ArrayList 类并包装它的 Reverse 方法:

Function ReverseArray(arr As Variant) As Variant
    Dim val As Variant

    With CreateObject("System.Collections.ArrayList") '<-- create a "temporary" array list with late binding 
        For Each val In arr '<--| fill arraylist
            .Add val
        Next val
        .Reverse '<--| reverse it
        ReverseArray = .Toarray '<--| write it into an array
    End With
End Function

像这样使用:

Sub main()
    Dim arr As Variant

    arr = ReverseArray(Array(1, 2, 3, 4, 5)) '<-- it returns an array of Variant/Integer with values 5,4,3,2,1        
End Sub