Решение

Этап 1. Математическая часть

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

Const n = 10 i = 1 Если i <= n, то шаг 4, иначе 7 шаг 7 Ввести М(i) i = i + 1 шаг 3 i = 1 Если i <= n-1, то шаг 9, иначе шаг 18 Min = M(i) Pos = i j = i + 1 Если j <= n , то шаг 14, иначе шаг 16

Если М(i) >= Min, то Min =M(j) Pos =M(j) Temp = M(i) M(i) = M(Pos), M(Pos) = Temp иначе шаг 14 j = j + 1 шаг 11 i = i + 1 шаг 8 Если i <= n, то шаг 19, иначе шаг 22 Вывести М(i) i = i + 1 шаг 18 21. конец

Этап 2. Ввод данных в таблицу Excel

В ячейки А1:A10 вводится элементы массива М(i).

Этап 3. Определение переменных.

Константа n = 10 размер массива M(10)

Вводится: массив М(i) (Single).

Выводятся (результат): массив М(i) (Упорядоченный массив, (Single)).

Промежуточные переменные: i – счетчик цикла с параметром (Integer), j – счетчик, вспомогательная переменная для сортировки (Integer), Pos – счетчик, вспомогательная переменная для сортировки (Integer), Temp – вспомогательная переменная для перестановки элементов при сортировке, Min – вспомогательная переменная для обозначения минимального элемента при сортировке.

Этап 4. Написание процедуры.

На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).

Переименовать Кнопку в режиме конструктора. Вызвать контекстное меню ПКМ  Свойства  закладку Alhpabetic  Caption  в Поле ввода ввести новое название кнопки Нахождение минимального элемента.

Написать Процедуру-Событие для Кнопки «Нахождение минимального элемента»:

Private Sub CommandBatton1_Click()

'Описание констант

Const n As Integer = 10

'Описание переменных

Dim M(1 To n) As Single

Dim Temp As Single

Dim i As Integer

Dim ii As Integer

Dim Flag As Boolean

'Ввод массива из столбца А

For i = 1 To n

M(i) = Cells(i, 1).Value

Next i

'Сортировка массива методом пузырька

For i = 1 To n - 1

Min = M(i)

Pos = i

For j = i + 1 To n

If M(j) >= Min Then

Min = M(j)

Pos = j

Temp = M(i)

M(i) = M(Pos)

M(Pos) = Temp

Else

GoTo 1

End If

1: Next j

Next i

'Вывод массива в столбец C

Range("C1:C30").Clear

For i = 1 To n

Cells(i, 3).Value = M(i)

Next i

End Sub

Этап 5. Выполнение

Перейти на рабочий лист (ViewMicrosoft Excel или Alt+F11). Выйти из режима Конструктора. В ячейках А1:А12 вводится массив x(). Нажать Кнопку «Метод Пузырька». В диапазоне C1:C13 появится результат сортировки методом пузырька по убыванию (рис.6) .

Этап 6. Переименование листа Навести курсор на закладку Лист1, правой клавишей мыши (ПКМ) вызвать контекстное меню, выбрать пункт Переименовать, удалить старое название листа и с клавиатуры набрать новое М_Минимального_Элемента, нажать Enter.