Квадратная целочисленная матрица

Option Explicit
Dim a() As Integer, sm() As Integer, kl As Integer
Dim i As Integer, j As Integer
 
Private Sub Command1_Click()
Dim n As Integer, k As Integer
Dim S
Me.Cls
 
Print "  Квадратная целочисленная матрица[A], размером N x N."
Print " 1)Найти количество строк, среднее"
Print "арифметическое которых меньше заданого числа."
Print " 2)Найти сумму модулей элементов "
Print " росположеных под главной диагональю."
Print "================================================"
re1:
n = Val(InputBox("вводим размерность N"))
If n <= 2 Then
MsgBox "Некорректный ввод!  " & vbCrLf & "Повторите"
GoTo re1
End If
 
ReDim a(1 To n, 1 To n)
k = Val(InputBox("вводим число k"))
ReDim sm(n)
kl = 0
For i = 1 To n
S = 0
For j = 1 To n
a(i, j) = Val(InputBox("вводим a(" & i & "," & j & ")"))
S = S + a(i, j)
Next j
If S / n < k Then
kl = kl + 1
sm(i) = 1
End If
Next i
 
S = 0
For i = 2 To n
For j = 1 To i - 1
S = S + Abs(a(i, j))
Next j
Next i
 
Print: Print " исходная матрица": Print
For i = 1 To n
For j = 1 To n
Print Tab(j * 10); a(i, j);
Next j
Print
Next i
 
If kl > 0 Then
Print: Print "номер строки, среднее"
Print "арифметическое которой меньше  "; k
For i = 1 To n
If sm(i) = 1 Then Print i; "    ";
Next i
Print
 Print
Print " количество строк, среднее"
Print "арифметическое которых меньше "; k; " --- "; kl
Print
 
Else
Print: Print "номер строки, среднее"
Print "арифметическое которой меньше не найдено ";
Print
End If
 
Print " суммa модулей элементов "
Print " росположеных под главной диагональю."
Print "S= "; S
End Sub