Проект «Контроль знаний» 10 класс. Поместить на форму: Надпись Label 1 для вывода оценочных сообщений; Надпись Label 2 для вывода количества ошибок; Кнопку. - презентация

1 Проект «Контроль знаний» 10 класс

2 Поместить на форму: Надпись Label 1 для вывода оценочных сообщений; Надпись Label 2 для вывода количества ошибок; Кнопку Command 1 для запуска событийной процедуры.

3 Код событийной процедуры будет следующим: Dim Ot As String, N As Byte Private Sub Command1_Click() Ot = Input Box("Чему равен 1 байт?", "Первый вопрос") If Ot = "8 бит" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Ot = Input Box("Переведите число 5 из десятичной системы в двоичную", "Второй вопрос") If Ot = "101" Then Label1.Caption = "Правильно!" Else Label1.Caption = "Неправильно!": N = N + 1 End If Label2.Caption = N End Sub

4 . Запустить проект и щелкнуть по кнопке Начать проверку. В появившемся диалоговом окне функции Input Box ввести в текстовое поле ответ на вопрос и щелкнуть по кнопке OK.

5 На первую надпись будет выведено оценочное сообщение, а на вторую надпись – количество ошибок.

6 Составить 10 вопросов.