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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

If (CheckBox46.Value = True) And (CheckBox45.Value = False) And _

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

If (CheckBox48.Value = True) And (CheckBox49.Value = False) And _

(CheckBox50.Value = False) And (CheckBox51.Value = False) Then k = k + 1

If (CheckBox55.Value = True) And (CheckBox54.Value = False) And _

(CheckBox53.Value = False) And (CheckBox52.Value = False) Then k = k + 1

If (CheckBox57.Value = True) And (CheckBox56.Value = False) And _

(CheckBox58.Value = False) And (CheckBox59.Value = False) Then k = k + 1

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

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

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

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

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

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

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

If (k >= 25) 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\ Тест пройден Вариант 3.XLS"

End Sub

Процедура начала теста. Выбор варианта.

Private Sub CommandButton1_Click()

‘Запрос на введение фамилии, имени и группы

Application.Cells(8, 3) = InputBox("Введите фамилию", "Фамилия")

Application.Cells(9, 3) = InputBox("Введите имя", "Имя")

Application.Cells(10, 3) = InputBox("Введите группу", "Группа")

‘По счётчику случайных чисел выбор варианта теста

s = Int(Rnd() * 3 + 1)

Select Case s

Case Is = 1

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

Sheets("Вариант 1").Select

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

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

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

Case Is = 2

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

Sheets("Вариант 2").Select

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

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

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

Case Is = 3

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

Sheets("Вариант 3").Select

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

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

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

End Select

End Sub

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

Операторы

Истина или ложь?

Каждое утверждение либо верно, либо нет.

1. Составной оператор представляет собой никак не обозначенную последователь­ность некоторых операторов.

2. Оператор перехода предназначен для передачи управления в другую точку программы.

3. В Turbo Pascal предусмотрен единственный условный оператор — IF.

4. Операторы REPEAT и WHILE образуют в Turbo Pascal группу операторов цикла.

Найти верный ответ

Каждый из предложенных вопросов может иметь несколько правильных ответов.

5. Какой из следующих составных операторов соответствует правилам Turbo Pascal? a) end

a:=b+c;

a:=a/2;

Write(a)

begin;

б) begin

a:=b+c;

a:=a/2;

Write(a)

end;

в) begin;

a:=b+c;

a:=a/2;

Write(a)

end

6. Который из следующих условных операторов IF корректен? a) ifx>y thenz:=x/2 elsez:=у+2;

б) if a and b>c then d:=c+b;

в) if x>0 else x:=Sqrt(x) then x:=Sqr(x);

7. Какой из следующих условных операторов CASE свободен от ошибок?

a) case x

l:Write('пн')

2:Write('вт')

3:Write('ср')

4:Write('чт')

5:Write('пт')

6:Write('сб')

7:Write('bc')

б) case х of

l:Write('пн')

2:Write('вт')

3:Write('cp')

4:Write('чт')

5:Write('пт')

6:Write('сб')

7:Write('вс')

end;

в) case x of

1; Write('пн')

2; Write ('вт')

3; Write('cp')

4; Write( 'чт')

5;Write('пт' )

6; Write( 'сб')

7 ;Write('вс')

end;

8. Который из следующих операторов цикла WHILE корректен?

а) while a<100 do a:=a*2;

б) while a<50 else a:=a*3;

в) while a<200 then a:=a*4;

9. Какой из следующих операторов цикла REPEAT соответствует правилам Turbo Pascal?

А) repeat

WriteLn(a);

а:=а*3

until a>=300;

б) repeat

begin

WriteLn(a);

a:=a*3

end

until a>=300;

в) repeat

WriteLn(a);

а:=а*3

whilea>=300;

10. Который из следующих операторов цикла FOR свободен от ошибок?

а) for i:=l goto 5 do x:=Sqr(x);

б) for i:=l to 5 do x:=Sqr(x);

в) for i:=z downto a do Write (i) ;