Z = 0 L = 0 N = 0 If OptionButton3.Value = True Then L = L + 1 End If Z = Z + 1 OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False SlideShowWindows(1).View.Next Мұндағы:
Z – бұл орындалған тапсырмалардың санағышы. Тесттің басында оған 0-ді меншіктейміз.
L – дұрыс орындалған тапсырмалардың санағышы, оған да 0-ді меншіктейміз.
N – орындалған тапсырманың пайыздық үлесі.
If OptionButton3.Value = True Then – бұл жерде тексеріледі, егер де үшінші жауап таңдалса, онда счетчикке дұрыс орындалған тапсырмаларға 1 қосылады, ал егер дұрыс емес жауап таңдалса қосылмайды.
Z = Z + 1 – орындалған тапсырмалардың саның санайды.
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
SlideShowWindows(1).View.Next ‘Бұл келесі слайдқа өту командасы ’
6 - қадам: Осы әрекеттерді қалған слайдтарға да орындап шығамыз. Бірақта, бұл батырмалардың кодтарынан төмендегі жолдарды алып тастаймыз.
Z = 0 L = 0 N = 0 7 - қадам: Батырмалар жұмыс жасауы үшін жобаға модельді қосу керек. Ол үшін төмендегі әрекеттерді орындаймыз:
– бірінші слайдтағы «келесі» батырмасын екі рет шертіп, Visual Basic мәзірінен INSERT – MODULE таңдаймыз.
Редакторда мына кодты жазамыз Public L, Z, N As Integer
Сурет 11.
Сурет 12.
8 - қадам: «Тест қорытындысы»және «шығу» батырмаларына код жазамыз.
Бірінші «Тест қорытындысы» батырмасын екі рет шертіп ашылған терезеге төмендегі кодты енгіземіз.
Private Sub CommandButton1_Click() Label1.Caption = Z Label2.Caption = L