Пакеты прикладных программ. Основы алгоритмизации. Язык программирования Pascal. Операторы, процедуры и функции, типы данныхРефераты >> Информатика >> Пакеты прикладных программ. Основы алгоритмизации. Язык программирования Pascal. Операторы, процедуры и функции, типы данных
Содержание
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) _