Поменяйте местами строки матрицы, содержащие максимальный и минимальный элементы

'Поиск максимального элемента в массиве
    Sub strokimax(ByVal x(,) As Integer, ByRef maxmas As Integer, ByRef maxI As Integer, ByRef maxJ As Integer, ByVal m As Integer, ByVal n As Integer)
        Dim i, j As Integer
        maxmas = 0
        'индекс строки
        maxI = 0
        'индекс столбца
        maxJ = 0
        For i = 0 To m
            For j = 0 To n
                If x(i, j) > maxmas Then
                    maxmas = x(i, j)
                    maxI = i
                    maxJ = j
                End If
            Next j
        Next i
    End Sub
 
    'Поиск минимального элемента в массиве
    Sub strokimin(ByVal x(,) As Integer, ByRef minmas As Integer, ByRef minI As Integer, ByRef minJ As Integer, ByVal m As Integer, ByVal n As Integer)
        Dim i, j As Integer
        minmas = 0
        'индекс строки
        minI = 0
        'индекс столбца
        minJ = 0
        For i = 0 To m
            For j = 0 To n
                If x(i, j) < minmas Then
                    minmas = x(i, j)
                    minI = i
                    minJ = j
                End If
            Next j
        Next i
    End Sub
 
    'Процедура смены 
    Sub smena(ByVal x(,) As Integer, ByRef minI As Integer, ByRef minJ As Integer, ByRef maxJ As Integer, ByRef maxI As Integer, ByVal m As Integer, ByVal n As Integer)
        Dim i, j, temp As Integer
        For j = 0 To n
                If minI = maxI Then
                    temp = x(i, minJ)
                    x(i, minJ) = x(i, maxJ)
                    x(i, maxJ) = temp
                Else
                    temp = x(minI, j)
                    x(minI, j) = x(maxI, j)
                    x(maxI, j) = temp
                End If
        Next j
    End Sub

    'Процедура смены строк
    Sub smenastrok(ByVal x(,) As Integer, ByRef minI As Integer, ByRef minJ As Integer, ByRef maxJ As Integer, ByRef maxI As Integer, ByVal m As Integer, ByVal n As Integer)
        Dim j, temp As Integer
        For j = 0 To n
            temp = x(minI, j)
            x(minI, j) = x(maxI, j)
            x(maxI, j) = temp
        Next j
    End Sub
 
    'Процедура смены столбцов
    Sub smenastolb(ByVal x(,) As Integer, ByRef minI As Integer, ByRef minJ As Integer, ByRef maxJ As Integer, ByRef maxI As Integer, ByVal m As Integer, ByVal n As Integer)
        Dim i, temp As Integer
        For i = 0 To m
            If minI = maxI Then
                temp = x(i, minJ)
                x(i, minJ) = x(i, maxJ)
                x(i, maxJ) = temp
            End If
        Next i
    End Sub