Нахождение минимального по модулю элемента в каждом столбце массива - VB

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

Добрый день.Помогите,пожалуйста разобраться,как найти минимальный элемент в каждом СТОЛБЦЕ.

For i = 1 To n
For j = 1 To m
min(j) = Abs(a(i, j))
If Abs(a(i, j)) < min(j) Then
 min(j) = Abs(a(i, j))
End If
Next j
Print "min="; min(m)
Next i

Что мне не понятно,так это какое значение нужно вписать сюда min(j) =

Abs(a(?, ?))

,что бы искало мой min по СТОЛБЦАМ.Я пробывал i,1; 1,j; j,1; Но результата так не добился Полный код программы.

Option Explicit
 
Private Sub Command1_Click()
Const n = 4, m = 4
Dim a(1 To n, 1 To m) As Single, min(m) As Single, j As Integer, i As Integer
For i = 1 To n
For j = 1 To m
a(i, j) = 9 * i ^ 2 + j ^ 2 - 50
Print Format(a(i, j), "0.000 ");
Next j
Print
Next i
For i = 1 To n
For j = 1 To m
min(j) = Abs(a(i, j))
If Abs(a(i, j)) < min(j) Then
 min(j) = Abs(a(i, j))
End If
Next j
Print "min="; min(m)
Next i
End Sub
 
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Нахождение минимального по модулю элемента в каждом столбце массива»

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

                            Sub MinCol(A() As Integer)
     For i% = 1 To UBound(A, 2)
         Min% = Abs(A(1, i%))
         For j% = 2 To UBound(A, 1)
              If Abs(A(j%, i%)) < Min Then Min = Abs(A(j%, i%))
         Next j%
         Debug.Print "Г‘ГІГ®Г«ГЎГҐГ¶ "; i%; " min="; Min%
     Next i%
End Sub
 
Sub Test()
 
Dim A(1 To 10, 1 To 5) As Integer
 
    Randomize
    
    For i% = 1 To 10
        For j% = 1 To 5
            A(i%, j%) = Rnd() * 100
        Next j%
    Next i%
    
    For i% = 1 To 10
        For j% = 1 To 5
            Debug.Print A(i%, j%),
        Next j%
        Debug.Print
    Next i%
            
    MinCol A()
 
End Sub
                        