Ввод и вывод данных в процессе выполнения проекта может производиться различными способами. Наиболее часто для этого используются функции Окно ввода (InputBox) и Окно сообщений (MsgBox), а также значения свойства Text текстовых полей.
Проект 5.3. «Проверка знаний». Разработаем проект, который позволит контролировать знания. Алгоритм контроля должен последовательно реализовывать следующие операции:
- задать (напечатать) вопрос;
- запросить ответ и запомнить введенное с клавиатуры значение;
- полученный ответ сравнить с правильным и, в зависимости от выполнения или невыполнения этого условия, реализовать различные действия.
Регистрация.
Сначала
реализуем
регистрацию
проверяемого
с
использованием
функций InputBox и MsgBox.
|
Проект «Проверка
знаний». |
|
1 |
Разместить
на форме
кнопку cmd1
и
начать
создание
событийной
процедуры cmd1_Click(). |
|
2 |
С помощью функции InputBox запросить имя и фамилию и присвоить ее значение строковой переменной strA, а с помощью функции MsgBox, вывести результаты регистрации:
Private Sub cmd1_Click() strA
= InputBox("Введите
ваше имя и
фамилию:", "Регистрация") bytB = MsgBox("Уважаемый
" + strA + ", Вы
готовы к
проверке
знаний?", 36, "Конец
регистрации") End
Sub |
|
3 |
Запустить
проект и
щелкнуть по
кнопке Начать
проверку. На
появившемся
диалоговом
окне Регистрация
ввести в
текстовое
поле имя и
фамилию. |
|
В
функции MsgBox
второму
аргументу
присвоено
числовое
значение,
которое
одновременно
задает тип
выводимого
информационного
окна и набор
размещенных
на нем кнопок.
4 |
Число 36
обеспечивает
вывод
информационного
окна типа Вопрос,
которое
имеет две
кнопки Да и Нет. |
|
Щелчок по
одно из
кнопок
приводит к
возвращению
функцией
определенного
числового
значения (Да
– 6, Нет – 7),
которое
присваивается
числовой
переменной bytB
5 |
С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке Нет), либо продолжение работы и переход к проверке знаний (щелчок по кнопке Да): If bytB = 7 Then End
|
Проверка
знаний.
Вопрос
задается с
помощью
функции InputBox,
проверка
правильности
ответа
производиться
с помощью
оператора
условного
перехода If-Then-Else,
а вывод
информации о
правильности
или
неправильности
ответа с
помощью
функции MsgBox
в форме
оператора (бесскобочная
запись) и
числовым
значением
аргумента 0,
что
обеспечивает
вывод
информационного
окна с одной
кнопкой OK.
6 |
Ввести
в
событийную
процедуру
программный
код,
реализующий
проверку
знаний в
виде
последовательности
вопросов. В
переменной bytN
накапливать
количество
неправильных
ответов: strC
= InputBox("Чему
равен 1 байт?:",
"Первый
вопрос") If
strC = "8 бит" Then MsgBox "Правильно!",
0, "Первый
вопрос" Else MsgBox "Неправильно!",
0, "Первый
вопрос": bytN = bytN + 1 strC
= InputBox("Переведите
десятичное
число 5 в
двоичную
систему
счисления:",
"Второй
вопрос") If
strC = "101" Then MsgBox "Правильно!",
0, "Второй
вопрос" Else MsgBox "Неправильно!",
0, "Первый
вопрос": bytN = bytN + 1 MsgBox
"Уважаемый
" + strA + ", Вы
сделали " + Str(bytN) +
" ошибок!", 0, "Конец
опроса" |
|
7 |
Запустить
проект,
пройти
регистрацию
и ответить
на вопросы.
Результат
будет
выведен с
помощью
информационного
окна
функции MsgBox. |
|
Вывод
результатов
контроля
знаний можно
реализовать
также с
использованием
текстовых
полей.
8 |
Разместить
на форме два
текстовых
поля txtName
и txtError
и
две
поясняющие
метки lblName
и lblError. |
|
9 |
Присвоить
свойству Text
текстовых
полей
значения
переменных strA
(содержит
регистрационные
данные) и bytN
(содержит
количество
ошибок): txtName.Text
= strA txtError.Text = Str(bytN)
|
|
10 |
Запустить
проект,
пройти
регистрацию
и проверку
знаний. На
форме
появятся
результаты. |
|
11 | Сохранить проект в файле prj3.vbp. |
5.12. Создать проект вычисления факториала числа. Предусмотреть визуализацию процесса вычисления факториала.
5.13. Создать проект, выводящий в текстовые поля текущее время и дату.