Диалоговые окна приложения.

Программы на Visual Basic могут вызывать все диалоговые окна, существующие в программах MS Office. Однако эти диалоговые окна действуют не так, как описанные выше, и возвращают программе на Visual Basic без изменений какой-либо таблицы или ячейки. Если Вы вызываете диалоговое окно, то оно не возвращает значения программе Visual Basic, а осуществляет свои нормальные функции.

В связи с тем, что диалоговые окна приложения применяются к текущему отображаемому объекту, не отображайте диалоговое окно вне контекста: так как это приведет к ошибке выполнения.

Для вызова диалогового окна приложения пользуйтесь набором Dialogs объекта Application. Для поиска доступных диалоговых окон и констант воспользуйтесь Object Browser, выбрав объект Constants из библиотеки MS Office (нужные константы начинаются с xlDialog).

Следующая процедура отображает диалоговое окно FormatNumber:

Sub TestDialog2()

Application.Dialogs(xlDialogFormatNumber).Show

End Sub

Чтобы выполнить эту процедуру, запишите ее на странице модуля, переключитесь на MS Office, укажите директиву Tools/Macro, выберите процедуру TestDialog2(), затем нажмите кнопку Run.

Ход работы.

В ходе работы необходимо подготовить презентацию-тест по заданной теме с элементами мультипликации.

Н еобходимо создать 29 слайдов презентации-теста по основам булевой алгебры для практических занятий по курсу Информатики (рисунок 4):

1. Создать Слайд №1 - титульный слайд.

Выделить первый слайд в меню Слайды (слева от основного изображения)→Меню→Главная →Макет→Выбрать “пустой слайд”.

Вставить текст (рисунок 5) Меню→Вставка→WordArt→Выбрать стиль→на изображении слайда появиться макет текста. Оформление слайда согласно рисунка 5 с учетом личных интересов.

Создать объект Кнопка из Меню→Разработчик→Элементы управления→Кнопка→щелкнуть правой клавишей мышки по изображения слайда. Передвинуть за маркеры кнопку согласно рисунка 5

Выделить созданный объект «Кнопка», вызвать контекстное меню и выбрать пункт «Свойства». В появившемся окне «Properties» (Свойства) в поле «Caption» ввести текст «Далее» и настроить вид шрифта. Изменить размеры кнопки, двигая маркеры согласно рисунка 5.

Чтобы настроить презентацию, необходимо добавить несколько процедур обработки событий на встроенном языке программирования VBA.

Сделать активным слайд №1 презентации и выделить кнопку «Запустить тест», щелкнув по ней кнопкой мыши один раз.

Перейти в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Запустить тест». В появившемся окне редактора VBA автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки, добавив следующий код процедуры:

Sub CommandButton1_Click()

kolvopros = 0 'обнуляем счетчик количества ответов

koltrue = 0 'обнуляем счетчик правильных ответов

Pro = 0 'обнуляем счетчик процентов выполненного задания

For nomer = 1 To 8

Vopros(nomer) = 0 'обнуляем массив использованных вопросов и ответов

Next nomer

Slide40.Label1.Caption = "" 'обнуляем содержимое таблицы результатов

Slide40.Label2.Caption = ""

Slide40.Label3.Caption = ""

Slide40.Label4.Caption = ""

formbegin

strelka

a = 1 'нижняя граница для случайного выбора

b = 8 'верхняя граница для случайного выбора

c = sluch(a, b) 'случайного числа от a до b

Vopros(c) = 1 'этот вопрос уже использован

strelka_vybor c

End Sub

Откорректировать код в следующих строках процедуры кнопки «Запустить тест»:

Slide40.Label1.Caption = "" 'обнуляем содержимое таблицы результатов

Slide40.Label2.Caption = ""

Slide40.Label3.Caption = ""

Slide40.Label4.Caption = ""

Коррекцию сделать в конце создания всей презентации на 29 слайдов!!!

Программа VBA присваивает индивидуальный внутренний номер каждому слайду, который не совпадает с текущими последовательными номерами слайдов. Поэтому необходимо выделить последний по списку слайд в меню Слайды (слева от основного изображения) и номер, присвоенный программой, внести вместо записанного (у нас 40) в четыре команды VBA (код смотри выше).

