End Sub. кнуть по кнопке Начать Введите ваше имя и фамилию: I QK I

кнуть по кнопке Начать Введите ваше имя и фамилию: I QK I

проверку. с^ |

На появившейся диало­говой панели Регистра- \^_a„_mu_rf»_nXm

ция ввести в текстовое-------------------------- .„ятктш; -----

поле имя и фамилию.

Вторым аргументом функции MsgBox является числовое значение, которое одновременно задает тип выводимого ин­формационного окна и набор размещенных на нем кнопок.

4. Число 36 обеспечивает _{шшввяяшшя} "" "ЯН
вывод информационного ₉ -,

«• J Уеажгемыи Н«!01зйУге**юоич Выгогоэь к просеем энении?

окна типа «Вопрос», ко- ^

торое имеет две кнопки I д«- I Ы" I

Да и Нет. '

Щелчок по одной из кнопок приводит к возвращению функцией определенного числового значения (Да — 6, Нет — 7), которое присваивается числовой переменной

bytB.

5. С помощью условного оператора можно реализовать либо
выход из программы (щелчок по кнопке Нет), либо про­
должение работы и переход к проверке знаний (щелчок
по кнопке Да):

If bytB = 7 Then End

Вопрос задается с помощью функции InputBox, проверка правильности ответа производится с помощью оператора условного перехода If...Then...Else, а вывод информации о правильности или неправильности ответа — с помощью функции MsgBox в форме оператора (бесскобочная запись) и с числовым значением второго аргумента 0, что обеспечивает вывод информационного окна с одной кнопкой ОК.

6. Ввести в событийную процедуру программный код, реа­
лизующий проверку знаний с помощью последовательно-

Глава 4

сти вопросов. В переменной bytN накапливать количест­во неправильных ответов:

strC = InputBox("Чему равен 1 байт?", "Первый

вопрос")

If strC = "8 битов" Then MsgBox "Правильно!",

О, "Первый вопрос" _

Else MsgBox "Неправильно!", О, "Первый

вопрос": bytN = bytN + 1

strC = InputBox("Переведите десятичное число

5 в двоичную систему счисления:", "Второй

вопрос")

If strC = "101" Then MsgBox "Правильно!", 0,

"Второй вопрос" _

Else MsgBox "Неправильно!", 0, "Второй

вопрос": bytN = bytN + 1

MsgBox "Уважаемый " + strA + ", Вы сделали

" + Str(bytN) + " ошибок!", 0, "Конец опроса"

7. Запустить проект, прой-

Уважаемый Николай Угриноеич Вы сделали 0 сшибок!

ти регистрацию и отве­
тить на вопросы. Резуль­
тат будет выведен с | ~о*Т_

помощью панели сооб- ------------------------

щений функции Ms gBox.

Проект хранится в каталоге _{rn Dr4M} wr^

\textbook\VB\prjVB8\

\tPYthnnk\VR\nriVRR\ OU-HUM |kS3