Запись в файл результатов прохождения теста - VB
Формулировка задачи:
Доброго времени суток!
Нашел прекрасный вариант создания тестов. Не могу только разобраться в следующем. Необходимо чтобы по мере прохождения теста в текстовый файл записывались следующие данные: Формулировка вопроса, ответ, который был выбран тестируемым и правильный ответ. Т.е. в итоге в файл должно записываться примерно так:
Вопрос: Сколько будет 2+2?
Выбранный ответ: 5
Правильный ответ: 4
Заранее признателен за помощь.
Решение задачи: «Запись в файл результатов прохождения теста»
textual
Листинг программы
Private Sub cmdNext_Click() Dim I As Long, V As Long V = -1 For I = 0 To optCase.UBound If optCase(I).Value Then V = I: Exit For Next If V = -1 Then MsgBox "Âûáåðèòå ГўГ*ðèГ*Г*ГІ îòâåòГ*", vbExclamation, "ГЋГёГЁГЎГЄГ*": Exit Sub If Test.Questions(CurIndex).Cases(V).Status Then User.Count = User.Count + 1 '/// For I = 0 To UBound(Test.Questions(CurIndex).Cases) If Test.Questions(CurIndex).Cases(I).Status Then MsgBox "ГЏГ°Г*âèëüГ*ûé îòâåò: " & Test.Questions(CurIndex).Cases(I).Name Exit For End If Next '\\\ CurIndex = CurIndex + 1 CurQuestion = CurQuestion + 1 If CurQuestion = CountQuestions Then EndTest: Exit Sub UpdateQuestion End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д