Dim vrt1, vrt2, vrt3, vrt4, vrt5, vrt6, vrt7, vrt8, vrt9, vrt10, vrt11, vrt12 As Variant
Private Sub Command1_Click()
vrt1 = InputBox("Введите ваши ФИО:", "Регестрация")
vrt2 = MsgBox("Уважаемый(ая)" + vrt1 + "вы готовы к проверке знаний ? ", 32 + 4, "Конец регестрации")
If vrt2 = 7 Then End
vrt3 = MsgBox("Уважаемый(ая)" + vrt1 + "Взможно вы неправельно ввели свои ФИО ! Если вы ввели правильно намите OK, если вы допустили ошибку нажмите ОТМЕНА:", 48 + 1, "Уточнение данных")
If vrt3 = 2 Then
vrt4 = InputBox("Заново введите ваши ФИО:", "Повторная регестрация")
If vrt4 = 7 Then End
vrt5 = MsgBox("Уважаемый(ая)" + vrt4 + "вы готовы к проверке знаний ?", 32 + 4, "Конец регестрации")
vrt6 = InputBox("Сколько бит в одном байте ?", "Вопрос №1")
If vrt6 = "8" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt7 = MsgBox("Неправильно:", 0, "Ой"): vrt9 = vrt9 + 1
vrt10 = InputBox("Может ли картинка быть инфецированна вирусом ?:", "Вопрос №2")
If vrt10 = "да" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt11 = MsgBox("Неправильно", 0, "Ой"): vrt9 = vrt9 + 1
MsgBox "Уважаемый(ая) " + vrt1 + "пройдя тест вы сделали " + Str(vrt9) + " ошибок и дали " + Str(vrt8) + " правельных ответов", 0, "Конец"
Else: vrt6 = InputBox("Сколько бит в одном байте ?:", "Вопрос №1")
If vrt6 = "8" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt7 = MsgBox("Неправильно:", 0, "Ой"): vrt9 = vrt9 + 1
vrt10 = InputBox("Может ли картинка быть инфецированна вирусом ?:", "Вопрос №2")
If vrt10 = "да" Then vrt7 = MsgBox("Правильно", 0, "Ура"): vrt8 = vrt8 + 1 _
Else: vrt11 = MsgBox("Неправильно:", 0, "Ой"): vrt9 = vrt9 + 1
MsgBox "Уважаемый(ая) " + vrt1 + "пройдя тест вы сделали " + Str(vrt9) + " ошибок и дали " + Str(vrt8) + " правельных ответов", 0, "Конец"
End If
End
End Sub
Private Sub Command2_Click()
End
End Sub