Содержание

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

2. Описание программных модулей, реализованных в тестирующей системе

3. Исходный текст тестов

4. Инструкция пользователю

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

Создать тестирующую программу по дисциплине «Основы алгоритмизации» на тему «Язык программирования Pascal. Операторы, процедуры и функции, типы данных», используя прикладную программу MSExcel.

2. Описание программных модулей, реализованных в тестирующей системе

Процедура обработки ответов на Вариант 1

Private Sub CommandButton1_Click()

‘Проверка ответов

If CheckBox1.Value = False Then k = k + 1

If CheckBox2.Value = True Then k = k + 1

If CheckBox3.Value = False Then k = k + 1

If CheckBox4.Value = False Then k = k + 1

If (CheckBox6.Value = True) And (CheckBox5.Value = False) _

And (CheckBox7.Value = False) Then k = k + 1

If (CheckBox8.Value = True) And (CheckBox10.Value = False) And _

(CheckBox9.Value = True) Then k = k + 2

If ((CheckBox8.Value = True) Or (CheckBox9.Value = True)) And _

(CheckBox10.Value = False) Then k = k + 1

If (CheckBox12.Value = True) And (CheckBox11.Value = False) And _

(CheckBox13.Value = False) Then k = k + 1

If (CheckBox14.Value = True) And (CheckBox15.Value = False) And _

(CheckBox16.Value = False) Then k = k + 1

If (CheckBox17.Value = True) And (CheckBox18.Value = False) And _

(CheckBox19.Value = False) Then k = k + 1

If (CheckBox21.Value = True) And (CheckBox22.Value = True) And _

(CheckBox18.Value = False) Then k = k + 2

If ((CheckBox21.Value = True) Or (CheckBox22.Value = True)) And _

(CheckBox18.Value = False) Then k = k + 1

If (CheckBox25.Value = True) And (CheckBox23.Value = False) And _

(CheckBox24.Value = False) Then k = k + 1

If (CheckBox27.Value = True) And (CheckBox26.Value = False) And _

(CheckBox28.Value = False) Then k = k + 1

If (CheckBox31.Value = True) And (CheckBox29.Value = False) And _

(CheckBox30.Value = False) Then k = k + 1

If (CheckBox32.Value = True) And (CheckBox33.Value = False) And _

(CheckBox34.Value = False) Then k = k + 1

‘Подсчёт количества правильных и неправильных ответов

‘Выставление оценки

Sheets("Титульный").Range("E13").Value = k

Sheets("Титульный ").Range("E12").Value = 16 - k

If (k < 8) Then Sheets("Титульный ").Range("E14").Value = "Неудовлетворительно"

If (k >= 8) And (k < 11) Then Sheets("Титульный ").Range("E14").Value = "Удовлетворительно"

If (k >= 11) And (k < 15) Then Sheets("Титульный ").Range("E14").Value = "Хорошо"

If (k >= 15) Then Sheets("Титульный ").Range("E14").Value = "Отлично"

‘Переход на титульный лист

Sheets("Титульный ").Visible = True

Sheets("Титульный ").Select

Sheets("Вариант2").Visible = False

Sheets("Вариант 1").Visible = False

Sheets("Вариант 3").Visible = False

‘Сохранение (копирование) документа в папку C:\TEMP с номером варианта

ActiveWorkbook.SaveCopyAs "C:\TEMP\Тест пройден Вариант 1.XLS"

End Sub

Процедура обработки ответов на Вариант 2

Private Sub CommandButton1_Click()

‘Проверка ответов

If CheckBox1.Value = False Then k = k + 1

If CheckBox2.Value = True Then k = k + 1

If CheckBox3.Value = True Then k = k + 1

If CheckBox4.Value = True Then k = k + 1

If CheckBox5.Value = True Then k = k + 1

If CheckBox6.Value = True Then k = k + 1

If CheckBox7.Value = False Then k = k + 1

If (CheckBox9.Value = True) And (CheckBox8.Value = False) _

And (CheckBox10.Value = False) Then k = k + 1

If (CheckBox13.Value = True) And (CheckBox12.Value = False) And _

(CheckBox11.Value = False) Then k = k + 1

If (CheckBox16.Value = True) And (CheckBox15.Value = False) And _

(CheckBox14.Value = False) Then k = k + 1

If (CheckBox18.Value = True) And (CheckBox17.Value = False) And _

(CheckBox19.Value = False) Then k = k + 1

If (CheckBox21.Value = True) And (CheckBox20.Value = False) And _

(CheckBox22.Value = False) Then k = k + 1

If (CheckBox25.Value = True) And (CheckBox24.Value = False) And _

(CheckBox23.Value = False) Then k = k + 1

If (CheckBox26.Value = True) And (CheckBox27.Value = False) And _

(CheckBox28.Value = False) Then k = k + 1

If (CheckBox30.Value = True) And (CheckBox29.Value = False) And _

(CheckBox31.Value = False) And (CheckBox32.Value = False) Then k = k + 1

If (CheckBox35.Value = True) And (CheckBox33.Value = False) And _

(CheckBox34.Value = False) And (CheckBox36.Value = False) Then k = k + 1

If (CheckBox40.Value = True) And (CheckBox37.Value = False) And _

(CheckBox38.Value = False) And (CheckBox39.Value = False) Then k = k + 1

If (CheckBox41.Value = True) And (CheckBox42.Value = False) And _

(CheckBox43.Value = False) And (CheckBox44.Value = False) Then k = k + 1

‘Подсчёт количества правильных и неправильных ответов

‘Выставление оценки

Sheets("Титульный ").Range("E11").Value = k

Sheets("Титульный ").Range("E12").Value = 18 - k

If (k < 6) Then Sheets("Титульный ").Range("E14").Value = " Неудовлетворительно "

If (k >= 6) And (k < 12) Then Sheets("Титульный ").Range("E14").Value = "Удовлетворительно "

If (k >= 12) And (k < 17) Then Sheets("Титульный ").Range("E14").Value = "Хорошо "

If (k >= 17) Then Sheets("Титульный ").Range("E14").Value = " Отлично "

‘Переход на титульный лист

Sheets("Титульный ").Visible = True

Sheets("Титульный ").Select

Sheets("Вариант 2").Visible = False

Sheets("Вариант 1").Visible = False

Sheets("Вариант 3").Visible = False

‘Сохранение (копирование) документа в папку C:\TEMP с номером варианта

ActiveWorkbook.SaveCopyAs "C:\TEMP\ Тест пройден Вариант 2.XLS"

End Sub

Процедура обработки ответов на Вариант 3

‘Проверка ответов

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then k = k + 1

If CheckBox2.Value = True Then k = k + 1

If CheckBox3.Value = True Then k = k + 1

If CheckBox4.Value = False Then k = k + 1

If CheckBox5.Value = False Then k = k + 1

If CheckBox6.Value = True Then k = k + 1

If CheckBox7.Value = True Then k = k + 1

If CheckBox8.Value = True Then k = k + 1

If CheckBox9.Value = False Then k = k + 1

If CheckBox10.Value = True Then k = k + 1

If CheckBox11.Value = False Then k = k + 1

If CheckBox12.Value = False Then k = k + 1

If (CheckBox14.Value = True) And (CheckBox13.Value = False) _