Page 102 - 4450

q = 0
r = 0
' висновок першого
питання
NextQuestion
Exit Sub
End If
If Command1.Caption = "Кінець" Then
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Label1.Height = Label1.Height * 2
Label1.Caption = "Тестування завершене." + Chr(13) +
_
"Правильних відповідей: " + Format$(r) + "
з " + Format$(q) + "."
i = 1
While (r < rate(i)) And (i < 4)
i = i + 1
Wend
' висновок коментарю
'Label1.Caption = Label1.Caption + Chr(13) +
comment(і)
Command1.Caption = "Знову"
Else
NextQuestion
End If
End Sub
Private Sub Command2_Click()
Close #1 ' закриття файлу
Unload Form1
End Sub
Private Sub Form_Initialize()
Label1.Font.Size = 10
FileName = "E:\olga\Projects\Новая папка (6)" +
"\text.txt"
Open FileName For Input As #1 ' відкриття файлу
' для читання
Line Input #1, f ' читання назви тесту
Form1.Caption = f

100