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

Private Sub Command1_Click()
Dim a(), n%, m%, t%, i%, j%
Dim tmp, i_mn%, i_mx%
n = 10: m = 5
ReDim a(1 To n, 1 To m)
Cls
For i = 1 To n
  For j = 1 To m
     a(i, j) = Int(Rnd * 89) + 10
  Next
Next
 
 i_mn = ind_mm%(a(), -1)
 i_mx = ind_mm%(a(), 1)
 
For j = 1 To m
 tmp = a(i_mn, j)
   a(i_mn, j) = a(i_mx, j)
     a(i_mx, j) = tmp
Next
 
Call print_m("исходный массив", a(), i_mn, i_mx)
Call print_m("полученный массив", a(), i_mn, i_mx)
End Sub
Function ind_mm%(mass(), t%)
Dim i%, j%, ui%, uj%, mm
ui = UBound(mass, 1): uj = UBound(mass, 2)
mm = mass(1, 1): ind_mm = 1
For i = 1 To ui
For j = 1 To uj
 If mm * t < mass(i, j) * t Then
     mm = mass(i, j): ind_mm = i
 End If
Next
Next
End Function
Sub print_m(z$, mass(), r1%, r2%)
Dim i%, j%, ui%, uj%
ui = UBound(mass, 1): uj = UBound(mass, 2)
Print: Print z: Print
For i = 1 To ui
For j = 1 To uj
Me.ForeColor = IIf((r1 > 0 And r1 = i) Or (r2 > 0 And r2 = i), vbRed, 0)
 Print mass(i, j); vbTab;
Next
Print
Next
End Sub

Private Sub Command2_Click()
Dim A(1 To 3, 1 To 3), i, j As Integer
For i = 1 To 3
For j = 1 To 3
  A(i, j) = Val(InputBox("Ââåäèòå ÷èñëî", "Çàïîëíåíèå ìàññèâà"))
Next j
Next i
End Sub

Private Sub Command1_Click()
Dim a(), n%, m%, t%, i%, j%
Dim tmp, i_mn%, i_mx%
n = 10: m = 5
ReDim a(1 To n, 1 To m)
Cls
For i = 1 To n
  For j = 1 To m
     a(i, j) = Int(Rnd * 89) + 10
  Next
Next
 
 i_mn = ind_mm%(a(), -1)
 i_mx = ind_mm%(a(), 1)
 
Call print_m("исходный массив", a(), i_mn, i_mx)
 
For j = 1 To m
 tmp = a(i_mn, j)
   a(i_mn, j) = a(i_mx, j)
     a(i_mx, j) = tmp
Next
 
 
Call print_m("полученный массив", a(), i_mn, i_mx)
End Sub
Function ind_mm%(mass(), t%)
Dim i%, j%, ui%, uj%, mm
ui = UBound(mass, 1): uj = UBound(mass, 2)
mm = mass(1, 1): ind_mm = 1
For i = 1 To ui
For j = 1 To uj
 If mm * t < mass(i, j) * t Then
     mm = mass(i, j): ind_mm = i
 End If
Next
Next
End Function
Sub print_m(z$, mass(), r1%, r2%)
Dim i%, j%, ui%, uj%
ui = UBound(mass, 1): uj = UBound(mass, 2)
Print: Print z: Print
For i = 1 To ui
For j = 1 To uj
Me.ForeColor = IIf((r1 > 0 And r1 = i) Or (r2 > 0 And r2 = i), vbRed, 0)
 Print mass(i, j); vbTab;
Next
Print
Next
End Sub

Private Sub Command1_Click()
Dim a() As Single, n As Integer, m As Integer, i As Integer, j   As Integer
Dim temp As Single, min As Single, max As Single, i_min As Integer, i_max As Integer
n = InputBox("Количество строк =", "Ввод данных", 10): m = InputBox("Количество столбцов =", "Ввод данных", 5)
ReDim a(1 To n, 1 To m)
Cls
Randomize
Print "Исходный массив": Print
 
For i = 1 To n
  For j = 1 To m
     a(i, j) = Int(Rnd * 89) + 10
     Print vbTab; a(i, j);
  Next
  Print
Next
Print
 
min = a(1, 1): max = a(1, 1): i_min = 1: i_max = 1
 
For i = 1 To n
  For j = 1 To m
    If min > a(i, j) Then min = a(i, j): i_min = i
    If max < a(i, j) Then max = a(i, j): i_max = i
  Next
Next
 
If i_min = i_max Then Print "Максимальный и минимальный элемент находятся в одной строке"
Print
Print "Минимальный элемент = " & min & " , в " & i_min & " строке."
Print "Максимальный элемент = " & max & " , в " & i_max & " строке."
Print
 
For j = 1 To m
   temp = a(i_min, j): a(i_min, j) = a(i_max, j): a(i_max, j) = temp
Next
 
Print "Полученный массив"
Print
 
For i = 1 To n
  For j = 1 To m
      Print vbTab; a(i, j);
  Next
  Print
Next
 
End Sub