Информатика: Сборник лабораторных работ по программированию в среде Visual Basic for Applications, страница 11

Окно сообщения позволяет пользователю программы делать выбор, но не предоставляет возможность ввода данных в ответ на сообщение. Для этого существует специальное диалоговое окно - окно ввода (inputbox).

Окно ввода содержит:

- сообщение, указывающее пользователю, что нужно ввести;

- текстовую строку (окно), где вводятся данные;

- две командные кнопки OK, Cancel для подтверждения или отмены введенных данных.

Настройка диалогового окна ввода

Функция окна ввода имеет формат:

userinput = InputBox (prompt,[ title],[default])

Эта функция во многом напоминает окно сообщения с возвращенным значением.

Параметры функции:

prompt - сообщение, выводимое пользователю и указывающее на то, что требуется ввести, текст внутри сообщения автоматически переносится на другую строку (длина сообщения до 1024 символов).

title - определяет текст, выводимый в строке заголовка окна ввода. Параметр необязательный.

default - используется, если указывается начальное значение в поле редактирования окна ввода. Это значение   пользователь   может   принимать,   изменять, модернизировать

В функции InputBox задаются только предопределенные командные кнопки OK и Cancel.

Пример 4. Приведемследующий программный код

Sub

Title = "Имя"

Prompt = " Введите ваше имя"

Userinput = InputBox (prompt,title)

End Sub.

В результате выполнения данного кода формируется окно вида:

Рис.10

Задания для самостоятельной работы

1.  Создать диалоговое окно со значком запроса (задать константой), и кнопками Retry(Повтором) и Cancel(Отменой). Текст сообщения  – “ Не удается найти диск A”

2.  Создать диалоговое окно, запрашивающее от пользователя подтверждения выхода из программы с кнопками Ok и Cancel.(Отменить)

3.  Создать диалоговое окно информационного характера (значок задать числом), Текст окна “Добро пожаловать в Excel!”с  кнопкой Ok

4.  Создать диалоговое окно, запрашивающее у пользователя подтверждение (значок задать константой) о выходе из программы и создать две кнопки Yes(Да) и No(Нет).

5.  Создать диалоговое окно с критическим сообщением (значок задать числом) о том, что при загрузкеWindows произошла ошибка. Операцию можно Retry(Повторить), Abort(Отменить) или Ignore(Проигнорировать ошибку и продолжить  работу).

6.  Создать диалоговое окно с помощью InputBox, запрашивающее от пользователя ввести пароль для входа в систему с кнопками Ok и Cancel(Отменить).

7.  Создать диалоговое окно с запросом (значок задать числом), надо ли очистить всё содержимое корзины. Варианты ответа –Yes(Да) и No(Нет).

8.  Создать диалоговое окно с критической ошибкой (значок задать константой) о невозможности закрытия программы. Операцию можно повторить или отменить.

9.  Создать диалоговое окно с помощью функции InputBox, запрашивающее от пользователя ввода его имени с  кнопками Yes(Да) и Cancel(Отменить)

10.Создать диалоговое окно, информационного характера (значок задать числом). В окне содержится информация о том, что вы успешно установили новый Windows с кнопкой Yes(Да)

Контрольные вопросы

1.  Назначение функции MsgBox.

2.  Ограничения на использование окон сообщения.

3.  Синтаксис функции MsgBox.

4.  Назначение функции MsgBox, возвращающей значение.

5.  Определение параметра options.

6.  Назначение функции InputBox

Лабораторная работа № 3.  Разветвляющиеся алгоритмы

Разветвляющимися алгоритмами называются алгоритмы, в которых в зависимости от выполнения  некоторого логического условия или от значения какого-либо выражения дальнейшие действия могут производиться по одному из нескольких направлений. Разветвляющиеся алгоритмы реализуются в VBA с помощью оператора условия If…Then и переключателя, реализуемого оператором SelectCase.

1. ОПЕРАТОРЫ УСЛОВИЯ IF...THEN