Запись в файл результатов прохождения теста - 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

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

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