- •Введение. Установка среды программирования
- •2. История языка Basic
- •3. Установка Visual Basic
- •Лабораторная работа №1. Интерфейс Visual Basic. Создание первого проекта
- •Теоретическая часть
- •1 . Первое знакомство
- •5. Стандартная панель инструментов
- •Практическая часть
- •Лабораторная работа №2. Изменение свойств компонентов. Метод Print
- •Теоретическая часть
- •1. Состав панели управления
- •2. Окно свойств и редактора кода
- •3. Свойства элементов управления
- •3.1 Свойства элемента Form
- •3.2 Свойства элемента TextBox
- •3.3. Свойства компонента CommandButton
- •Объект.Print [Список вывода]
- •Объект.Cls Практическая часть
- •Лабораторная работа №3. Работа с простейшим графическим объектом Visual Basic
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №4. Работа с арифметическими выражениями и функциями
- •Теоретическая часть
- •1. Арифметические выражения Visual Basic.
- •2. Встроенные функции Visual Basic
- •3. Функции преобразования
- •Str (число)
- •Val (символьное выражение)
- •Практическая часть
- •Лабораторная работа №5. Решение простейших математических задач с использованием линейных алгоритмов
- •Теоретическая часть
- •1. Типы данных
- •2. Объявление переменных
- •Public / Private / Dim Имя_переменной [As Тип_переменной]
- •Оператор_объявления_типа Строка_интервалов_имен
- •3. Константы Visual Basic
- •4. Область видимости переменной
- •Public / Private / Dim Имя_переменной [As Тип_переменной]
- •Имя_формы.Имя_переменной
- •Практическая часть
- •Лабораторная работа №6. Программирование ветвлений с использованием оператора If
- •Теоретическая часть
- •1. Конструкция If … Then … End If
- •2. Конструкция If … Then … Else … End If
- •3. Конструкция If … Then … Else If… End If
- •Практическая часть
- •Лабораторная работа №7. Программирование ветвлений с использованием оператора Case
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №8. Программирование циклов
- •Теоретическая часть
- •1. Цикл For…Next
- •2. Цикл For Each … Next
- •3. Цикл Do While … Loop
- •4. Цикл Do Until … Loop
- •5. Цикл Do … Loop While
- •6. Цикл Do … Loop Until
- •7. Цикл While … Wend
- •Практическая часть
- •Лабораторная работа №9. Разработка приложений для обработки массивов
- •Теоретическая часть
- •1. Объявление массивов
- •2. Массивы с фиксированной границей и динамические массивы.
- •UBound (имяМассива [, измерение]) Практическая часть
- •Лабораторная работа №10. Разработка приложений с использованием методов рисованИя графических примитивов
- •Теоретическая часть
- •1. Графическая поверхность
- •2. Графические примитивы
- •Практическая часть
- •Лабораторная работа №11. Построение графиков и диаграмм
- •Лабораторная работа №12. Применение пользовательских диалоговых окон
- •Теоретическая часть
- •1. Окно и функция InputBox
- •2. Окно MsgBox
- •MsgBox Текст сообщения [,Константа] [,Заголовок]
- •3. Функция MsgBox()
- •Практическая часть
- •Лабораторная работа №13. Разработка компьютерного теста с использованием Visual Basic
- •Теоретическая часть
- •Лабораторная работа №14. Создание пользовательского меню и панели инструментов
- •Теоретическая часть
- •Call Имя процедуры ([Список Параметров Вызова]),
- •Практическая часть
- •Лабораторная работа №15. Создание текстового редактора
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №16. Разработка мультимедиа-приложений
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №17. Макросы: запись, запуск, чтение
- •Теоретическая часть
- •Обычно макрос содержит следующие элементы.
- •Практическая часть
- •Лабораторная работа №18. Создание форм рабочего листа
- •Теоретическая часть
- •1. Когда необходимо использовать vba в Excel
- •2. Объект Application
- •3. Объект Workbook
- •4. Объект Worksheet
- •5. Объект Range
- •Инициализация и отображение диалогового окна
- •Практическая часть Создание пользовательской формы
- •Создание пользовательской формы
- •Практические задания по программированию на vba
- •Лабораторная работа №19. Создание книги лабораторных работ с автоматизированным выбором страниц книги
- •Практическая часть
- •Лабораторная работа №20. Моделирование процессов
- •Теоретическая часть
- •Лабораторная работа №21. Создание сводных таблиц в vba
- •Теоретическая часть Практическая часть
- •Лабораторная работа №22. Работа с компонентом Chart
- •Теоретическая часть Практическая часть
- •Лабораторная работа №23. Работа с базами данных в Visual Basic
- •Теоретическая часть Практическая часть
- •Лабораторная работа №24. Работа с базами данных в Excel с использованием Visual Basic
- •Теоретическая часть Практическая часть
- •Лабораторная работа №25. Обработка данных на рабочем листе Теоретическая часть Практическая часть
Лабораторная работа №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