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

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

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

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

Private Sub CommandBatton1_Click()

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

Dim x() As Single

Dim X1() As Single

Dim sr As Single

Dim n As Integer

Dim m As Integer

Dim i As Integer

'Количество элементов вводимого массива x()

m = 0

n = 1

Do Until (IsNumeric(Cells(n, 1).Value) = False)

m = m + 1

n = n + 1

Loop

'Переопределение массивов x() и X1()

ReDim x(1 To m) As Single

ReDim X1(1 To m) As Single

'Ввод массива x()

'Подсчет среднего арифметического

sr = 0

For i = 1 To m

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

sr = sr + x(i)

Next i

sr = sr / m

Range("c1").Value = "Среднее арифметическое равно -> " & sr

'Создание нового массива X1()

' и вывод его в столбец E

Range("E1:E100").Clear

For i = 1 To m

X1(i) = x(i) - sr

Cells(i, 5).Value = X1(i)

Next i

End Sub

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

Перейти на рабочий лист (View®Microsoft Excel или Alt+F11). Выйти из режима Конструктора. В ячейках А1:А12 вводится массив x(). Нажать Кнопку «Центрирование массива». В диапазоне E1:E12 появится результат отцентрированный массив X1(). (Рис.4)

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