Определение каждой нечетной строки минимального элемента матрицы

    Dim x&, y&, arr&(10, 20), min&
    min = 2 ^ 31 - 1
    For x = 0 To 10: For y = 0 To 20
            If x Mod 2 And arr(x, y) < min Then min = arr(x, y)
    Next: Next

Option Explicit
 
Private Sub Form_Activate()
    Dim n&, m&, arr&(10, 20), min&, max&
    'Заполняем матрицу случайными числами
    Randomize
    For n = 0 To 10: For m = 0 To 20
            arr(n, m) = 100 + Fix(Rnd * 100)
    Next: Next
    'Находим самое большое
    For n = 0 To 10: For m = 0 To 20
            If n Mod 2 And arr(n, m) > max Then max = arr(n, m)
    Next: Next
    min = max
    For n = 0 To 10: For m = 0 To 20
            If n Mod 2 And arr(n, m) < min Then min = arr(n, m)
        Next
        If n Mod 2 Then Print "Строка " & n & " = " & min 'Вывод минимального в нечетной строке
        min = max
    Next
End Sub

Module Module1
 
    Sub main()
 
        Dim n, m, q, w, min, max As Integer
        Dim arr(0 To 100, 0 To 100) As Long
 
        Console.Write("Сколько строк")
        q = Console.ReadLine()
        Console.Write("Сколько столбцов")
        w = Console.ReadLine()
        q = q - 1
        w = w - 1
        For n = 0 To q
            For m = 0 To w
                arr(n, m) = Int(9 * Rnd() + 1)
                Console.Write(arr(n, m))
                Console.Write(" ")
            Next
            Console.WriteLine()
        Next
        For n = 0 To q
            For m = 0 To w
                If n Mod 2 And arr(n, m) > max Then max = arr(n, m)
            Next
        Next
        min = max
        For n = 0 To q
            For m = 0 To w
                If n Mod 2 And arr(n, m) < min Then min = arr(n, m)
            Next
            If n Mod 2 And q >= n Then
                Console.WriteLine(("Строка " & n & " = " & min))
            End If
            min = max
        Next
        Console.ReadKey()
    End Sub
End Module