Проект «Контроль знаний» 10 класс
Поместить на форму: Надпись Label 1 для вывода оценочных сообщений; Надпись Label 2 для вывода количества ошибок; Кнопку Command 1 для запуска событийной процедуры.
Код событийной процедуры будет следующим: 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
. Запустить проект и щелкнуть по кнопке Начать проверку. В появившемся диалоговом окне функции Input Box ввести в текстовое поле ответ на вопрос и щелкнуть по кнопке OK.
На первую надпись будет выведено оценочное сообщение, а на вторую надпись – количество ошибок.
Составить 10 вопросов.