Private Sub CommandButton3_Click()
Image1.Picture = LoadPicture("G:\get_pic.jpg")
End Sub
Событие на нажатие кнопки «Скрыть»
Private Sub CommandButton4_Click()
Image1.Picture = LoadPicture(none)
End Sub
Обучающе-контролирующее электронное учебное пособие может отличаться от предыдущего лишь тем, что полное решение учитель не будет давать учащемуся, при выставлении отметки будет учитываться количество взятых подсказок и количество правильных ответов. На мой взгляд полное решение проверить не удастся, так как малейшая орфографическая ошибка и ответ будет засчитан как неверный.
Справочники и словари могут быть реализованы в Microsoft Office Word путем связывания понятия с его определениями посредством гиперссылок.
Пример: на первой странице алфавитный указатель (либо буквы алфавита, либо слоги, что быстрее поможет найти слово, если количество слов довольно большое). Пользователь кликает мышкой на букву (или слог) и переходит на страницу, в которой содержится это слово. Ключевые слова выделены и, щелкнув по непонятному слову, пользователь переходит на страницу с этим словом (если слово имеется в словаре).
|
|
Рассмотрим создание теста в Microsoft Office Word посредством языка программирования VBA:
Предположим, что в тесте пять вопросов (demo-версия), тема - «Проверка знаний по тригонометрии», две попытки на ответ.
Тест по тригонометрии.
1. Чему равен cos(0)?
2. Чему равен sin(0)?
3. Чему равен tg(pi/4)?
4. Чему равен sin(pi/4)?
5.
Чему равен cos(pi/6)?
Код программы:
Описание переменных:
Dim k As Byte, k1 As Byte, k2 As Byte, k3 As Byte, k4 As Byte
Dim oc As Byte, pov As Byte, a As Integer
Первый вопрос:
Private Sub CommandButton1_Click()
k = k + 1
If k < 3 Then
If OptionButton1.Value = True Then
Label1.Caption = "Правильно!"
oc = oc + 1
Else: Label1.Caption = "Неправильно!"
pov = pov + 1
End If
Else: Label1.Caption = Label1.Caption + "Только две попытки!"
End If
End Sub
Второй вопрос:
Private Sub CommandButton1_Click()
k 1= k 1+ 1
If k 1< 3 Then
If OptionButton6.Value = True Then
Label2.Caption = "Правильно!"
oc = oc + 1
Else: Label2.Caption = "Неправильно!"
pov = pov + 1
End If
Else: Label2.Caption = Label2.Caption + "Только две попытки!"
End If
End Sub
Третий вопрос:
Private Sub CommandButton1_Click()
k 2= k2 + 1
If k2< 3 Then
If OptionButton10.Value = True Then
Label3.Caption = "Правильно!"
oc = oc + 1
Else: Label3.Caption = "Неправильно!"
pov = pov + 1
End If
Else: Label3.Caption = Label3.Caption + "Только две попытки!"
End If
End Sub
Аналогично четвертый и пятый вопросы.
Событие на нажатие кнопки «Оценка»