ою 2
Option ExplicitarrVopros (10), arrwar1 (10), arrwar2 (10), arrwar3 (10), arrwar4 (10), arrPraw (10) As Stringi, q, z, fnum, k As Integerfpatch As String, txt As String, ALLtxt As String
Sub Command4_Click (). Show.HideSub
Sub Form_Load ()
Me.Caption= Контроль проходить учень amp; fam
b=0= Варіант1.txt =FreeFile Варіант1.txt For Input As fnum
'Do Until EOF (fnum)
'Line Input #fnum, txt
'ALLtxt=ALLtxt + txt + vbCrLf
'Loopi=1 To 10Input #fnum, arrVopros (i) Input #fnum, arrwar1 (i) Input #fnum, arrwar2 (i) Input #fnum, arrwar3 (i) Input #fnum, arrwar4 (i) Input #fnum, arrPraw (i) i # fnumSub
Sub Command1_Click () 'кнопка далееOpt (z) .Value=True Then b=b + 1: q gt;=0 And q lt; 12 Then.Enabled=FalseKontrol=q + 1If
If q=11 Then= = Тестування закінчено!
Command2.Enabled=TrueIfi=0 To 3 (i)=0i.Enabled=FalseSubSub Command2_Click ()=FreeFile.Visible=True.Visible=True
Label5.Caption= Кількість балів amp; Str (b) b lt;=3 Then Label6.Caption= Незадовільно amp; Оцінка amp; 2b lt;=6 And b gt;=4 Then Label6.Caption= Задовільно amp; Оцінка amp; 3
If b gt;=7 And b lt;=8 Then Label6.Caption= Добре amp; Оцінка amp; 4b gt;=9 Then Label6.Caption= Відмінно amp; Оцінка amp; 5
FileRez.txt For Output As filenum
Print #filenum, Результати тестірованмя по темі Інформація та інформаційні процеси
Print #filenum, _____________________________________________________________________ #filenum, Учень raquo ;; fam
Print #filenum, Кількість правильних відповідей raquo ;; b
Print #filenum, Визнач питань - 10 #filenumSub
Sub Command3_Click () 'по кнопці почати=1= Тестування почалося! .Enabled=True.Enabled=FalseSub
Sub Kontrol (). Caption=q.Caption=arrVopros (q) (0) .Caption=arrwar1 (q) (1) .Caption=arrwar2 (q) (2) .Caption=arrwar3 (q) (3) .Caption=arrwar4 (q)=Val (arrPraw (q)) Sub
Sub Opt_Click (Index As Integer) .Enabled=Trueq=11 Then Command1.Enabled=False Sub
Текст програми за формою 3
Option ExplicitarrVopros (10), arrwar1 (10), arrwar2 (10), arrwar3 (10), arrwar4 (10), arrPraw (10) As Stringk As Varianti, q, fnum, z As Integerfpatch As String, txt As String, ALLtxt As String
Sub Command4_Click (). Show.HideSub
Sub Form_Load ()
Me.Caption= Контроль проходить учень amp; fam
For i=0 To 3: Opt (i) .Value=False: Next i=0: b=0= Варіант2.txt =FreeFile Варіант2.txt For Input As fnumi=1 To 10Input #fnum, arrVopros (i) Input #fnum, arrwar1 (i) Input #fnum, arrwar2 (i) Input #fnum, arrwar3 (i) Input #fnum, arrwar4 (i) Input #fnum , arrPraw (i) i # fnumSub
Sub Command1_Click () Opt (z) .Value=True Then b=b + 1=q + 1q gt; 0 And q lt;=11 Then.Enabled=FalseIfKontrol
If q=10 Then= = Тестування закінчено!
Command2.Enabled=TrueIfi=0 To 3 (i)=0i.Enabled=FalseSub
Sub Command3_Click ()= Тестування почалося! .Enabled=True.Enabled=FalseSub
Sub Kontrol () i=0 To 3: Opt (i) .Value=False: Next i.Caption=q.Caption=arrVopros (q) (0) .Caption=arrwar1 (q) (1) .Caption=arrwar2 (q) (2) .Caption=arrwar3 (q) (3) .Caption=arrwar4 (q)=arrPraw (q) Sub
Sub Command2_Click ()=FreeFile.Visible=True.Visible=True.Caption= Кількість балів amp; bb lt;=3 Then Label5.Caption= Незадовільно amp; Оцінка amp; 2b lt;=6 And b gt; 3 Then Label5.Caption= Задовільно amp; Оцінка amp; 3b gt;=7 And b lt;=8 Then Label5.Caption= Добре amp; Оцінка amp; 4b gt; 8 Then Label5.Caption= Відмінно amp; Оцінка amp; 5
FileRez.txt For Output As filenum
Print #filenum, Результати тестірованмя по темі Інформація та інформаційні процеси
Print #filenum, _____________________________________________________________________ #filenum, Учень raquo ;; fam
Print #filenum, Кількість правильних відповідей raquo ;; b
Print #filenum, Визнач питань - 10 #filenumSub
Sub Opt_Click (Index As Integer) .Enabled=Trueq=10 Then Command1.Enabled=False
End Sub
Текст програми з...
