Dim v(100) As String
Dim Otv(100) As String
Dim n As Integer
Dim i As Integer
Dim otvet As String
Dim koll As Integer
Dim p As String
Private Sub otvett_Click()
For i = 1 To n
Print v(i), Otv(i)
Next i
End Sub
Private Sub Dalee_Click()
test.Text = ""
If i <= n Then
Voprs.Text = v(i)
Else
Text1.Text = "Тест завершен"
End If
End Sub
Private Sub Form_Load()
i = 1
n = 1
Open "E:\ИНСТИТУТ\test.txt" For Input As #1
Do Until EOF(1)
Input #1, v(i)
Input #1, Otv(i)
i = i + 1
Loop
Close #1
n = i - 1
End Sub
Private Sub Start_Click()
i = 1
Voprs.Text = v(i)
Rezult.Text = Str(i) + "."
End Sub
Private Sub Vvod_Click()
otvet = Trim(test.Text)
If otvet = Trim(Otv(i)) Then
Rezult.Text = Rezult.Text + "Ответ верный " + test.Text + Chr(13) + Chr(10)
Rezult.Text = Rezult.Text + Str(i + 1) + "."
Else
Rezult.Text = i1 + "." + Rezult.Text + "Ответ неверный " + test.Text + Chr(13) + Chr(10)
Rezult.Text = Rezult.Text + Str(i + 1) + "."
End If
i = i + 1
End Sub