Redim VBA 中的可变维数

使用VBA中的Redim语句可以动态地调整数组的大小，包括可变维数数组。这使得我们能够更加灵活地处理不同大小的数据集。下面将介绍Redim VBA中可变维数的使用方法，并结合一个案例代码进行说明。

vba
Dim arr() As Integer
ReDim arr(5) ' 创建一个长度为5的一维数组
ReDim arr(10) ' 调整数组的长度为10

vba
Dim arr() As Integer
ReDim arr(1 To 3, 1 To 3) ' 创建一个3行3列的二维数组
ReDim Preserve arr(1 To 5, 1 To 5) ' 调整数组的大小为5行5列，并保留原有数据

vba
Sub ResizeArray()
    Dim scores() As Double
    Dim i As Integer
    
    ReDim scores(1 To 5, 1 To 3) ' 创建一个初始大小为5行3列的二维数组
    
    ' 输入学生成绩
    For i = 1 To 5
        scores(i, 1) = InputBox("请输入第" & i & "个学生的语文成绩：")
        scores(i, 2) = InputBox("请输入第" & i & "个学生的数学成绩：")
        scores(i, 3) = InputBox("请输入第" & i & "个学生的英语成绩：")
    Next i
    
    ' 显示学生成绩
    For i = 1 To UBound(scores, 1)
        MsgBox "第" & i & "个学生的成绩为：" & scores(i, 1) & " " & scores(i, 2) & " " & scores(i, 3)
    Next i
    
    ' 调整数组大小为10行3列，并保留原有数据
    ReDim Preserve scores(1 To 10, 1 To 3)
    
    ' 输入新增学生成绩
    For i = 6 To 10
        scores(i, 1) = InputBox("请输入第" & i & "个学生的语文成绩：")
        scores(i, 2) = InputBox("请输入第" & i & "个学生的数学成绩：")
        scores(i, 3) = InputBox("请输入第" & i & "个学生的英语成绩：")
    Next i
    
    ' 显示学生成绩
    For i = 1 To UBound(scores, 1)
        MsgBox "第" & i & "个学生的成绩为：" & scores(i, 1) & " " & scores(i, 2) & " " & scores(i, 3)
    Next i
End Sub