Лабораторная работа по Microsoft Visual Basic №2
Проект «Проверка знаний»
- Запустите программу Microsoft Visual Basic 6.0. Выбрать тип создаваемого проекта STANDART.EXE.
- Сменить свойство CAPTION у объекта FORM1 на «Проверка знаний».
- Разместить на форму кнопку cmd1, поменять свойство CAPTION на «Начать проверку». Создать событийную процедуру cmd1_Click().
- С помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с помощью функции MsgBox вывести результаты регистрации:
Dim strA As String, bytB As Byte, strC As String, bytN As Byte
Private Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию", "Регистрация")
bytB = MsgBox("Уважаемый(ая) " + strA + ",Вы готовы к проверке знаний?", 36, "Конец регистрации")
End Sub
- Разместить на форму кнопку cmdExit, поменять свойство CAPTION на «Выход». Создать событийную процедуру cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
- Запустите проект и щелкнуть по кнопке «Начать проверку». На появившейся диалоговой панели «Регистрация» ввести в текстовое поле имя и фамилию.
- С помощью условного оператора можно реализовать либо выход из программы (щелчок на кнопке НЕТ), либо продолжение работы и переход к проверке знаний (щелчок по кнопке ДА):
Dim strA As String, bytB As Byte
Private Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию", "Регистрация")
bytB = MsgBox("Уважаемый(ая) " + strA + ",Вы готовы к проверке знаний?", 36, "Конец регистрации")
If bytB = 7 Then End
End Sub
- Вопрос будет задаваться с помощью функции InputBox, проверка правильности ответа производится с помощью оператора условного перехода If…Then…Else, а вывод информации о правильности или неправильности ответа – с помощью функции MsgBox в форме оператора и с числовым значением второго аргумента 0, что обеспечивает вывод информационного окна с одной кнопкой ОК.
- Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности вопросов. В переменной strC содержится вопрос, а в переменной bytN будут накапливаться количество неправильных ответов:
Dim strA As String, bytB As Byte, strC As String, bytN As Byte
Private Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию", "Регистрация")
bytB = MsgBox("Уважаемый(ая) " + strA + ",Вы готовы к проверке знаний?", 36, "Конец регистрации")
If bytB = 7 Then End
strC = InputBox("Чему равен 1 байт?", "Первый вопрос")
If strC = "8 битов" Then MsgBox "Правильно!", 0, "Первый вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
End Sub
- Аналогичным образом добавьте еще 4 вопроса:
Второй вопрос: Переведите десятичное число 5 в двоичную систему счисления:
Второй правильный ответ: 101
strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")
If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _
Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1
Третий вопрос: Совокупность данных, организованных по определенным правилам - это
Третий правильный ответ: база данных
Четвертый вопрос: Без каких объектов не может существовать база данных?
Четвертый правильный ответ: без таблиц
Пятый вопрос: В каких элементах таблицы хранятся данные базы?
Пятый правильный ответ: в ячейках
- Добавьте программный код, отвечающий за обработку количества правильных ответов:
MsgBox "Уважаемый(ая) " + strA + ", Вы сделали " + Str(bytN) + " ошибок", 0, "Конец опроса"
- Запустите проект, пройдите регистрацию и пройдите опрос. Результат будет выведен с помощью панели сообщений функции MsgBox.
- Придумайте еще 3 вопроса. Результат покажите учителю.
- Сохраните свой проект под именем «Проверка знаний» в свою папку.
