- Для создания формы в книге Excel необходимо выполнить следующее:
3.1. Перейти в редактор Visual Basic (Сервис/ Макрос/ Редактор Visual Basic).
3.2. В меню редактора выбрать команду Вставка/ User Form.
3.3. В окне Свойства в поле Caption ввести заголовок формы.
3.4. Нанести на форму элементы управления: метки, поля ввода и кнопку. Элемент управления выбирается на панели и рисуется мышью нужном месте формы. Далее в окне Свойства определяются его свойства. Некоторые свойства, например подпись (Caption) для метки можно определить прямо на форме: щёлкнуть по надписи и ввести новое значение (рис. 1)
Рис. 1
- Для создания программного кода необходимо:
4.1. Дважды щёлкнуть по кнопке на форме, после чего появится заготовка для процедуры, обрабатывающей нажатие данной кнопки пользователем (рис. 2, 3)
Рис.2
Рис. 3
4.2. После заголовка процедуры допишите программу.
5. Запустить приложение на выполнение, можно нажав кнопку (Запуск подпрограммы/ User Form). Остановить выполнение программы (при ошибке) можно кнопкой (Сброс).
Порядок выполнения задания:
- нанесём на форму следующие элементы:
· метку Label1. Свойство Caption – а;
· поле ввода Textbox 1 для переменной а;
· далее, ещё две метки Label 2, Label 3 и для поля ввода Textbox 2, Textbox 3 для переменных b и c;
· кнопку Command Button 1. Свойство Caption – определить максимальное.
· Метку Label 4 для вывода результата. На этой метке не должно быть надписи (Поле Caption - пустое).
- Запишем следующую подпрограмму обработки события – щелчка мыши по кнопке:
Private Sub Command Button 1_Click ()
‘ Описание переменных
Dim a, b, c, max As Integer
' Определение переменных
a= TextBox1.Value
b= TextBox2.Value
c= TextBox3.Value
‘ находим максимальное число
‘ Если a<b, то максимум = b, иначе максимум = а.
If a <b Then
Max = b
Else: max = a
End If
‘ Если максимум <c, то максимум = с.
If max < c Then
Max = c
End If
‘ Вывод результата
Label4.Caption = «максимальное число равно» & max
End Sub
- результат работы программы: