Разработка заданий для MS Access.
Недостатки интерактивного интерфейса вполне могут быть скомпенсированы использованием макросов. Разработка небольших программ на VBA позволяет превращать презентации из наглядных пособий в диалоговые системы обучения и проверки знаний. Рассмотрим процесс создания одного из элементов таких систем на примере проверки знания учениками теоремы Пифагора.
Задание 1. Создать на слайде интерфейс для проведения вычислений.
Создайте слайд аналогично рисунка 19. В нём наряду с обычными объектами PowerPoint находятся два элемента управления VBA Поле и Кнопка, которые добавляются при помощи панели Элементы управления. Нажмите изображение элемента на панели и нарисуйте его точно так же, как и при помощи любого графического редактора, в том месте слайда, где задумали расположить. Нажав на кнопку 
измените свойство Caption (надпись) элемента управления Кнопка изменим на Проверка. При нажатии на кнопку будет проведена проверка правильности значения введенного в поле.
Рис. 19
Теперь можно перейти к созданию программы активизирующейся при нажатии на кнопку. Для этого дважды щёлкните на созданной кнопке. В результате откроется редактор VBA с активизированным модулем рабочего листа. Кроме того, двойной щелчок на кнопке создаст в модуле первую и последнюю инструкции процедуры обработки события – нажатие кнопки:
Private Sub CommandButton1_Click()
End Sub
Наберите следующий код программы:
Private Sub CommandButton1_Click()
If TextBox1.Text = “4” Then MsgBox "Верно" Else MsgBox "Ответ неверный"
TextBox1.Text = ""
End Sub
Программа готова, протестируйте её работу. Предложите учащимся привести примеры других теорем, для которых можно использовать данный пример.
Следующее задание может быть использовано педагогами для контроля знаний школьников по любым темам.
Задание 2. Создать слайд для проверки знаний учащегося по вопросам теста по теме “Основные устройства ЭВМ. Интерфейс организовать при помощи элементов управления VBA.
Добавим на слайд элементы управления: пять надписей (четыре для ответов и одну для вопроса) и четыре переключателя. Изменим имена переключателей (свойство name) на O1, O2, O3, O4 и свойство name надписи Label5 на VOPROS. Поместим в слайд кнопку и изменим её свойство caption на Далее.
Рис. 18
Вызовите редактор Visual Basic (двойным щелчком по кнопке). Наберите программный код для кнопки:
Private Sub CommandButton1_Click()
i = i + 1
Select Case i
Case 1
VOPROS.Caption = "Главным устройством персонального компьютера является?"
PrintOtvet "ПЗУ", "Мышь", "Процессор", "Жёсткий диск"
Case 2
If O3.Value = True Then x = x + 1
VOPROS.Caption = "Энергонезависимым устройством персонального компьютера является?"
PrintOtvet "ОЗУ", "Процессор", "СD-ROM", "ПЗУ"
Case 3
If O4.Value = True Then x = x + 1
VOPROS.Caption = "Манипулятор мышь это устройство"
PrintOtvet "Вывода", "Ввода ", "Считывания информации", "Сканирования информации"
Case 4
If O2.Value = True Then x = x + 1
VOPROS.Caption = "К внешним запоминающим устройствам относятся"
PrintOtvet "Процессор", "Монитор", "Принтер", "Жесткий диск"
Case 5
If O4.Value = True Then x = x + 1
VOPROS.Caption = "Плоттер это устройство"
PrintOtvet "Для считывания графической информации", "для ввода", "для вывода", "для печати"
Case 6
CommandButton1.Caption = "Выход"
If O1.Value = True Then x = x + 1
If x = 5 Then VOPROS.Caption = "Вы справились нажмите выход"
PrintOtvet "", "", "", ""
End If
If x = 4 Then Label1.Caption = "Вы справились на 3 нажмите выход"
PrintOtvet "", "", "", ""