Найти максимальные элементы в столбцах матрицы B. Где ошибка? - VB

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

Найти максимальные элементы в столбцах матрицы B. Поменять их местами с элементами первой строки соответствующего столбца. Где ошибка?

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim m As Integer, n As Integer
Dim B() As Single
Dim G As Single
m = InputBox("Число строк")
n = InputBox("Число столбцов")
ReDim B(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
B(i, j) = 100 * Rnd()
Print Format(B(i, j), "0.##"),
Next
Print
Next
Print
For j = 1 To n
G = -10 ^ 9
k = 0
For i = 1 To m
If B(i, j) > G Then
G = B(i, j)
k = i
End If
Next i
B(k, j) = B(i, j)
B(i, j) = G
Next j
For i = 1 To m
For j = 1 To n
Print Format(B(i, j), "0.##")
Next
Print
Next
End Sub

Решение задачи: «Найти максимальные элементы в столбцах матрицы B. Где ошибка?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim m As Integer, n As Integer
    Dim B() As Single
    Dim G As Single
    m = Val(InputBox("Число строк", , 5))
    n = Val(InputBox("Число столбцов", , 7))
    ReDim B(1 To m, 1 To n)
    Cls
    For i = 1 To m
         For j = 1 To n
             B(i, j) = 100 * Rnd()
             Print Format(B(i, j), "0.##"),
         Next
         Print
    Next
    Print
    For j = 1 To n
        G = B(1, j)
        k = 1
        For i = 1 To m
            If B(i, j) > G Then
               G = B(i, j)
               k = i
            End If
        Next i
        B(k, j) = B(1, j)
        B(1, j) = G
    Next j
    For i = 1 To m
       For j = 1 To n
             Print Format(B(i, j), "0.##"),
       Next
       Print
    Next
End Sub