На рабочем листе Лист1 при помощи Элементов управления создать элемент Кнопка (СommandBatton1).
Переименовать Кнопку в режиме конструктора. Вызвать контекстное меню ПКМ ® Свойства ® закладку Alhpabetic ® Caption ® в Поле ввода ввести новое название кнопки Максимальное число и его номер.
Написать Процедуру-Событие для Кнопки «Максимальное число и его номер»:
Private Sub CommandBatton1_Click()
'Декларация констант -
'n количество элементов массива
Const n As Integer = 20
'Декларация переменных
Dim a(1 To n) As Single
Dim Max As Single
Dim i As Integer
Dim k As Integer
'Ввод массива из ячеек A1:A20
Range("a1").Activate
For i = 1 To n
a(i) = Cells(i, 1).Value
Next i
'Поиск максимального элемента
'и его номера
Max = a(1)
k = 1
For i = 1 To n
If Max < a(i) Then
Max = a(i)
k = i
End If
Next i
'Вывод полученных результатов
Range("C1").Value = "Максимальный элемент равен " & Max
Range("C2").Value = "Номер Максимального элемента равен " & k
End Sub
Этап 5. Выполнение.
Перейти на рабочий лист (View®Microsoft Excel или Alt+F11). Выйти из режима Конструктора. Нажать Кнопку «Максимальное число и его номер». В ячейке С1 появится результат «Максимальный элемент равен 15»,
в С2 Þ «Номер Максимального элемента равен 18» (рис.3).
Этап 6. Переименование листа. Навести курсор на закладку Лист1, правой клавишей мыши (ПКМ) вызвать контекстное меню, выбрать пункт Переименовать, удалить старое название листа и с клавиатуры набрать новое Максимум, нажать Enter.
