ub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Форма 21 - Питання 20
Private Sub Command1_Click () Option3=True Then Me.Tag=Form20.Tag + 1 Else Me.Tag=Form20.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Форма 22 - Питання 21
Private Sub Command1_Click () Option3=True Then Me.Tag=Form21.Tag + 1 Else Me.Tag=Form21.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option5_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option5_LostFocus (). BackColor= amp; H808080Sub
Форма 23 - Питання 22
Private Sub Command1_Click () Option3=True Then Me.Tag=Form22.Tag + 1 Else Me.Tag=Form22.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option5_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option5_LostFocus (). BackColor= amp; H808080Sub
Форма 24 - Результат тестування
Private Sub Command1_Click () Sub
Private Sub Form_Load ()
Label1.Caption= Студент + Form1.Text1.Text + група + Form1.Text2.Text + Результат: + Form23.Tag + правильна (-их, -І) відповідь (-ів, -І)
Select Case Form23.Tag1: Label3.Caption= Оцінка 4 2: Label3.Caption= Оцінка 8 3: Label3.Caption= Оцінка 12 4: Label3.Caption= Оцінка 16 5: Label3.Caption= Оцінка raquo ; 20 6: Label3.Caption= Оцінка 24 7: Label3.Caption= Оцінка 28 8: Label3.Caption = Оцінка 32 9: Label3.Caption= Оцінка 36 10: Label3.Caption= Оцінка 40 11: Label3.Caption= Оцінка 44 12: Label3.Caption= Оцінка 48 13: Label3.Caption= Оцінка laquo ; 52 14: Label3.Caption= Оцінка 56 15: Label3.Caption= Оцінка 60 16: Label3.Caption= Оцінка 64 17: Label3.Caption= Оцінка 68 18: Label3.Caption= Оцінка laquo; 72 19: Label3.Caption= Оцінка 76 20: Label3.Caption= Оцінка 84 21: Label3.Caption= Оцінка 92 22: Label3.Caption= Оцінка 100 SelectSub
Схема алгоритму програми
Рисунок Б.1 - Блок-схема алгоритму роботи програми
Роздрук екрана форм програми
Рисунок В.1 - форма1 - Тестування по темі: основи інтегрального числення
Рисунок В.2 - Форма25 - Таблиця інтегралів
Малюнок В.3 - Форма2 - Питання 1
Рисунок В.4 - Форма3 ...