Выполнение заданий VBA в Power Point

Первый слайд представляет собой титульный лист, на котором указана тема электронного приложения и сведения об авторе, а также ссылка для перехода в содержание. Он имеет вид:

 

 

При переходе по ссылке к содержанию появляется второй слайд. Он имеет вид:

 

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

 

При нажатии на ссылку «Теоретические сведения» перед нами открытается слайд.

 

 

Из него осуществляется переход по следующим слайдам:

 

 

 

 

 

 

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

 

Следующий пункт содержания – это самостоятельная работа. Она продготовлена для четырех вариантов. В каждрм варианте по четыре задания.

 

Й вариант

 

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

При переходе по ссылке «Интересно знать» перед нами открывается слайд:

 

 

На этом слайде есть одна ссылка, при переходе по которой мы переходим на слайд с биографией: