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