**一、定义与声明**
在 VB 或 VBA 中，一个多维数组可以通过指定每个维度的大小来创建并声明：
vb
Dim MyArray(1 To 5, 1 To 3) As Integer ' 定义一个2D（二维）整数型数组，第一维长度为5，第二维长度为3。
上述代码意味着我们已经创建了一个类似电子表格般的数组，共有五个行六个列的位置用于存放整数值。
若需声明任意类型的多维数组，则只需替换 `Integer` 类型为你所需的其他变量类型如 String、Double 等即可。
**二、静态赋值初始化**
对已声明好的多维数组元素可以直接赋予初始值:
vb
MyArray(1, 1) = "Apple"
MyArray(2, 2) = 789
'...
或者一次性整体初始化：
vb
Private Sub InitializeArray()
Dim initValues() As Variant
ReDim initValues(4, 2)
initValues(0, 0) = "Banana"
initValues(0, 1) = "Cherry"
' ...
End Sub
**三、动态分配多维数组**
不同于静态分配，在程序运行过程中按需求调整数组尺寸的过程称为动态分配。这在你无法预先确定数组规模的情况下非常有用。
例如，要在 VBA 中实现动态分配二维数组，你可以使用 `ReDim Preserve` 命令增加已有数组的一个或多各维度的容量：
vb
Sub DynamicAllocationExample()
Dim dynArr() As Double
Redim dynArr(1 to 3, 1 to 6) ' 初始分配
For i = LBound(dynArr, 1) To Ubound(dynArr, 1)
For j = LBound(dynArr, 2) To UBound(dynArr, 2)
dynArr(i,j) = Rnd * 100
Next j
Next i
Debug.Print("Initial array size:")
PrintDimension dynArr
' 动态扩展第二个维度:
ReDim Preserve dynArr(LBound(dynArr, 1) To UBound(dynArr, 1), 1 To 8)
Debug.Print(vbCrLf & "; After resizing the second dimension...")
PrintDimension dynArr
End Sub
Function PrintDimension(arr())
Debug.Print "(" & LBound(arr, 1) & " To " & UBound(arr, 1) & ", " _
& LBound(arr, 2) & " To " & UBound(arr, 2) & ")"
End Function
请注意，“Preserve”关键字在此至关重要，因为它能确保重新定义时保留原有的所有内容。如果没有“Preserve”，则会丢失原数组的所有数据。
总结来说，在 Visual Basic 和 VBA 编程语言中管理多维数组不仅涵盖了基础的一次性声明和初始化过程，也包括了更具灵活性的动态内存分配技术。熟练掌握这些技巧有助于提高开发效率并在项目实施期间灵活应对各种变化的需求情况。
标签： vb多维数组定义
