1．多维数组的定义
格式：Public|Dim|Static <数组名> (第一维下标，第二维下标) [As 数据类型]
例如：
Public
Arr(2,3) As Integer
定义一个二维数组，名字为Arr，数据类型为Integer，该数组有3行（0～2）、4列（0～3），共12个元素，见表1。
表1 二维数组元素
|
Arr(0,0) |
Arr(0,1) |
Arr(0,2) |
Arr(0,3) |
|
Arr(1,0) |
Arr(1,1) |
Arr(1,2) |
Arr(1,3) |
|
Arr(2,0) |
Arr(2,1) |
Arr(2,2) |
Arr(2,3) |
同一维数组一样，二维数组也可以用指定上下界的方式定义，例如：
Public
a(1 To 2,1 To 3)As Integer
定义后数组元素为：a(1,1) a(1,2) a(1,3) a(2,1) a(2,2)
a(2,3)，共6个元素。
2.二维数组的应用
矩阵问题是二维数组的一个重要的应用。利用二维数组可以方便的表示矩阵，并实现对矩阵进行计算。矩阵的计算问题是针对数组元素下标按照一定规则进行引用。表2为5*5矩阵下标，例如求第2行的和，即求行标为2的所有元素a(2, j)的和。求对角线元素的和，则是求行标与列标相等的元素a(I , i)的和。
表2 矩阵元素下标
|
（1，1） |
（1，2） |
（1，3） |
（1，4） |
（1，5） |
|
（2，1） |
（2，2） |
（2，3） |
（2，4） |
（2，5） |
|
（3，1） |
（3，2） |
（3，3） |
（3，4） |
（3，5） |
|
（4，1） |
（4，2） |
（4，3） |
（4，4） |
（4，5） |
|
（5，1） |
（5，2） |
（5，3） |
（5，4） |
（5，5） |
【例1】二维数组的输入/输出。
程序代码：
Private
Sub Form_Click()
Const
m% = 3, n% = 4
Dim
a(m, n) As Integer
Dim
s As Integer, i As Integer, j As Integer
For
i = 1 To m '外循环控制二维数组行数
For j = 1 To n '内循环控制二维数组列数
a(i, j) = Val(InputBox("输入数据", "二维数组输入")) '输入数组元素
Next j
Next i
For
i = 1 To m
For j = 1 To n
Print Tab(8 * j); a(i, j); '二维数组的输出
Next j
Print '换行
Next
i
End Sub
运行结果如下图所示：
