Не переходить к следующему вопросу в тестах, пока не выбран 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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