Приложение 2

Ведомость выдачи заданий для самостоятельной работы по дисциплине «Информатика»

Преподаватель ___________________ Группа ___________

Продолжение прил. 2

Окончание прил. 2

Приложение 3

Программа тестирования

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

Общие требования к создаваемой учебной программе тестирования следующие:

•тестовые задания размещаются на рабочем листе;

•программа запускается при открытии файла и выдает результат тестирования только один раз (т.е. позволяет однократное выполнение теста);

•время тестирования ограничено и зависит от числа и сложности заданий;

•информация о студенте (фамилия, имя, группа) и результат по стобалльной шкале выводится на экран и сохраняется на рабочем листе.

Для создания программы необходимо выполнить следующие дейст-

1. Переведите целое число 74210 → Х2

Ответ:

2.Математический сопроцессор требуется для более эффективного выполнения операций над …

Выберите один или несколько ответов:

натуральными числами;

числами с фиксированной точкой; рациональными числами;

1 Команда: Вид – Панель инструментов – Элементы управления.

числами с плавающей точкой; текстом.

3.Арифметико-логическое устройство является неотъемлемой частью …

Выберите один или несколько ответов:

системной шины;

оперативной памяти;

микропроцессора; диджитайзера.

4.Для реализации логики алгоритма и программы, с точки зрения структурного программирования, не должны применяться …

Выберите один или несколько ответов:

SQL;

Java;

XML;

ADA.

6. Представленный фрагмент алгоритма имеет структуру ...

Выберите один или несколько ответов:

циклическую, с предусловием;

разветвляющуюся;

линейную; циклическую с постусловием

7. Элементы одномерного массива Х(N) имеют следующие значения:

Х(1)=2, Х(2)=1, Х(3)=2, Х(4)=0, Х(5)=─3, Х(6)=5.

Чему будет равно значение Р после выполнения фрагмента программы?

Р=1: N=6 FOR I=1 TO N P=P*X(I) NEXT I

Ответ:

Ответ:

9. Компьютерный вирус – это …

Выберите один или несколько ответов:

программа, способная размножаться и наносить ущерб информации;

программа, создающая собственные копии и наносящая вред аппаратуре ПК;

дефект в программе, заставляющий её делать нечто непредвиденное; программное средство перезаписи данныхс целью ихуничтожения;

программа для прерывания диалога пользователя с ПК.

10.Из нижеперечисленных адресов электронной почты выберите неверные.

Выберите один или несколько ответов:

trof-nn@sss.ru

uuu@vert@uy.su

yy@doty.rrr.com rt_tyyy@ret@up.uk

ab_c-d@uni.com

Завершить тест

Замечание

Количество тестовых заданий должно быть не менее двадцати.

В предложенном тесте приведены тестовые задания двух видов1 из разных разделов дисциплины.

Задания первого вида формулируются по обычной схеме в виде вопроса и четы-

'Процедура кнопки "Завершить тест" Private Sub CommandButton1_Click()

Dim s As Single 'количество правильных ответов

Rez s 'процедура вычисляет количество правильных ответов Prin s 'процедура выводит итоги тестирования на лист "Результат"

Лист1.CommandButton1.Visible = False 'делает кнопку "Завершить тест" невидимой

MsgBox ("Тестирование завершено. Всего заданий " & n & ". Правильных ответов " & s & ". Оценка в баллах: " & Round(s / n * 100, 0) & " из 100")

Clear 'очищает поля ввода и удаляет флажки в ответах End 'завершает выполнение программы

1 Допускаются другие виды тестовых заданий.

End Sub

V. Выполнить команду Insert-Module и в появившемся окне набрать следующий код:

'Глобальные переменные

Public fam As String 'фамилия

Public nam As String 'имя Public grup As String 'группа

Public n As Single 'количество тестовых заданий

Public t As Date 'среднее время, отведенное на выполнение одного задания в секундах (значение n*t определяет время тестирования)

'Процедура вывода итогов тестирования на лист "Результат"

If Лист1.TextBox1.Text = "1011100110" Then s = s + 1

If Лист1.CheckBox1.Value = False And Лист1.CheckBox2.Value = False And Лист1.CheckBox3.Value = False And Лист1.CheckBox5.Value = False And Лист1.CheckBox4.Value = True Then s = s + 1

If Лист1.CheckBox6.Value = False And Лист1.CheckBox7.Value = False And Лист1.CheckBox9.Value = False And Лист1.CheckBox8.Value = True Then s = s + 1

