Технология выполнения. Рис. 52.Первая страница теста Оформите первую страницу (рис
- Запустите приложение Word и сохраните документ.
- Перейдите в редактор VBA и создайте форму, содержащую 4 страницы (рис. 52).
Рис. 52.Первая страница теста
- Оформите первую страницу (рис. 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
- Оформите вторую страницу теста (рис. 53) и обработайте кнопку «Ответ».
Private Sub CommandButton2_Click()
If OptionButton5.Value = True Then
a = a + 1
Label12.Caption = «Ответ верен»
Else
Label12.Caption = «Ответ неверен»
End If
End Sub
Рис. 53.Вторая страница теста
- Оформите третью страницу теста (рис. 54) и обработайте кнопку «Ответ».
Рис. 54.Третья страница теста
Private Sub CommandButton3_Click()
If OptionButton10.Value = True Then
a = a + 1
Label13.Caption = «Ответ верен»
Else
Label13.Caption = «Ответ неверен»
End If
End Sub
- Оформите четвертую страницу теста (рис. 55) и обработайте кнопку «Результат».
Private Sub CommandButton4_Click()
Label15.Caption = "вы набрали " & a & «балл(а)»
End Sub
Рис. 55.Итоговая страница теста
Примечание. Напоминаем, что все предлагаемые листинги примерные и их можно и нужно редактировать по своему усмотрению.
- Откомпилируйте программу и запустите на выполнение.
Дата добавления: 2015-12-29; просмотров: 479;