Не считается результат теста: модернизировать код - VB

Формулировка задачи:

Private Sub NextQ_Click() 'ГЄГ*îïêГ* Г*Г*Г±ГІГіГЇГ*ГҐ ГЇГЁГІГ*Г*Г*Гї
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
c = MsgBox("ͳ÷îãî Г*ГҐ ГўГЁГЎГ°Г*Г*Г®", vbOKOnly, "ÏîìèëêГ*")
Else
On Error Resume Next
Data1.Recordset.MoveNext
Data2.Recordset.MoveNext
End If
If Vopros.Caption = "7" Then
NextQ.Visible = False
result.Visible = True
End If
b = 0
If Vopros.Caption = "1" And Option1.Value = True Then
b = d + 1
End If
If Vopros.Caption = "2" And Option2.Value = True Then
b = d + 1
End If
If Vopros.Caption = "3" And Option2.Value = True Then
b = d + 1
End If
If Vopros.Caption = "4" And Option2.Value = True Then
b = d + 1
End If
If Vopros.Caption = "5" And Option3.Value = True Then
b = d + 1
End If
If Vopros.Caption = "6" And Option3.Value = True Then
b = d +  1
End If
If Vopros.Caption = "7" And Option3.Value = True Then
b = d + 1
End If
Label1.Caption = b
 
End Sub
должно прибавлять значение b то есть количество правильных ответов должно считать а в конце выводить, почему не считает?

Код к задаче: «Не считается результат теста: модернизировать код - VB»

textual
Private Sub NextQ_Click() 'кнопка наступне питання
STATIC B AS LONG
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
'-------------------

11   голосов, оценка 3.727 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы