Тестирующая программа на vba (учебный пример)

В качестве учебного образца студентам предлагается использовать программную реализацию задачи тестирования в следующей постановке.

Даны группы, со списками студентов, перечень разделов изучаемой дисциплины, составленные студентами тесты по каждому разделу. Программа должна выбирать тестируемую группу, фамилию студента и раздел, по которому производится проверка знаний, поочередно загружать тестовые задания, обрабатывать полученные ответы и по результату тестирования выставлять каждому студенту оценку по 100-балльной шкале.

1. Описание исходных данных

Исходные данные программы размещаются в Excel на рабочих листах с именами: Группы, <наименования студенческих групп>, Разделы, <номера разделов дисциплины>.

Примеры рабочих листов с исходными данными представлены на рис. П.3.1 – П.3.4.

Рис. П.3.1. Рабочий лист Группы с кнопкой Запуск теста

Наименование группы (АД–07Д1, МТ–07Д1) на листе Группы и имя рабочего листа, содержащего ФИО студентов, должны совпадать.

Рис. П.3.2. Список студентов группы на рабочем листе АД–07Д1

Наименования разделов соответствуют названиям дидактических единиц государственного образовательного стандарта дисциплины.

Рис. П.3.3. Названия дидактических единиц на рабочем листе Разделы

Рабочие листы, содержащие тестовые задания по выбранной теме, обозначаются номерами соответствующих разделов.

Рис. П.3.4. Тестовые задания на рабочем листе с номером раздела 2

В первом столбце указываются имена графических bmp файлов, содержащих иллюстрации к вопросам. Правильные ответы на вопросы помечены цифрой 1 в первой колонке. Второй столбец содержит номера вопросов. В третьем столбце располагаются вопросы с вариантами ответов. В ячейку (2,4) записывается имя папки, которая содержит графические файлы тестовых заданий.

2. Результаты тестирования

На лист с наименованием группы по каждому студенту выводится следующая информация: общее количество заданий в тесте, число выполненных заданий, количество правильных ответов и оценка в баллах (целое значение от 0 до 100), вычисляемая по формуле: «Оценка»=Округлить(«Число правильно выполненных заданий»/«Число заданий в тесте»*100; 0).

Пример с результатом тестирования группы АД–07Д1, при условии, что в тесте всего 30 заданий, представлен на рис. П.3.5.

Рис.П.3.5. Результаты тестирования на листе АД–07Д1

3. Проектирование приложения

1. Загрузите Excel.

2. Выполните команду Сервис►Макрос►Редактор Visual Basic.

3. Вставьте форму командой Insert►UserForm.

4. Покажите Панель инструментов командой View►ToolBox.

5. Поместите на форме элементы управления (рис.П.3.6):

• Рамка (Frame1);

• Надпись (Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8);

• Комбинированное поле (ComboBox1, ComboBox2, ComboBox3);

• Окно с рисунком (Image1);

• Текстовое поле (TextBox1)

• Переключатель (OptionButton1, OptionButton2, OptionButton3, OptionButton4);

• Кнопка­ (CommandButton1, CommandButton2).

Рис. П.3.6. Форма с элементами управления

6. Установите для объектов следующие значения свойств:

Объект	Свойство	Значение
UserForm1	Caption	Тестирование
Label1	Caption	Группа
Label2	Caption	ФИО
Label3	Caption	Раздел
Label4	Caption	Вопрос
Label5	Caption	Всего заданий
Label6	Caption	Задание
OptionButton1	Caption	Ответ 1
OptionButton2	Caption	Ответ 2
OptionButton3	Caption	Ответ 3
OptionButton4	Caption	Ответ 4
CommandButton1	Caption	Далее
CommandButton2	Caption	Выход

Вид формы после изменения свойств объектов представлен на рис.П.3.7.

Рис. П.3.7. Форма проекта Тестирование

6. Откройте окно редактора кода командой View►Code, в котором наберите программный код приложения.