Pr15

   Проект тест.

На форме 5 объектов.

Label1, textbox1, label2, label3, button1.

В надписях появляются вопрос, реакция, количество ошибок.

В окне вводится ответ. Для начала нажать кнопку управления.

 

Private sub button1_click()

Dim otvet as string

        N as byte

N=-1

Label1.text=”чему равен 1 байт?”

Label2.text=””

If textbox1.text=”8 бит” then

  Label2.text=”Правильно”

Else

   Label2.text=”неправильно”

   N=N+1

End if

Label3.text=n

End

   Примечание.

На кнопку придется нажать 2 раза, до вопроса и после ввода ответа.

Тест на 1 вопрос иллюстрирует работу условного оператора.