Написать программу тестер знаний с своеобразной БД - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы