Написать программу тестер знаний с своеобразной БД - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д