Public Sub huh2()
Dim n As Integer, m As Integer, a As Integer, b As Integer
Dim tmp As Integer, d() As Integer
Dim i As Integer, j As Integer
Dim jmax As Integer, jmin As Integer
 
    n = InputBox("Введите количество строк массива")
    m = InputBox("Введите количество столбцов массива")
    a = InputBox("Введите нижнюю границу значений элементов массива")
    b = InputBox("Введите верхнюю границу значений элементов массива")
 
    ReDim d(n, m)
    Randomize
    For i = 1 To n
        For j = 1 To m
            d(i, j) = Int(a + Rnd * (b - a))
            Cells(i, j) = d(i, j)
            Cells(i, j + 2 + m) = d(i, j)
        Next j
    Next i
 
    For i = 1 To n
        jmax = 1
        jmin = 1
        For j = 2 To m
            If d(i, j) > d(i, jmax) Then
                jmax = j
            ElseIf d(i, j) < d(i, jmin) Then
                jmin = j
            End If
        Next j
        If jmax <> jmin Then
            tmp = d(i, jmax)
            d(i, jmax) = d(i, jmin)
            d(i, jmin) = tmp
            Cells(i, jmax) = d(i, jmax)
            Cells(i, jmin) = d(i, jmin)
        End If
    Next i
 
End Sub

Public Sub huh3()
Dim C() As Integer, B() As Double, i As Integer, j As Integer, k As Integer, x As Integer
N = InputBox("n")
ReDim C(1 To N)
For i = 1 To N
Randomize
C(i) = Int(10 * Rnd)
Cells(i) = C(i)
Next i
Max = C(1)
Min = C(1)
 For i = 1 To N
 Select Case C(i)
        Case Is > Max
    Max = C(i)
    nmax = i
        Case Is < Min
    Min = C(i)
    nmin = i
    End Select
Next i
MsgBox (" " & Min & "," & Max & " ," & nmin & ", " & nmax & "")
k = Max
Max = Min
Min = k
For i = 1 To N
If i = nmax Then C(i) = Max
If i = nmin Then C(i) = Min
Cells(9, i) = C(i)
Next i
End Sub