Не переходить к следующему вопросу в тестах, пока не выбран OptionButton - VB
Формулировка задачи:
Друзья подскажите у меня есть программа с вопросами, вопросы показываются в OptionButton, при щелчке на кнопку с надписью далее вопросы меняются, но у меня проблема как сделать так чтоб пока пользователь не щелкнул по OptionButton следующий вопрос не появлялся на форме. А появлялось сообщение вы не ответили на вопрос. Спасибо
Решение задачи: «Не переходить к следующему вопросу в тестах, пока не выбран OptionButton»
textual
Листинг программы
Private Sub Command1_Click() i = i + 1 Select Case i Case 1 Label1.Caption = "Главнм устройством персонального компьютера является?" Option1.Caption = "2)Винчестер" Option2.Caption = "2)Процессор" Option3.Caption = "3)Жесткий диск" Option4.Caption = "4)ПЗУ" Case 2 If Option2.Value = True Then x = x + 1 End If Label1.Caption = "Энерго зависимым устройством персонального компьютера является?" Option1.Caption = "1)ОЗУ " Option2.Caption = "2)Процессор" Option3.Caption = " 3)CD-ROM " Option4.Caption = "4)ПЗУ" Case 3 If Option4.Value = True Then x = x + 1 End If Label1.Caption = "Манипулятор мыш это устройство" Option1.Caption = "1)Вывода" Option2.Caption = "2)Ввода " Option3.Caption = "3) Считования информации " Option4.Caption = "4)Сканирования" Case 4 If Option2.Value = True Then x = x + 1 End If Label1.Caption = "К внешним запоминающимся устройствам относятся" Option1.Caption = "1) Жесткий диск " Option2.Caption = "2) Процессор" Option3.Caption = "3) )Монитор" Option4.Caption = "4)Принтер" Case 5 If Option1.Value = True Then x = x + 1 End If Label1.Caption = "Плоттер это устройство" Option1.Caption = "1) Для считывания графической информации " Option2.Caption = "2) Для ввода" Option3.Caption = "3)Для вывода" Option4.Caption = "4)Для печати" Case 6 If Option1.Value = True Then x = x + 1 End If If x = 5 Then Command1.Caption = "Выход" Label1.Caption = "Вы справились нажмите выход" Label2.Caption = "" End If If x = 4 Then Command1.Caption = "Выход" Label1.Caption = "Вы справились , на 3 нажмите выход" Label1.ForeColor = vbRed Label2.Caption = "" ElseIf x < 4 Then Label2.Caption = "" Command1.Visible = True Label1.Caption = "Вы не справились, хотите снова, нажмите снова, а затем дальше" End If Case 7 End End Select Label2.Caption = "Ваша оценка" & x End Sub Private Sub Command2_Click() i = 0 x = 0 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д