Не переходить к следующему вопросу в тестах, пока не выбран OptionButton

Private Sub Command1_Click() 'щелчок по кнопке  "Далее"
    '
    Command1.Enabled = False 'делаем кнопку "Далее" недоступной
    'тут твой код
    '
End Sub
 
' Обрабатывам именно это событие, а не Option1_Click(так боллее корректно будет работать)
Private Sub Option1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
     '
     Command1.Enabled = True 'разрешаем  кнопку "Далее"
     '
End Sub

If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False And Option1(3).Value = False Then
    MsgBox "Вы не ответили на вопрос!": Exit Sub
End If

Private Sub Command1_Click()
If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False And Option1(3).Value = False Then
    MsgBox "Âû íå îòâåòèëè íà âîïðîñ!"
Else
    'Ïîêàçûâàåì òóò ñëåäóþùèå âîïðîñû
    Option1(0).Value = False
    Option1(1).Value = False
    Option1(2).Value = False
    Option1(3).Value = False
End If
End Sub

rivate Sub Command1_Click()
Command1.Caption = "Ïðîäîëæèòü òåñò"
i = i + 1
Select Case i
Case 1
Label1.Caption = "Ãëàâíûì óñòðîéñòâîì ïåðñîíàëüíîãî êîìïüþòåðà ÿâëÿåòñÿ?"
Option1.Caption = "1)Ìûø"
Option2.Caption = "2)Ïðîöåññîð"
Option3.Caption = "3)Æåñòêèé äèñê"
Option4.Caption = "4)ÏÇÓ"
Case 2
If Option2.Value = True Then
x = x + 1

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)ÑD-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 + x + 1
End If
Label1.Caption = "Ê âíåøíèì çàïîìèíàþùèì óñòðîéñòâàì îòíîñÿòñÿ"
Option1.Caption = "1) Ïðîöåññîð "
Option2.Caption = "2) Ìîíèòîð"
Option3.Caption = "3) )Ïðèíòåð"
Option4.Caption = "4) Æåñòêèé äèñê"
Case 5
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 6
If Option1.Value = True Then
x = x + 1
End If
Label1.Caption = "×åìó ðàâåí 1 ãèãàáàéò ?"
Option1.Caption = "1)103 Ìáàéò"
Option2.Caption = "2)1000 Ìáàéò "
Option3.Caption = "3) 1000 000 Êáàéò"
Option4.Caption = "4) 210   ^10  Ìáàéò"
Case 7
If Option4.Value = True Then
x = x + 1
End If
If x = 5 Then
Command1.Caption = "Âûõîä"
Label1.Caption = "Âû ñïðàâèëèñü íàæìèòå âûõîä"
Form1.ForeColor = vbGreen
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()
x = 0
i = 0
Command1.Caption = "Äàëüøå"
End Sub
 
 
Private Sub Form_Load()
Form2.Show
Form1.Hide
End Sub

If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option14.Value = False Then
    MsgBox "Вы не ответили на вопрос!"
Else
    'Показываем тут следующие вопросы
    Option1.Value = False
    Option2.Value = False
    Option3.Value = False
    Option4.Value = False
End If

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