SlideShowWindows(1).View.Next

Slide5.Label1.Caption = n

If n = 5 Then

Slide5.Label2.Caption = 5

End If

If n = 4 Then

Slide5.Label2.Caption = 4

End If

If n = 3 Then

Slide5.Label2.Caption = 3

End If

If n < 3 Then

Slide5.Label2.Caption = 2

End If

8. Оформляем последний слайд.
С помощью панели элементов управления,
расположите на последнем слайде 2 элемента
управления «надпись». Одну для вывода
количества верных ответов, вторую -
для оценки, с помощью контекстного меню
(правой кнопки мыши) удалите имеющуюся
надпись.

9. Переменная n должна быть объявлена как глобальная, чтобы могла быть использована в коде всех слайдов. Для этого в окне VBA (переход двойным щелчком по любому элементу управления) надо добавить модуль командой строки меню «Insert – Module» и в окне кода модуля написать код:
Public n as Integer

10. Настройка Свойств Переключателя.

Из контекстного меню «Переключателя» выбрать пункт Свойства:
- Свойство Caption - текст первого варианта ответа.

- BackColor - выберите вариант цвета фона,

- ForeColor - цвет текста,

- Font – размер шрифта.