Page 101 - 4450

Option3.Caption = f
Line Input #1, f
Option3.Tag = f
' не один з варіантів
відповіді не обраний
Option1.Value = False
Option2.Value = False
Option3.Value = False
Command1.Enabled = False
' збільшення лічильника
питань
q = q + 1
' якщо це питання -
останнє
If EOF(1) Then Command1.Caption = "Кінець"
End If
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then r = r + Option1.Tag
If Option2.Value = True Then r = r + Option2.Tag
If Option3.Value = True Then r = r + Option3.Tag
If Command1.Caption = " Знову " Then
Command1.Caption = "Далі"
Label1.Height = Label1.Height / 2
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
' перехід до початку файлу
Seek #1, 1
Line Input #1, f
Form1.Caption = f
' коментарі і критерії
оцінювання
For i = 1 To 4 Step 1
Line Input #1, f
comment(i) = f
Line Input #1, f
rate(i) = f
Next
' обнуління лічильників

99