ПРОЕКТ № 8 Проверка знаний

ПРОЕКТ № 8 1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. Создать      событийную процедуру cmd1_Click(). 2. C помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с  помощью функции MsgBox вывести результаты регистрации: Dim bytB, bytN As Byte, strA, strB As String Sub cmd1_Click() strA = InputBox("Введите ваше имя и фамилию:", "Регистрация") bytB = MsgBox("Уважаемый  " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации") 3. Запустить проект и щёлкнуть по кнопке Начать проверку. На появившейся диалоговой панели Регистрация ввести в  текстовое поле имя и фамилию. 4. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки «Да»  и «Нет».     Щелчок по одной из кнопок приводит к возвращению функцией определённого числового значения  ( Да ­6, Нет – 7),  которое присваивается числовой переменной  bytB. 5. С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке  Нет), либо переход к  проверке знаний (щелчок по кнопке Да):      If bytB = 7 Then End 6. Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности  вопросов. В переменной bytN накапливать количество правильных ответов: strC = InputBox("Чему равен 1 байт?:", "Первый вопрос") If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _ Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1 strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос") If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _ Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1 MsgBox "Уважаемый  " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса" End Sub 7. Запустить проект, пройти регистрацию и ответить на вопросы. Дополнить проект ещё тремя вопросами.  Один вопрос ПРОЕКТ № 8 1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. Создать      событийную процедуру cmd1_Click(). 2. C помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с  помощью функции MsgBox вывести результаты регистрации: Dim bytB, bytN As Byte, strA, strB As String Sub cmd1_Click() strA = InputBox("Введите ваше имя и фамилию:", "Регистрация") bytB = MsgBox("Уважаемый  " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации") 3. Запустить проект и щёлкнуть по кнопке Начать проверку. На появившейся диалоговой панели Регистрация ввести в  текстовое поле имя и фамилию. 4. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки «Да»  и «Нет».     Щелчок по одной из кнопок приводит к возвращению функцией определённого числового значения  ( Да ­6, Нет – 7),  которое присваивается числовой переменной  bytB. 5. С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке  Нет), либо переход к  проверке знаний (щелчок по кнопке Да):      If bytB = 7 Then End 6. Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности  вопросов. В переменной bytN накапливать количество правильных ответов: strC = InputBox("Чему равен 1 байт?:", "Первый вопрос") If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _ Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1 strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос") If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _ Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1 MsgBox "Уважаемый  " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса" End Sub Один вопрос 7. Запустить проект, пройти регистрацию и ответить на вопросы. Дополнить проект ещё тремя вопросами.