Разработка заданий для MS Access.
ElseIf x<4 Then
Label1.Caption = "Вы не справились, нажмите выход"
PrintOtvet "", "", "", ""
End If
Case 7
End
End Select
End Sub
'Подпрограмма вывода ответов
Sub PrintOtvet(OTVET1, OTVET2, OTVET3, OTVET4)
Label1.Caption = OTVET1: Label2.Caption = OTVET2
Label3.Caption = OTVET3: Label4.Caption = OTVET4
End Sub
После набора и тестирования программы можно вызвать меню Сервис и задать пароль, чтобы учащиеся не смогли подсмотреть верный вариант ответа.
Задания разработаны с целью закрепления знаний: по приёмам создания слайдов; вставке в слайд различных объектов; созданию простых макросов в приложении MS PowerPoint.