End with

Подзадача 4.5 – Работа кнопки Выход

Создайте макрос Выходи введите текст программы:

Application.Quit

Все программы для решения задачи 4 – Меню созданы.

Перейдем к программированию подзадач задачи 3 – Коман-дировки.

Подзадача 3.3 – Расчет суммы в ПФ

Откройте форму UserForm1:

Сервис-Макрос-Редактор Visual Basic. Если форма на экране не появилась, то выполните команду View-Project Explorer, затем откройте папку Forms и два раза щелкните по форме UserForm1.

В ПФ вызовите контекстное меню для поля Количество дней и выберите команду View Code (Исходный текст). На экране появится окно с первой и последней строками программы, которая будет выполняться при каждом изменении содержимого поля.

Private Sub TextBox2 Change().

End Sub

Между этими строками введите текст программы (комментарии можно не набирать):

‘текст программы, выполняемой при каждом

‘ изменении чисел в полях Количество дней, Суточные и Цена ‘билета.

‘ Проверяем, числа ли записаны

‘ в поля ввода TextBox2, TextBox3, TextBox4.

‘ Если в этих поля записаны числа,

‘то преобразуем ‘ содержимое каждого поля в целое

‘ и запоминаем‘ в переменной,

‘ три следующих строки можно записать в одну строку.

If IsNumeric(TextBox2.Text) And _

IsNumeric(TextBox3.Text) And _