Пример фрагмента программы-теста знаний

Сформулируем постановку задачи:

Средствами Access и VBA создать приложение, позволяющее осуществить контроль знаний студентов по определенной дисциплине.

Предусмотреть:

1) чередование вопросов в произвольном порядке,

2) возможность выбора ответа из предложенного списка (не менее 3-х) с подсчетом количества набранных очков;

3) в конце теста осуществлять выдачу резюме;

1. Рассмотрим основные этапы решения задачи:

a) Создание таблицы с вопросами

b) Создание формы ввода

c) Разработка процедуры загрузки формы

d) Разработка процедуры нажатия кнопки

Предлагается следующая структура таблицы с вопросами:

n-номер вопроса

q-вопрос

un1-un3-ответы

n_true- номер правильного ответа

Создаём форму-тест:

Разрабатываем модули на VBA:

Option Compare Database

' переменные в области доступности модуля

'score-число правильных ответов, numb-число вопросов в таблице

'nom_q-номер очередного вопроса,Nz-номер вопроса, сгенерированного датчиком

Dim score As Integer, numb As Integer, nom_q As Integer, Nz As Integer

Dim db As Database, rst As Recordset

Dim q_test As String

Sub next_rec()

' Процедура перехода по записям

Nz = Int(Rnd * numb)

rst.MoveFirst

rst.Move Nz

txtq.Value = rst!q

txtun1.Value = rst!un1

txtun2.Value = rst!un2

txtun3.Value = rst!un3

nom_q = nom_q + 1

txtn.Value = nom_q 'вывод номера вопроса

txt_prv = rst!n_true 'вывод номера правильного ответа

End Sub

Private Sub cmd_next_Click()

' Процедура перехода к следующему вопросу

' gr.Value - номер выбранного переключателя

If gr.Value = rst!n_true Then score = score + 1

txtscore.Value = score

If nom_q = q_test Then ' последний вопрос

MsgBox "конец теста, правильных ответов " & score & " из " & q_test

DoCmd.Close

Else

Call next_rec

End If

End Sub

Private Sub Form_Load()

Dim db As Database, Nz As Integer

Randomize

Set db = CurrentDb

Set rst = db.OpenRecordset("select * from questions")

If rst.EOF = False Then

rst.MoveLast: numb = rst.RecordCount

q_test = InputBox("введите число вопросов в тесте, максимум " & numb)

If Not IsNumeric(q_test) Then Exit Sub

' влводим вопрос и ответы

Call next_rec

Else

MsgBox "в таблице нет записей "

End If

End Sub

Структура пояснительной записки

Пояснительная записка должна содержать не менее 20 листов машинописного текста. Пояснительная записка оформляется в строгом соответствии с ГОСТ 2.105-95 на листах бумаги формата А4. Листы пояснительной записки должны иметь сквозную нумерацию, считая с титульного (он не нумеруется). Исключения составляют листы программной документации, которые нумеруют в пределах каждого документа. Основной текст печатают шрифтом Times New Roman Cyr, размер шрифта 14, через 1,5 интервала (18 пт), на принтере с одной стороны листа, на бумаге белого цвета формата А4 (210 х 297 мм). Расстановка переносов - автоматически, красная строка – 1,5см, выравнивание – по ширине, без отступов. Все листы работы должны иметь поля: верхнее поле – 20 мм; нижнее поле – 20 мм; правое поле – 10 мм; левое поле – 30 мм.

Рекомендуется следующая структура:

- титульный лист

- задание на курсовое проектирование

- содержание

- введение

- общая часть

- специальная часть

- заключение

- приложения

- список литературы.

Во введении описывается, чему посвящена работа.

Введение должно содержать:

Ø актуальность темы проекта;

Ø цель исследования;

Ø задачи, которые необходимо решить для достижения цели;

Ø обзор приложений в рассматриваемой предметной области;

Ø краткое изложение основных результатов, полученных автором и выносимых на защиту.

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

В специальной части подробно описывается поставленная задача и процесс её решения.

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

В приложении должны быть модули, а также документы, которые могут быть получены при работе с базой данных.

Графическая часть

Графическая часть должна быть выполнена в виде презентации MS POWER POINT и содержать процесс технологии разработки базы данных и приложения. Рекомендуется следующее содержание слайдов:

1 Тема проекта, ФИО и группа автора.

2 Постановка задачи.

3 Концептуальная схема базы данных.

4 Описание работы приложения

5 Заключение