Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов на промежутке - VB

Form1.Cls
Dim a%(), b%(), n%, m%
n = InputBox("n")
m = InputBox("m")
ReDim a(n, m), b(n)
Print "massiv a"
For i = 1 To n
For j = 1 To m
 a(i, j) = InputBox("a(" & i & "," & j & ")")
 Print a(i, j);
Next j
Print
Next i
Print
Print "massiv b"
For i = 1 To n
b(i) = a(i, 1)
For j = 1 To i
 If a(i, j) < b(i) Then b(i) = a(i, j)
 If j = m Then Exit For
Next j
Print b(i);
Next i