Первый слайд представляет собой титульный лист, на котором указана тема электронного приложения и сведения об авторе, а также ссылка для перехода в содержание. Он имеет вид:
При переходе по ссылке к содержанию появляется второй слайд. Он имеет вид:
Как видно из рисунка, из него тоже можно переходить на предыдущий титульный слайд.
При нажатии на ссылку «Теоретические сведения» перед нами открытается слайд.
Из него осуществляется переход по следующим слайдам:
При переходе по ссылке «Практические задания» перед нами открывается слайд, на котором даны по одному заданию различного уровня сложности.
Следующий пункт содержания – это самостоятельная работа. Она продготовлена для четырех вариантов. В каждрм варианте по четыре задания.
Й вариант
1. Вычислите:
а) sin(3000).
2.Найдите sin 
, если cos 
= _ 0,6, 
.
3. Упростите выражение:
.
4.Докажите тождество:
cos2 (1+ tg2 ) – sin2 = cos2 .
5.Решите уравнение:
sin3x – sin9x = 0.
Й вариант
1. Вычислите:
sin(_2100).
2.Найдите sin(
_ ), если sin = 
, 
.
3. Упростите выражение:
.
4.Докажите тождество:
.
5.Решите уравнение:
sin4x + sin6x = 0.
Й вариант
1. Вычислите:
sin(2500).
2.Найдите sin , если cos = 
, 
.
3. Упростите выражение:
.
4.Докажите тождество:
sin2 (1+ ctg2 ) – sin2 = cos2 .
5.Решите уравнение:
2sin2x = sin4x.
Й вариант
1. Вычислите:
sin 
.
2.Найдите: sin( _ ), если sin = _ 
, 
.
3. Упростите выражение:
.
4. Докажите тождество:
sin4 _ cos4 
+ 2cos2 = 1.
5. Решите уравнение:
sin5x =1.
В разделе «Тест» представлено 10 вопросов по теме. Он состоит из 11 слайдов. На последнем выводится результат прохождения.
В модуле необходимо объявить глобальные переменные:
Public Vz, Po, Pro As Integer
Первый слайд:
Листинг программы:
Private Sub CommandButton1_Click()
Vz = 0
Po = 0
If OptionButton3.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
SlideShowWindows(1).View.Next
End Sub
Второй слайд:
Листинг ппрограммы:
Private Sub CommandButton1_Click()
If OptionButton2.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Третий слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton2.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Четвертый слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton3.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Пятый слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Шестой слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton3.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Сельмой слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton2.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
Восьмой слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Девятый слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton2.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Десятый слайд:
Листинг программы:
Private Sub CommandButton1_Click()
If OptionButton3.Value = True Then
Po = Po + 1
End If
Vz = Vz + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
SlideShowWindows(1).View.Next
End Sub
Одинадцатый слайд:
Листин программы:
Private Sub CommandButton1_Click()
Label1.Caption = Vz
Label2.Caption = Po
Pro = Po / Vz * 100
Label3.Caption = Pro & "%"
If Pro > 85 Then
Label4.Caption = "Отлично"
End If
If Pro <= 85 And Pro > 60 Then
Label4.Caption = "Хорошо"
End If
If Pro <= 60 And Pro > 40 Then
Label4.Caption = "Удовлетворительно"
End If
If Pro <= 40 Then
Label4.Caption = "Плохо"
End If
End Sub
Private Sub CommandButton2_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
SlideShowWindows(1).View.Next
End Sub
При переходе по ссылке «Интересно знать» перед нами открывается слайд:
На этом слайде есть одна ссылка, при переходе по которой мы переходим на слайд с биографией:
