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

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

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

Решение задачи: «Дан двумерный массив. В каждой строке массива найти минимальное число...»

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

                            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
                        