Option Base 1
Private Sub Command1_Click()
Dim a(3, 4) As Integer, i As Integer, j As Integer '定义一个二维数组,i循环代表行下标,j循环代表列下标
Dim s As Long, ave As Single 's存放数组元素的和值,ave为平均值
s = 0
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(Rnd * 101) '给这个二维数组赋值为100以内的随机整数
Print a(i, j);
s = s + a(i, j) '求所有元素的合值
Next j
Print
Next i
ave = s / 12 '求平均值
Print "二维数组的元素的和=" & s
Print "二维数组的元素平均值=" & ave
End Sub