Программа для тестирования - VB
Формулировка задачи:
Доброго времени суток! Я только начал изучение Visual Basic поэтому столкнулся с трудностью. Мне нужно написать программу для тестирования, в которой сбоку указан список вопросов через кнопки, при нажатии на которые происходит переход к вопросу. Также есть кнопка для ответа на вопрос, если нажать на нее, то происходит переход к следующему по порядку вопросу, кнопка из списка с вопросами становится неактивной и прибавляется 1 балл за правильный ответ. Но проблема заключается в следующем: если ответить, допустим на 5 вопрос, а затем перейти к 4, то после нажатия на кнопку "Ответить" программа перейдет снова к 5 вопросу. Можно ли как-то реализовать пропуск через уже отвеченное задание?
Решение задачи: «Программа для тестирования»
textual
Листинг программы
- Dim ind%
- Private Sub Command1_Click(Index As Integer)
- ind = Index + 1
- End Sub
- Private Sub Command2_Click()
- If ind > 0 Then
- 'проверить правильность ответа
- Command1(ind - 1).Enabled = False
- For i = 0 To Command1.UBound
- If Command1(i).Enabled = True Then Exit For
- Next i
- If i <= Command1.UBound Then
- 'вывести соотв.вопрос
- Command1(i).SetFocus
- End If
- Else
- MsgBox "вопрос № ?"
- End If
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д