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

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

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