Алгоритм сортировки одномерного массива по возрастанию

Программа сортировки одномерного массива по возрастанию

Dim x(1 To 6), a As Single

Dim i, p As Integer

For i = 1 To 6

x(i) = Val(InputBox(" Введите " & i & " элемент массива "))

Next i

1: p = 0

For i = 1 To 5

If x(i) > x(i + 1) Then a = x(i): x(i) = x(i + 1): x(i + 1) = a : p = 1

Next i

If p = 1 Then GoTo 1 ‘ Если были перестановки (р=1), то переход к метке 1

Debug.Print "Упорядоченный по возрастанию массив "

For i = 1 To 6

Debug.Print x(i)

Next i