If Лист1.CheckBox11.Value = False And Лист1.CheckBox12.Value = False And Лист1.CheckBox13.Value = False And Лист1.CheckBox10.Value = True Then s = s + 1

If Лист1.CheckBox14.Value = True And Лист1.CheckBox15.Value = False And Лист1.CheckBox16.Value = False And Лист1.CheckBox17.Value = True And Лист1.CheckBox18.Value = False Then s = s + 1

If Лист1.CheckBox19.Value = True And Лист1.CheckBox20.Value = False And Лист1.CheckBox21.Value = False And Лист1.CheckBox22.Value = False Then s = s + 1

If Лист1.TextBox2.Text = "0" Then s = s + 1 If Лист1.TextBox3.Text = "12" Then s = s + 1

If Лист1.CheckBox23.Value = True And Лист1.CheckBox24.Value = False And Лист1.CheckBox25.Value = False And Лист1.CheckBox26.Value = False And Лист1.CheckBox27.Value = False Then s = s + 1

If Лист1.CheckBox28.Value = False And Лист1.CheckBox29.Value = True And Лист1.CheckBox30.Value = False And Лист1.CheckBox31.Value = True And Лист1.CheckBox32.Value = False Then s = s + 1

End Sub

'Процедура очищения полей ввода и удаления флажков в ответах

Public Sub Clear()

Лист1.CheckBox7.Value = False Лист1.CheckBox8.Value = False Лист1.CheckBox9.Value = False Лист1.CheckBox10.Value = False Лист1.CheckBox11.Value = False Лист1.CheckBox12.Value = False Лист1.CheckBox13.Value = False Лист1.CheckBox14.Value = False Лист1.CheckBox15.Value = False Лист1.CheckBox16.Value = False Лист1.CheckBox17.Value = False Лист1.CheckBox18.Value = False Лист1.CheckBox19.Value = False Лист1.CheckBox20.Value = False

Лист1.CheckBox21.Value = False Лист1.CheckBox22.Value = False Лист1.CheckBox23.Value = False Лист1.CheckBox24.Value = False Лист1.CheckBox25.Value = False Лист1.CheckBox26.Value = False Лист1.CheckBox27.Value = False Лист1.CheckBox28.Value = False Лист1.CheckBox29.Value = False Лист1.CheckBox30.Value = False Лист1.CheckBox31.Value = False Лист1.CheckBox32.Value = False End Sub

VI. Создать форму «Тест» с четырьмя метками Label1(Фамилия), Label2(Имя), Label3(Группа), Label4(для информации о количестве заданий и времени тестирования), два поля для ввода фамилии и имени, список

VII. Дважды нажать на кнопку «Начать тестирование» и в появившемся окне набрать две процедуры.

'Процедура кнопки "Начать тестирование" на форме "Тест"

Private Sub CommandButton1_Click()

Dim s As Single 'количество правильных ответов Dim t1 As Date 'текущее время в секундах

Dim t2 As Date 'время начала тестирования в секундах fam = TextBox1.Text

nam = TextBox2.Text grup = ListBox1.Text

UserForm1.Hide 'скрывает форму

t2 = Timer 'время суток в секундах (время начала тестирования)

Do While Timer < t2 + t * n t1 = Timer

Do While Timer < t1 + 1

DoEvents ' ожидает наступления события

Loop

Loop

Rez s 'вычисляет количество правильных ответов Prin s 'выводит данные на лист "Результат"

Лист1.CommandButton1.Visible = False 'делает кнопку "Завершить тест" невидимой

MsgBox ("Время закончилось. Всего заданий " & n & ". Правильных ответов " & s & ". Оценка в баллах: " & Round(s / n * 100, 0) & " из

100")

Clear 'очищает поля ввода и удаляет флажки в ответах

End Sub

ListBox1.AddItem "СИб-15Д1"

ListBox1.AddItem "СУЗ-15Д1"

ListBox1.AddItem "СУЗ-15П1"

Лист1.Select 'выбирает Лист1

Label4.Caption = "Всего заданий " & n & ". Время тестирования " & t * n & " мин"

Лист1.CommandButton1.Visible = True 'делает кнопку "Завершить тест" видимой

End Sub

VIII. В окне Project Explorer дважды нажмите на элемент «Эта книга» и в появившемся окне наберите процедуру.

'Процедура запускается при открытии книги