Иначе появиться ошибка выполнения программы.

2.Создать слайды 2÷18 – мультипликационное изображение рулетки .

Любой фильм состоит из определенного количества кадров, движущихся друг за другом. При этом создается эффект сплошного движения.

Разобьем изображение рулетки на кадры-слайды.

2.1 Создать слайд 2 (рисунок 6)

Выполнить действие Правая кнопка мышки на вкладке слайды

(слева от основного поля слайда)→создать слайд.

Разместить на слайде Меню→Главная→Рисование→Выбрать овал и щелкнуть на слайде.

Появиться изображение круга→Правая кнопка мышки→Размер и положение→Размер→Ширина 13 см и Высота 13 см→Положение→По горизонтали 5,95см от верхнего левого угла и по вертикали 2,98см от верхнего левого угла.

Выполнить для фигуры “Круг”→Правая клавиша мышки→Формат фигуры→Заливка→Сплошная→Цвет→Выбрать по своему желанию.

Выполнить для фона слайда Правая клавиша мышки→Формат

фона→Заливка→Градиентная заливка→Название заготовки→Выбрать шаблон по своему желанию.

Нарисовать позицию рулетки Меню→Главная→Рисование→Выбрать овал и щелкнуть на слайде. Появиться изображение круга Правая кнопка мышки→Размер и положение→Размер→Ширина 1,5см и Высота 1,5см→Положение-по горизонтали 15,68см от верхнего левого угла и по вертикали 4,76см от верхнего левого угла.

Выполнить для позиции Правая клавиша мышки→Формат фигуры→Заливка→Сплошная→Цвет→Выбрать по своему желанию.

2.2. Создать слайд 3 (рисунок 7)

Рисунок 7. Слайд 3.

Дублировать предыдущий слайд Правая кнопка мышки на вкладке слайды (слева от основного поля слайда)→Дублировать слайд.

Добавляем новый элемент круг диаметром 1,5см, копируя уже имеющийся и вставляем его Правая кнопка мышки→Положение→По горизонтали 17,26см от верхнего левого угла и по вертикали 8,53см от верхнего левого угла.

2.3 Создать слайды №№4÷9 (рисунок 8)

Для этого на каждом шагу предыдущий слайд дублируется и к нему добавляется новые элементы. Правая кнопка мышки на вкладке слайды (слева от основного поля слайда)→Дублировать слайд.

Добавить по одному кружочку на каждый слайд по образцу слайда №3 до тех пор, пока на последнем слайде №9 не будут размещены по кругу 8 кружков (рисунок 5).

2.4. Добавить изображение чисел 1 от 8 на кружки.

Дублировать предыдущий слайд Правая кнопка мышки на вкладке слайды (слева от основного поля слайда)→Дублировать слайд.

Добавить текст Правая кнопка мыши→Изменить текст→Внести от 1 до 8→Шрифт→18 пунктов

2.5. Добавить изображение стрелки направленной на единицу( рисунок 10)

Д ублировать предыдущий слайд Правая кнопка мышки на вкладке слайды (слева от основного поля слайда)→Дублировать слайд.

Вставить стрелку на слайд Меню→Главная→Рисование→Выбрать стрелка вправо и щелкнуть на слайде. Появиться изображение стрелки.

Поместить стрелку в середину большого круга. Растягивая и поворачивая за маркеры, изменить стрелку так, чтобы она показывала на кружок с единицей.

Вставить центральную ось- фигуру “Cолнце” в центр большого круга Меню→Главная→Рисование→Основные фигуры→Выбрать “Солнце” и щелкнуть на слайде.

Выбрать цвет фигуры “Солнце” Правая клавиша мышки→Формат фигуры→Заливка→Сплошная→Цвет→Выбрать по своему желанию.

2 .6 Добавить слайды вращающейся стрелки по цифрам рулетки 12÷18 (рисунок 11):

Дублировать предыдущий слайд Правая кнопка мышки на вкладке слайды (слева от основного поля слайда)→Дублировать слайд.

