Курсовая работа: Цифровые образовательные ресурсы, как составляющая часть электронного образовательного пространс

Else: Label1.Caption = "Неправильно!"

pov = pov + 1

End If

Else: Label1.Caption = Label1.Caption + "Только две попытки!"

End If

End Sub

Второй вопрос :

Private Sub CommandButton1_Click()

k 1= k 1+ 1

If k 1< 3 Then

If OptionButton6.Value = True Then

Label2.Caption = "Правильно!"

oc = oc + 1

Else: Label2.Caption = "Неправильно!"

pov = pov + 1

End If

Else: Label2.Caption = Label2.Caption + "Только две попытки!"

End If

End Sub

Третий вопрос :

Private Sub CommandButton1_Click()

k 2= k2 + 1

If k2< 3 Then

If OptionButton10.Value = True Then

Label3.Caption = "Правильно!"

oc = oc + 1

Else: Label3.Caption = "Неправильно!"

pov = pov + 1

End If