1. Запустите приложение Word и сохраните документ.
2. Перейдите в редактор VBA и создайте форму, содержащую 4 страницы (рис. 52).
Рис. 52.Первая страница теста
3. Оформите первую страницу (рис. 52) и обработайте кнопку «Ответ».
Dim a As Integer
Private Sub CommandButton1_Click()
If OptionButton3.Value = True Then
a = a + 1
Label11.CaptioN= «Ответ верен»
Else
Label11.CaptioN= «Oтвет неверен»
End If
End Sub
4. Оформите вторую страницу теста (рис. 53) и обработайте кнопку «Ответ».
Private Sub CommandButton2_Click()
If OptionButton5.Value = True Then
a = a + 1
Label12.CaptioN= «Ответ верен»
Else
Label12.CaptioN= «Ответ неверен»
End If
End Sub
Рис. 53.Вторая страница теста
5. Оформите третью страницу теста (рис. 54) и обработайте кнопку «Ответ».
Рис. 54.Третья страница теста
Private Sub CommandButton3_Click()
If OptionButton10.Value = True Then
a = a + 1
Label13.CaptioN= «Ответ верен»
Else
Label13.CaptioN= «Ответ неверен»
End If
End Sub
6. Оформите четвертую страницу теста (рис. 55) и обработайте кнопку «Результат».
Private Sub CommandButton4_Click()
Label15.CaptioN= "вы набрали " & a & «балл(а)»
End Sub
Рис. 55.Итоговая страница теста
Примечание. Напоминаем, что все предлагаемые листинги примерные и их можно и нужно редактировать по своему усмотрению.
7. Откомпилируйте программу и запустите на выполнение.
