利用VB,编写一个3*4的二维数组输入任意整数,求所有数组元素和及平均值

Private Sub Command1_Click()
Dim i As Integer, j As Integer, A(1 To 3, 1 To 4) As Integer, X As Integer
'i、j、X 是变量,A(1 To 3, 1 To 4)是二维数组变量
For i = 1 To 3   'i是循环变量,这里循环3次
   For j = 1 To 4   'j是循环变量,这里循环4次
      Randomize    '刷新随机数种子
      A(i, j) = Int(Rnd * 90 + 10)    '产生随机数,存储在A数组中
      X = X + A(i, j)    '计算数组的和
      Print A(i, j) & "   ";    '打印数组的值
   Next j   'j循环结束
Print    '打印换行
Next i    'i循环结束
Print   '设置一个空行
Print "3*4数组的和 = " & X    '打印数组的和
Print "平均值 = " & Round((X / ((i - 1) * (j - 1))), 2) '打印平均值,取小数后二位
End Su