Осуществить поиск минимальных значений в каждой строке и минимальных в каждом столбце матрицы - VB

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

дан произвольный числовой массив разработать проект позволяющий заполнить массив данными,осуществить поиск минимальных значений в каждой строке и минимальных в каждом столбце,выводить результаты на экран заранее благодарен

Решение задачи: «Осуществить поиск минимальных значений в каждой строке и минимальных в каждом столбце матрицы»

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

                            Private Sub Command1_Click()
k = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ", "Г‚ГўГ®Г¤")
k_1 = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў", "Г‚ГўГ®Г¤")
ReDim pp(1 To k, 1 To k_1)
Print "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў:"
For i = 1 To k
    For j = 1 To k_1
    pp(i, j) = Int(Rnd * 10 - 2)
        If j <> k_1 Then
            Print ; pp(i, j);
        Else
            Print pp(i, j);
            Print vbLf
        End If
Next j
Next i
min = pp(1, 1)
Print "ГЊГЁГ*ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ Гў ГЄГ*Г¦Г¤Г®Г© Г±ГІГ°Г®ГЄГҐ"
For i = 1 To k
    For j = 1 To k_1
If pp(i, j) < min Then min = pp(i, j)
        If j <> k_1 Then
            Print ; pp(i, j);
        Else
            Print pp(i, j); vbTab; min
            Print vbLf
        End If
Next j
Next i
 
Print "ГЊГЁГ*ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ Гў ГЄГ*Г¦Г¤Г®Г¬ Г±ГІГ®Г«ГЎГ¶ГҐ"
For j = 1 To k_1
    min = pp(1, j)
    For i = 1 To k
        If pp(i, j) < min Then min = pp(i, j)
    Next i
Print min;
Next j
                        