Массив: Печать двумерного массива в виде матрицы - VB

Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a() As Integer, n As Integer
Dim m As Single
n = InputBox("Введите размерность матрицы n")
ReDim a(n)
Print
Print "Матрица A:";
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("Введите элемент матрицы, a (" & i & " , " & j & ") = ")
Print a(i, j)
Next j
Next i
If i = j Then
For i = 1 To n
For j = 1 To n
    m = m + a(i, j)
Next j
Next i
End If
m = m / n
Print
Print
Print "Среднее арифметическое главной диагонали:", m
End Sub
 
Private Sub Command2_Click()
End
End Sub