В данной действительной квадратной матрице А порядка N переставить строки содержащие мах и мин элементы

Option Explicit
Sub Task_1()
'Íàïèñàòü ïðîãðàììó, êîòîðàÿ ïîäñ÷èòûâàåò ÷èñëî ïîëîæèòåëüíûõ, íóëåâûõ è îòðèöàòåëüíûõ _
'ýëåìåíòîâ âî ââîäèìîé ñ êëàâèàòóðû ïîñëåäîâàòåëüíîñòè ñîñòîÿùåé èç 20 äåéñòâèò. ÷èñåë.
Dim i As Integer, N As Integer, sStr As String
Dim iCntN As Integer, iCnt0 As Integer, iCntP As Integer
Do
    i = i + 1
    N = InputBox("Ââåäèòå ÷èñëî ¹ " & i)
    Select Case N
        Case Is > 0:  iCntP = iCntP + 1
        Case Is < 0:  iCntN = iCntN + 1
        Case Else:    iCnt0 = iCnt0 + 1
    End Select
    sStr = sStr & N & ", "
Loop While i < 20
MsgBox "Â ââåäåííîé ïîñëåäîâàòåëüíîñòè: " & vbNewLine & sStr & vbNewLine & _
"ïîëîæèòåëüíûõ ÷èñåë  " & iCntP & vbNewLine & _
"îòðèöàòåëüíûõ ÷èñåë  " & iCntN & vbNewLine & _
"ðàâíûõ íóëþ  " & iCnt0
End Sub
Sub Task_2()
'Ïðè ïîìîùè äàò÷èêà ñëó÷àéíûõ ÷èñåë ââîäèìîé ïîñëåäîâàòåëüíîñòüþ {ai}, ñîñòîèò èç N (ñëó÷àéíîå òðåõçíà÷íîå ÷èñëî)
'öåëûõ ïîëîæèòåëüíûõ ñëó÷àéíûõ ÷åòûðåõçíà÷íûõ ÷èñåë. Ïîëó÷èòü ïîñëåäîâàòåëüíîñòü {bi} â êîòîðîé âêëþ÷àþòñÿ òîëüêî ïðîñòûå ÷èñëà èç ïîñëåäîâàòåëüíîñòè {ai}.
'Îáå ïîñëåäîâàòåëüíîñòè âûâåñòè â ñîñåäíèå ñòîëáöû ðàáî÷åãî ýëåìåíòà.
Dim A, B, N As Integer, i As Integer, q As Integer, j As Integer
Cells.Clear
q = 0
N = Int(Rnd * 899 + 100)
ReDim A(1 To N)
ReDim B(1 To 1)
For i = 1 To N
    A(i) = Int(Rnd * 8999 + 1000)
    Cells(i, 1) = A(i)
    bRes = True
    For j = 2 To Sqr(A(i))
        If A(i) Mod j = 0 Then bRes = False: Exit For
    Next
    If bRes Then
        q = q + 1
        ReDim Preserve B(q)
        B(q) = A(i)
    End If
Next
For i = 1 To q
Cells(i, 2) = B(i)
Next
End Sub
 
Sub Task_3()
'Â äàííîé äåéñòâèòåëüíîé êâàäðàòíîé ìàòðèöå À ïîðÿäêà N ïåðåñòàâèòü ñòðîêè ñîäåðæàùèå ìàõ è ìèí ýëåìåíòû.
Dim A() As Integer, N As Integer, i As Integer, j As Integer, iTmp As Integer, iIndMax As Integer
Dim iIndMin As Integer, iMin As Integer, iMax As Integer, sStr As String
N = InputBox("Ðàçìåð ìàòðèöû:")
ReDim A(N, N)
iMax = 10: iMin = 50
For i = 0 To N
    For j = 0 To N
        A(i, j) = Int(Rnd * 40 + 10)
        sStr = sStr & A(i, j) & " "
        If A(i, j) < iMin Then iMin = A(i, j): iIndMin = i
        If A(i, j) > iMax Then iMax = A(i, j): iIndMax = i
    Next
    sStr = sStr & vbNewLine
Next
If iIndMin <> iIndMax Then
    For j = 0 To N
        iTmp = A(iIndMin, j)
        A(iIndMin, j) = A(iIndMax, j)
        A(iIndMax, j) = iTmp
    Next
End If
sStr = sStr & vbNewLine
For i = 0 To N
    For j = 0 To N
        sStr = sStr & A(i, j) & " "
    Next
    sStr = sStr & vbNewLine & " "
Next
MsgBox sStr
End Sub