Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы - VB

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

                    Листинг программы
                
 
                        
                          
                    
Dim L(10, 5)
For i = 1 To 10
For j = 1 To 5
L(i, j) = Int(Rnd * (72 - 27) + 27)
Print L(i, j);
Next j
Print
Next i
 
Min = L(1)
For i = 1 To 10
If Min > L(i) Then
Min = L(i)
End If
Next i
Print
Print "min значение"; Min
 
Max = L(1)
For j = 1 To 5
If Max > L(j) Then
Max = L(i)
End If
Next j
Print
Print "max значение"; Max
End Sub

подскажите пожалуйста, что не так? задание: Описать, заполнить, вывести на форму двумерный массив L в котором 10 строк и 5 столбцов. Значения элементов массива — целые случайные числа от 27 до 72. Найти минимальный каждой строки и максимальный элемент каждого столбика.

Решение задачи: «Найти минимальный каждой строки и максимальный элемент каждого столбца матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Dim i As Byte, j As Byte
Dim max As Integer, min As Integer
Dim L(10, 5) As Integer
Label1.Caption = ""
For i = 1 To 10
For j = 1 To 5
L(i, j) = Int(Rnd * 42 + 27)
Label1.Caption = Label1.Caption & L(i, j) & " "
Next j
Label1.Caption = Label1.Caption & Chr(13)
Next i
 
For i = 1 To 10
    min = L(i, 1)
    For j = 2 To 5
        If L(i, j) < min Then min = L(i, j)
    Next j
    Label1.Caption = Label1.Caption & Chr(13) & "Min(" & i & ") = " & min
Next i
 
For i = 1 To 5
    max = L(1, i)
    For j = 2 To 10
        If L(j, i) > max Then max = L(j, i)
    Next j
    Label1.Caption = Label1.Caption & Chr(13) & "Max(" & i & ") = " & max
Next i
End Sub