Сортировка выбором\вставками

[dimas6000]

Помогите найти ошибки, пожалуйста.

Дано задание на vba "Сортировка выбором по возрастанию с поиском и минимума, и максимума"
Реализовал, в большинстве случаев работает, но например массив "99,99,88,87,66,55,44,33,22,11" обрабатывает некорректно

Const n As Integer = 10
Dim a(n) As Integer
For i = 1 To n Step 1
a(i) = Cells(i, 1)
Next i

For i = 1 To n Step 1
    Min = i
    Max = n - i + 1
    For j = i + 1 To n - i + 1
        If a(j) < a(Min) Then
            Min = j
        End If
        If a(j) > a(Max) Then
            Max = j
        End If
    Next j
    If Min <> i Then
        temp = a(i)
        a(i) = a(Min)
        a(Min) = temp
    End If
    If Max <> n - i + 1 Then
        temp = a(Max)
        a(Max) = a(n - i + 1)
        a(n - i + 1) = temp
    End If
Next i

For i = 1 To n Step 1
Cells(i, 12) = a(i)
Next i
End Sub

И ещё тут какую-нибудь подсказку можно?)
Дано задание "Сортировка вставками по возрастанию с просмотром массива слева/справа"
Как должен реализовываться просмотр справа? Просмотр слева реализовать получилось, но не понимаю как его изменить, для просмотра справа, пробовал делать i от n-1 до 1 через while, ещё как-то пробовал, корректно ничего не хочет работать.

    Const n As Integer = 10
    Dim a(n) As Integer
    For i = 1 To n Step 1
        a(i) = Cells(i, 1)
    Next i
    
    
    For i = 2 To n Step 1
        Key = a(i)
        j = i - 1
        Do While j >= 1 And a(j) > Key
                a(j + 1) = a(j)
                j = j - 1
        Loop
        a(j + 1) = Key
    Next i
    
    For i = 1 To n Step 1
        Cells(i, 17) = a(i)
    Next i

[roborrr]

[QUOTE=dimas6000;1319409]Помогите найти ошибки, пожалуйста.

Дано задание на vba "Сортировка выбором по возрастанию с поиском и минимума, и максимума"
Реализовал, в большинстве случаев работает, но например массив "99,99,88,87,66,55,44,33,22,11" обрабатывает некорректно

убери с кода вот этот часть:
If Max <> n - i + 1 Then
temp = a(Max)
a(Max) = a(n - i + 1)
a(n - i + 1) = temp
End If
и код будет правильно работать.

[dimas6000]

Сообщение от roborrr

убери с кода вот этот часть:
If Max <> n - i + 1 Then
temp = a(Max)
a(Max) = a(n - i + 1)
a(n - i + 1) = temp
End If
и код будет правильно работать.

Так он тогда вообще работать станет неверно, ведь максимум и минимум будут выбираться(пусть и неверно), но менять позицию в массиве будет лишь минимум, а с максимумом ничего не будет происходить.

[roborrr]

достаточно менять только минимумы. большие числа автоматический будут переброшены в конец. а вы пробовали как я сказал?

[dimas6000]

Сообщение от roborrr

достаточно менять только минимумы. большие числа автоматический будут переброшены в конец. а вы пробовали как я сказал?

Да, пробовал как вы говорили. Менять лишь минимумы мне недостаточно, ибо это тогда будет сортировка выбором с поиском минимума, а по условию задания необходимо искать одновременно и минимум, и максимум.

[roborrr]

в восьмом строке кода, Max = n - i + 1 замените на Max = i . то есть поиск и максимума и минимума начните с одинаковой позиции.