Дан двумерный массив. В каждой строке массива найти минимальное число...

Private Sub Form_Load()
Dim A() As Single
Dim n As Integer, m As Integer
Dim C() As Single, max As Single, min As Single
n = InputBox("n"): m = InputBox("m")
ReDim A(1 To n, 1 To m)
ReDim C(1 To n)
For i = 1 To n
    For j = 1 To m
        A(i, j) = Int(100 * Rnd - 50)
    Next j
Next i
For i = 1 To n
    min = A(i, 1)
    For j = 2 To m
        If A(i, j) < min Then min = A(i, j)
    Next j
    C(i) = min
Next i
MsgBox findMax(A(), C(), n, m)
End Sub
 
Function findMax(ByRef A() As Single, ByRef C() As Single, n, m) As Variant
Dim max, i, num
max = C(1): num = 1
For i = 2 To n
    If C(i) > max Then max = C(i): num = i
Next i
For i = 1 To m
    findMax = findMax & A(num, i) & " "
Next i
End Function

Private m1(99, 99), m2(99), i, j As Integer
Private U As String
Private n As Integer
Private m As Integer
Private min As Integer
Private max As Integer
 
 
 
 
Private Sub Command1_Click()
X = Val(Text1.Text)
n = X
For i = 1 To n
U = ""
  For j = 1 To m
    m1(i, j) = Round(10 * Rnd - 5)
    U = U + Str(m1(i, j))
  Next
  Text1.AddItem (U)
Next
For i = 1 To n
    min = m1(i, 1)
    For j = 2 To m
        If m1(i, j) < min Then min = m1(i, j)
    Next j
    m2(i) = min
Next i
max = m2(1): num = 1
For i = 2 To n
    If m2(i) > max Then max = m2(i): num = i
Next i
For i = 1 To m
Next i
Text2.AddItem (U)
 
End Sub