Private Sub CommandButton4_Click()

a = ((oc - (pov / 2)) / 3) * 100 'кол-во правильных ответов минус кол-во повторов, деленное на 2 и все поделить на кол-во вопросов

If a >= 95 Then

Label4.Caption = " Отлично"

End If

If a < 95 Then

If a >= 75 Then

Label4.Caption = "хорошо"

End If

End If

If a < 75 Then

If a >= 50 Then

Label4.Caption = "Удовлетворительно"

End If

End If

If a < 50 Then

Label4.Caption = "Неудовлетворительно"

End If

Label4.Caption = Label4.Caption + Chr(10) + Str(oc) + "правильных ответов" + Chr(10) + Str(pov) + "повтора(ов)"