Массив: вычислить среднее арифметическое значение главной диагонали квадратной матрицы - VB

Формулировка задачи:

Всем доброе время суток. У меня тут проблемка с структурой Сумма нарисовалась. проблема вот в чём: есть задача в которой надо вычислить среднее арифметическое значение главной диагонали квадратной матрицы, вроде блок схему правильно сделал, но вот как записать код я не понимаю, кто может помогите если не сложно. вот что смог тока сделать:

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

Private Sub Command2_Click()
End
End Sub

Блок схема вот:

Решение задачи: «Массив: вычислить среднее арифметическое значение главной диагонали квадратной матрицы»

textual
                            Листинг программы 
                        

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