Поворачиваем стрелку на одну цифру вперед, изменяя положение стрелки маркерами. При этом в центре большого круга остается всегда начало стрелки.

С трелка должна показывать поочередно на все цифры до 8 включительно (рисунок 12).

3. Слайды №№19÷26 –вопросы теста:

3.1.Настроить слайд № 19-первый вопрос (рисунок 13).

Рисунок 13.Слайд с первым вопросом.

Вставить текстовые сообщения Меню-Вставка→WordArt→выбрать шаблон→ОК.

Изменить текст шаблона согласно рисунку 13.

Активировать панель инструментов «Элементы управления», которая вызывается из основного меню «Вид».

При создании теста с простым выбором ответов потребуется:

объекты «Переключатель» и «Кнопка» ,

Объект «Переключатель» позволяет осуществлять выбор только одного ответа из нескольких вариантов. При помощи объекта «Кнопка» можно организовать переход на следующий слайд.

Чтобы создать слайд с вопросом, на панели инструментов «Элементы управления» выделить объект «Переключатель», щелкнув по нему кнопкой мыши. Создать объект на слайде № 19, щелкнув по слайду кнопкой мыши.

Исправить надпись, написав один из возможных вариантов ответа, изменить стиль и размер шрифта. Для этого выделить на слайде созданный объект «Переключатель» и щелкнуть по нему правой кнопкой мыши. Далее выберите пункт «Свойства» .

Окно «Properties» (Свойства) имеет две вкладки: «Alphabetic» и «Categorized». На вкладке «Alphabetic» названия свойств расположены в алфавитном порядке, на вкладке «Categorized» - сгруппированы по категориям.

В появившемся окне «Properties» (Свойства) исправить поле «Caption» (Заголовок). Введите “вариант 1”(рисунок 13).

В этом же окне выберите цвет, начертание, размер шрифта надписи, настроив параметры для пункта «Font».

Аналогичным образом создать еще один объект «Переключатель», введя в поле «Caption» (Заголовок) соответствующий “вариант 2”.

При помощи инструмента панели «Элементы управления» создайте объект «Кнопка», выбрав соответствующую пиктограмму, а затем щелкнув кнопкой мыши на слайде.

Выделите созданный объект «Кнопка», вызовите контекстное меню и выберите пункт «Свойства». В появившемся окне «Properties» (Свойства) в поле «Caption» введите текст «Далее» и настройте вид шрифта.

Сделайте активным слайд № 19 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Sub CommandButton1_Click()

If OptionButton2.Value = True Then

Vopros(c) = 5 'правильный ответ "вариант 2"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

OptionButton1.Value = False 'очищаем содержимое переключателей для следующего теста

OptionButton2.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3.2.Настроить слайд № 20-второй вопрос (рисунок 14).

Настройка слайда №20 аналогично слайду № 19 согласно рисунку 14.

Сделайте активным слайд 20 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If OptionButton2.Value = True Then

Vopros(c) = 5 'правильный ответ "вариант 2"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

OptionButton1.Value = False 'очищаем содержимое переключателей для следующего теста

OptionButton2.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3 .3.Настроить слайд № 21-третий вопрос (рисунок 15).

Настройка слайда №21 аналогично слайду № 19 согласно рисунку 15.

Сделайте активным слайд 21 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then

Vopros(c) = 5 'правильный ответ "вариант 1"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

OptionButton1.Value = False 'очищаем содержимое переключателей для следующего теста

OptionButton2.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3 .4.Настроить слайд № 22-четвертый вопрос (рисунок 16).

Настройка слайда №22 аналогично слайду № 19 согласно рисунку 16.

Сделайте активным слайд 22 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then

Vopros(c) = 5 'правильный ответ "вариант 1"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

OptionButton1.Value = False 'очищаем содержимое переключателей для следующего теста

OptionButton2.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3 .5.Настроить слайд № 23-пятый вопрос (рисунок 17).

Настройка слайда №23 аналогично слайду № 19 согласно рисунку 17.

Сделайте активным слайд 23 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If OptionButton2.Value = True Then

Vopros(c) = 5 'правильный ответ "вариант 2"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

