Глава 4. С помощью одного числа, являющегося суммой чисел ЧисКод1 и ЧисКод2, можно одновременно установить опре­деленную пиктограмму и определенную комбинацию кно­пок

С помощью одного числа, являющегося суммой чисел ЧисКод1 и ЧисКод2, можно одновременно установить опре­деленную пиктограмму и определенную комбинацию кно­пок, размещенных на панели сообщений. Например, число 36 можно рассматривать как сумму чисел 32 (код пиктог­раммы «Вопрос») и 4 (код комбинации кнопок Да, Нет). В этом случае функция MsgBox выводит панель сообщений с текстом, пиктограммой, содержащей знак вопроса, и кноп­ками Да, Нет. Нажатие на кнопку приводит к вычислению значения функции, которое зависит от нажатой кнопки (табл. 4.5).

Таблица 4.5. Значения функции MsgBox

Нажатая кнопка	Значение функции
ОК
Отмена
Стоп
Повтор
Пропустить
Да
Нет

Разработаем проект, который позволит контролировать знания. Алгоритм контроля должен последовательно реали-зовывать следующие операции:

• задать (напечатать) вопрос;

• запросить ответ и запомнить введенное с клавиатуры зна­чение;

• полученный ответ сравнить с правильным и, в зависимо­сти от выполнения или невыполнения этого условия, реа­лизовать различные действия.

Сначала реализуем регистрацию проверяемого с исполь-^зованием функций InputBox и MsgBox.

Проект «Проверка знаний»

1. Разместить на форме кнопку cmdl, задать значение На­чать проверку свойства Caption. Создать событийную процедуру cmdl_Click ().

2. С помощью функции InputBox запросить имя и фами­лию и присвоить это значение строковой переменной strA, а с помощью функции MsgBox вывести результаты регистрации:

Основы алгоритмизации и программирования

Dim strA As String, bytB As Byte

Sub cmdl_Click()

strA = InputBox ("Введите ваше имя и фамилию:

"Регистрация")

bytB = MsgBox("Уважаемый " + strA + ",

Вы готовы к проверке знаний?", 36,

"Конец регистрации")