Лабораторная работа №13. Разработка компьютерного теста с использованием Visual Basic
Цель работы: научиться составлять программы для проверки знаний, используя различные стандартные компоненты и диалоговые окна; закрепить полученные навыки работы в среде Visual Basic, полученные при выполнении предыдущих лабораторных работ
Теоретическая часть
Тестирование широко применяется для оценки уровня знаний в учебных заведениях, при приеме на работу, для оценки квалификации персонала учреждений, т.е. практически во всех сферах деятельности человека. Испытуемому предлагается ряд вопросов (тест), на которые он должен ответить. Обычно к каждому вопросу дается несколько вариантов ответа, из которых надо выбрать правильный. После того, как испытуемый ответ на все вопросы, подсчитывается количество правильных ответов, и на основе этой информации выставляется оценка.
Постановка задачи.
В результате анализа используемых на практике методик тестирования были сформулированы следующие требования к программе тестирования:
программа должна работать с тестом ограниченной длины, т.е. количество вопросов ограничено (вариант работы программы с тестом произвольной длины, т.е. без ограничения на количество вопросов в тесте рассмотрите самостоятельно в соответствующей литературе);
для каждого вопроса может быть до 4 возможных вариантов ответа;
вопрос может сопровождаться иллюстрацией;
результат тестирования должен быть отнесен к одному из четырех уровней (например, «отлично», «хорошо», «удовлетворительно» или «неудовлетворительно»);
тест может начинаться с регистрации пользователя, т.е. ввода данных (ФИО, номер группы) и предложения о начале тестирования, которое пользователь может принять или отклонить;
в программе должна быть заблокирована возможность возврата к предыдущему вопросу.
П
ример
внешнего вида приложения во время работы
приведен на Рис.13.1.
Ход работы.
Создайте папку Лабораторная_работа_№13, а в ней папку 13.1.
Запустите программу Microsoft Visual Basic 6.0.
В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».
Расположите на форме 4 компонента Option Button, 4 компонента CheckBox, 2 кнопки («Начать» и «Инструкция»), 1 компонент TextBox для задания вопросов и Label для вывода результата. Примерный вид формы – на Рис.13.2, свойства компонентов – в Таблице 13.1.
Таблица 13.1 – Свойства компонентов приложения «Тест»
Компонент |
Свойство |
Значение |
|
Form1 |
Caption |
Тестирование |
|
Name |
frmТест |
||
Color, Font, Width, Height |
По своему усмотрению |
||
MinButton, MaxButton, ControlBox |
False |
||
Label1 |
Caption |
|
|
Font |
По своему усмотрению |
||
BorderStyle |
1 – Fixed Single |
||
BackColor |
0 - Transparent |
||
Appearance |
1 – 3D |
||
Alignment |
2 - Center |
||
Option1..Option4 |
Caption |
|
|
Check1..Check4 |
Caption |
|
|
Text1 |
Text |
|
|
Multiline |
True |
||
Font |
По своему усмотрению |
||
У всех расположенных компонентов (Label, Option, Check, Text) свойство Visible = false |
|||
Command1 |
Caption |
Начать тестирование |
|
Command2 |
Caption |
Инструкция |
|
Опишите в разделе General две переменных целочисленного типа: переменную Number типа Integer для перехода к следующему вопросу, и переменную X типа Byte для подсчета правильных ответов:
Dim Number As Integer
Dim X As Byte
Напишите процедуру обработки щелчка мышью по кнопке «Начать» и разберитесь в программном коде (каким образом осуществляется проверка правильности ответа):
Private Sub Command1_Click()
Label1.Visible = False
Number = Number + 1
Select Case Number
Case 1
Text1.Visible = True
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Text1.Text = "Как звали Пушкина?"
Option1.Caption = "Александр Сергеевич"
Option2.Caption = "Николай Васильевич"
Option3.Caption = "Михаил Юрьевич"
Option4.Caption = "Владимир Владимирович"
Command2.Visible = False
Command1.Caption = "ДАЛЕЕ"
Case 2
If Option1.Value = True Then X = X + 1
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Check1.Visible = True
Check2.Visible = True
Check3.Visible = True
Check4.Visible = True
Text1.Text = "Какие произведения написал Пушкин А.С.?"
Check1.Caption = "Буря"
Check2.Caption = "Евгений Онегин"
Check3.Caption = "Обломов"
Check4.Caption = "Ромео и Джульетта"
Case 3
If ((Check1.Value = 1) And (Check2.Value = 1)) Then X = X + 1
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Option4.Visible = True
Check1.Visible = False
Check2.Visible = False
Check3.Visible = False
Check4.Visible = False
Text1.Text = "Кто написал стихотворение 'Белая береза'?"
Option1.Caption = "Владимир Маяковский"
Option2.Caption = "Сергей Есенин"
Option3.Caption = "Агния Барто"
Option4.Caption = "Игорь Северянинов"
Case 4
If Option2.Value = True Then X = X + 1
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text1.Text = "Как звали лже-царя, про которого написал поэму Пушкин?"
Option1.Caption = "Владимир Мономах"
Option2.Caption = "Иван IV"
Option3.Caption = "Борис Годунов"
Option4.Caption = "Василий III"
Case 5
If Option3.Value = True Then X = X + 1
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text1.Text = "Кто из нижеперечисленных не является писателем или поэтом?"
Option1.Caption = "Лермонтов"
Option2.Caption = "Тютчев"
Option3.Caption = "Фет"
Option4.Caption = "Айвазовский"
Command1.Caption = "ПРОВЕРИТЬ"
Case 6
If Option4.Value = True Then X = X + 1
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Text1.Visible = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Label1.Visible = True
Select Case X
Case 0
Label1.Caption = "Вы не ответили верно ни на один вопрос. Ваша оценка - 2 (неудовлетворительно). Вам нужно выучить тему и пересдать тест."
Case 1
Label1.Caption = "Вы ответили верно на " + Str(X) + " вопрос. Ваша оценка - 2 (неудовлетворительно). Вам нужно выучить тему и пересдать тест."
Case 2
Label1.Caption = "Вы ответили верно на " + Str(X) + " вопроса. Ваша оценка - 2 (неудовлетворительно). Вам нужно выучить тему и пересдать тест."
Case 3
Label1.Caption = "Вы ответили верно на " + Str(X) + " вопроса. Ваша оценка - 3 (удовлетворительно). Вам нужно лучше готовиться."
Case 4
Label1.Caption = "Вы ответили верно на " + Str(X) + " вопроса. Ваша оценка - 4 (хорошо). Молодец, но можно было и лучше."
Case 5
Label1.Caption = "Вы ответили верно на " + Str(X) + " вопросов. Ваша оценка - 5 (отлично). МОЛОДЕЦ!!! Просто М-О-Л-О-Д-Е-Ц!!!."
End Select
Command1.Caption = "ВЫХОД"
Case 7
End
End Select
End Sub
Напишите процедуру, осуществляющую сброс (обнуление) переменной-счетчика и переменной результатов:
Private Sub Form_Activate()
Number = 0
X = 0
End Sub
Напишите процедуру обработки события, происходящего при загрузке формы:
Private Sub Form_Load()
Dim Name As String
Name = InputBox("Введите свое имя", "Имя")
a = MsgBox("Здравствуйте, " + Name + "! Вы хотите начать тестирование?", vbYesNo + vbQuestion, "Тестирование")
If a = 6 Then
Command1.Visible = True
Command2.Visible = True
Else
End
End If
End Sub
Д
обавьте
к приложению вторую форму, выбрав на
панели меню команду Add
Form.
Расположите на второй форме компоненты Label и CommandButton. Примерный вид формы «Инструкция приведен на Рис.13.3.
Напишите процедуру обработки щелчка мышью по кнопке «Инструкция»:
Private Sub Command2_Click()
Form2.Visible = True
End Sub
Напишите процедуру обработчика события Click по кнопке «Перейти к тестированию», расположенной на второй форме:
Private Sub Command1_Click()
frmТест.Visible = True
Form2.Visible = False
End Sub
Сохраните проект (выбрав File – Save frmТест.frm и Save Тест.vbp) в папке 13.1
Проверьте работоспособность проекта, запустив его на выполнение.
Создайте exe-файл программы с помощью команды File → Make Тест.exe.
Выйдите из среды Visual Basic.
Запустите на выполнение файл Тест.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.
Задания для самостоятельного выполнения
Разработайте тест на 10 вопросов по одной из тем:
- тест по дисциплине «Отечественная история»
- тест по дисциплине «Основы алгоритмизации и программирования»
- тест по дисциплине «Русский язык»
- тест по дисциплине «Иностранный язык»
- тест по дисциплине «Экология»
- тест по дисциплине «Физика»
- тест по дисциплине «Химия»
- тест по дисциплине «Общая и профессиональная педагогика»
- тест по дисциплине «Менеджмент»
- тест по дисциплине «Компьютерная графика»
2. Разработайте тест на 10 вопросов, содержащий иллюстрации к каждому вопросу, по одной из тем:
- тест по программе Delphi 7
- тест по программе Adobe Photoshop
- тест по программе Corel Draw
- тест по программе AutoCad
- тест по программе 3Ds-Max
- тест по программе Microsoft Word
- тест по программе Microsoft Excel
- тест по программе Visual Basic
- тест по программе Turbo Pascal
- тест по программе Microsoft Power Point