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