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

UptoLike

206
Рис. 15.6
5. Щёлкните по кнопке Дапоявится окно с сообщениемПоздравляем!”
6. Щелчком по кнопке ОК закройте это окно.
7. Повторно запустите программу Вопрос на выполнение (клавиша F5).
8. В появившемся окне сообщения щёлкните по кнопке Нет появится
окно с сообщениемПовторите задание 1!”
9. Щелчком по кнопке ОК
закройте это окно.
Пример 4
Создадим программу, которая предлагает пользователю сообщить
своё имя, а после ввода имени приветствует его. Для этого:
1. Создать новую процедуруподпрограмму «Приветствие» (см. пп. 4 и 5
примера 2).
2. Ввести следующий текст программы.
Public Sub Приветствие()
Dim Имя
Имя = InputBox(“Введите Ваше имя”)
MsgBox (“Привет,” & Имя)
End Sub .
3. Запустить подпрограмму на выполнение (нажать F5). Появится
диалоговое окно (рис. 15.7).
4. Введите в поле окна своё имя (например, Кирилл) и щёлкните по
ОК. Появится окно сообщения с текстом «Привет, Кирилл».
5.Сохраните свой модуль с подпрограммами (ФайлСохранить Книга).
6. Закройте окна Visual Basic и Excel.
14.4. Создание экранных форм
При создании большинства баз данных остро стоит вопрос о заполнении их
информацией. Как правило, пользователи этих баз обладают недостаточным
уровнем подготовки для прямого обращения к базам данных. Поэтому создают
так называемые АРМыавтоматизированные рабочие места для банковских
работников, медсестёр, кассиров и т.д. Ввод информации в АРМах