Page 103 - 4450

For i = 1 To 4 Step 1
Line Input #1, f
comment(i) = f
Line Input #1, f
rate(i) = f
Next
q = 0
r = 0
NextQuestion
End Sub
Private Sub Option1_Click()
Command1.Enabled = True
End Sub
Private Sub Option2_Click()
Command1.Enabled = True
End Sub
Private Sub Option3_Click()
Command1.Enabled = True
End SubDim q As Integer ' загальна кількість
питань

Рисунок 17.1 – Результат виконання програми

101