Информатика в управлении и экономике. Боброва Л.В - 195 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

205
Public Sub Сообщение()
MsgBox(«Это моё первое окно сообщения»)
End Sub .
7. Запустить программу на выполнение (нажать F5). Появится окно (рис. 15.5)
Рис. 5
Рис. 15.5
Пример 3
Создадим программу, которая должна выводить окно сообщения с
вопросом «Вы закончили изучение функции MsgBox?» и двумя кнопками
ответа: Да и Нет. При ответе Да следует вывести окно с поздравлениями, а при
ответе Нет – с предложением повторить выполнение задания 1.
Для этого:
1. Создать новую процедуру (Вставка – Процедура).
2. В окне Добавить процедуру
ввести имя процедуры (Name) Вопрос,
установить переключатель Тип (Type) в положение Sub и щёлкнуть по ОК.
3. В открывшемся окне процедуры ввести в пустых строках между
заголовком и концом подпрограммы следующий текст:
Public Sub Вопрос()
Dim Ответ
Ответ = MsgBox(“Вы закончили изучение функции MsgBox?” ,VbYesNo)
If Ответ = VbYes Then
MsgBox (“Поздравляем!”)
Else
MsgBox (“Повторите задание 3.1”)
End If
End Sub
4. После запуска программы на выполнение (клавиша F5) появится окно
(рис. 15.6).

Страницы