Написать программу тестер знаний с своеобразной БД - VB
Формулировка задачи:
Доброго времени суток! Учитель подкинул задачку: написать программу тестер знаний с своеобразной БД.
И так на форме расположено:
Label1 - метка в которой будет слово
4 OptionButton - в которых варианты перевода
И две кнопки Start и Next
По нажатию на Start появляются метка и optionButton и кнопка Next - сделал
Но нужна помощь вот в чем:
В ресурсах лежит файл *.txt, В нем должны быть слова и варианты перевода(один из которых естественно правильный)
Привер txt файла:
* обязательный разделитель(условие учителя)
Go ' слово которое надо перевести
плавать ' варианты ответа
летать ' варианты ответа
ходить ' варианты ответа
думать ' варианты ответа
*
Swim ' второе слово для перевода
плавать
видеть
слышать
думать
Как заставить VB читать этот файл и расставлять варианты ответа в OptionButton в разнобой, а не так как они указаны в txt? И как указать программе какой правильный ответ?
Надеюсь что понятно. В заранее спасибо
Решение задачи: «Написать программу тестер знаний с своеобразной БД»
textual
Листинг программы
Private Sub Form_Load()
If CQ = 0 Then
Me.Caption = "Тест на логику для " & Environ$("USERNAME")
Command1.Caption = "Следующий вопрос"
ReDim Q(0), R(0 To 2, 0)
Dim S As String
Open App.Path + "\mTest.txt" For Input As 1
While Not EOF(1)
Line Input #1, S
S = Trim(S)
If Val(S) > 0 Then
CQ = CQ + 1
ReDim Preserve Q(CQ), R(0 To 2, CQ)
Q(CQ) = Mid(S, InStr(1, S, " ") + 1)
CR = 0
ElseIf S > "" Then
R(CR, CQ) = Mid(S, InStr(1, S, " ") + 1)
CR = CR + 1
End If
Wend
Close 1
End If
ReDim b_Q(CQ)
CR = 0
CV = 0
Command1_Click
End Sub