Вычислить сумму и число элементов мат-рицы, находящихся под главной диагона-лью и на ней - VB

Private Sub Command1_Click()
Dim m As Double
Dim b() As Double
Dim sum As Double
Dim i As Integer
Dim kol As Integer
Dim n As Integer
Dim j As Integer
Cls
sum = 0
kol = 0
n = 3 ' количество элементов массива - строк и столбцов
ReDim b(1 To n, 1 To n)
For i = 1 To n
    For j = 1 To n
    b(i, j) = Int(Rnd * 30 + 1)
    Print vbTab; b(i, j);
    Next j
    Print
Next i
m = 1
For i = 2 To n
    For j = 1 To m
        kol = kol + 1
        sum = b(i, j) + sum
    Next j
    m = m + 1
Next i
Print vbLf
    Print "Под главной диагональю:"
    Print "Сумма"; sum
    Print "Количество элементов"; kol
Print vbLf
sum = 0
m = 2
kol = 0
For i = 1 To n - 1
    For j = m To n
        kol = kol + 1
        sum = b(i, j) + sum
    Next j
    m = m + 1
Next i
Print vbLf
    Print "Над главной диагональю:"
    Print "Сумма"; sum
    Print "Количество элементов"; kol
End Sub