OptionButton1.Value = False 'очищаем содержимое переключателей для следующего теста

OptionButton2.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3.6.Настроить слайд № 24-шестой вопрос (рисунок 18).

Настройка слайда №24 аналогично слайду № 19 согласно рисунку 18.

Сделайте активным слайд 24 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then

Vopros(c) = 5 'правильный ответ "вариант 1"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

OptionButton1.Value = False 'очищаем содержимое переключателей для следующего теста

OptionButton2.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3 .7.Настроить слайд № 25-седьмой вопрос (рисунок 19).

При создании теста, в котором на один вопрос существует несколько правильных ответов, применяется инструмент «Флажок» (Checkbox) панели инструментов «Элементы управления».

Вставить текстовые сообщения Меню-Вставка→WordArt→выбрать шаблон→ОК.

Изменить текст шаблона согласно рисунку 19.

Чтобы ввести ответы, вызовите меню Вид→Панель инструментов→Элементы управления. В появившемся окне выберите объект «Флажок».

Так как выбрано четыре варианта ответов, то четыре раза выбрать объект

«Флажок» и щелкнуть кнопкой мыши на слайде, создав четыре

«Флажок» (Checkbox).

В поле «Caption» каждого объекта введите последовательно “вариант 1”,”вариант 2”,”вариант 3”,”вариант 4”.

Изменить размер и вид шрифта при помощи поля Properties так же, как с объектом “Переключатель”.

Изменить цвет шрифта и цвет фона при помощи поля «BackColor»

Сделайте активным слайд 25 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If CheckBox1.Value = True And CheckBox3.Value = True Then

Vopros(c) = 5 'правильный ответ "варианты 1 и 3"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

CheckBox1.Value = False 'очищаем содержимое переключателей для следующего теста

CheckBox2.Value = False 'очищаем содержимое переключателей для следующего теста

CheckBox3.Value = False 'очищаем содержимое переключателей для следующего теста

CheckBox4.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

3.8.Настроить слайд № 26-восьмой вопрос (рисунок 20).

При создании теста, в котором на один вопрос существует несколько правильных ответов, применяется инструмент «Флажок» (Checkbox) панели инструментов «Элементы управления».

Слайд №26 создать аналогично слайду № 25 согласно рисунка 20.

Сделайте активным слайд 26 презентации и выделите кнопку «Далее», щелкнув по ней кнопкой мыши один раз.

Перейдите в режим создания программного кода, дважды щелкнув кнопкой мыши на выделенной кнопке «Далее». В появившемся окне редактора VBA вы увидите, что автоматически созданы начало и конец процедуры обработки события:

Private Sub CommandButton1_Click()

End Sub

Убрать эти строки ,добавив следующий код процедуры

Private Sub CommandButton1_Click()

If CheckBox1.Value = True And CheckBox4.Value = True Then

Vopros(c) = 5 'правильный ответ "варианты 1 и 4"-оцениваем на 5 баллов

SlideShowWindows(1).View.GotoSlide 27 'показ слайда "Правильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

Else

SlideShowWindows(1).View.GotoSlide 28 'показ слайда "Неправильный ответ"

delay 3, 0.1 'задержка показа слайда на 3 секунды

End If

CheckBox1.Value = False 'очищаем содержимое переключателей для следующего теста

CheckBox2.Value = False 'очищаем содержимое переключателей для следующего теста

CheckBox3.Value = False 'очищаем содержимое переключателей для следующего теста

CheckBox4.Value = False 'очищаем содержимое переключателей для следующего теста

kolvopros = kolvopros + 1 'считаем количество заданных вопросов (у нас до 3)

If kolvopros = 3 Then

SlideShowWindows(1).View.GotoSlide 29

GoTo konez

End If

strelka

Do 'выбираем вопрос, которого еше не было

a = 1

b = 8

c = sluch(a, b) 'выбираем случайно очередной вопрос

Loop Until Vopros(c) = 0 'цикл идет, пока не найдется неиспользованный вопрос

strelka_vybor c

konez:

End Sub

4.Создать Слайды 27÷28 – правильный или неправильный ответ.