Redim VBA 中的可变维数

在VBA中，Redim语句用于重新定义数组的大小。通常情况下，我们在声明数组时会指定其维数和大小，但有时候我们需要根据实际需求来动态地调整数组的大小。这就是Redim语句的作用所在。

vba
Sub ResizeArray()
    Dim arr(1 To 3) As String
    Dim i As Integer
    
    ' 初始化数组
    arr(1) = "Apple"
    arr(2) = "Banana"
    arr(3) = "Orange"
    
    ' 调整数组大小为5
    ReDim arr(1 To 5)
    
    ' 添加新元素
    arr(4) = "Grape"
    arr(5) = "Mango"
    
    ' 输出数组元素
    For i = 1 To 5
        Debug.Print arr(i)
    Next i
End Sub