Функции ввода и вывода Урок в 10 классе. Функция InputBox (Окно Ввода). InputBox(Приглашение$, Заголовок$, [ПоУмолчанию$]) InputBox(Приглашение$, Заголовок$, - презентация

1 Функции ввода и вывода Урок в 10 классе

2 Функция InputBox (Окно Ввода). InputBox(Приглашение$, Заголовок$, [По Умолчанию$]) InputBox(Приглашение$, Заголовок$, [По Умолчанию$])

3 Функция MsgBox (Панель Сообщений). MsgBox(Сообщение$ MsgBox(Сообщение$ [, Чис Код 1+Чис Код 2] [, Заголовок$])

4 Значения Чис Код 1 и Чис Код 2, определяющие вид панели сообщений

5 Значения функции MsgBox Нажатая кнопка Значение функции ОК1 Отмена 2 Стоп 3 Повтор 4 Пропустить 5 Да 6 Нет 7

6 Проект «Проверка знаний» задать (напечатать) вопрос; задать (напечатать) вопрос; запросить ответ и запомнить введенное с клавиатуры значение; запросить ответ и запомнить введенное с клавиатуры значение; полученный ответ сравнить с правильным полученный ответ сравнить с правильным в зависимости от выполнения или невыполнения этого условия, реализовать различные действия. в зависимости от выполнения или невыполнения этого условия, реализовать различные действия.

7 Проект «Проверка знаний» 1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. 1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption.

8 Проект «Проверка знаний» Dim strA As String, bytB As Byte Private Sub Command1_Click() strA = InputBox("Введите ваше имя и фамилию:", "Регистрация") bytB = MsgBox("Уважаемый " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации") End Sub

9 Проект «Проверка знаний» Вторым аргументом функции MsgBox является числовое значение, которое одновременно задает тип выводимого информационного окна и набор размещенных на нем кнопок. Вторым аргументом функции MsgBox является числовое значение, которое одновременно задает тип выводимого информационного окна и набор размещенных на нем кнопок. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки Да и Нет. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки Да и Нет. Щелчок по одной из кнопок приводит к возвращению функцией определенного числового значения (Да - 6, Нет - 7), которое присваивается числовой переменной bytB. Щелчок по одной из кнопок приводит к возвращению функцией определенного числового значения (Да - 6, Нет - 7), которое присваивается числовой переменной bytB.

10 Проект «Проверка знаний» С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке Нет), либо продолжение работы и переход к проверке знаний (щелчок по кнопке Да): С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке Нет), либо продолжение работы и переход к проверке знаний (щелчок по кнопке Да): If bytB = 7 Then End If bytB = 7 Then End

11 Проект «Проверка знаний» Вопрос задается с помощью функции … Проверка правильности ответа с помощью оператора … Вывод информации о правильности или неправильности ответа с помощью функции …

12 Проект «Проверка знаний» 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

13 Запустить проект, пройти регистрацию и ответить на вопросы. Результат будет выведен с помощью панели сообщений функции MsgBox. Запустить проект, пройти регистрацию и ответить на вопросы. Результат будет выведен с помощью панели сообщений функции MsgBox.

14 Домашнее задание Разработать проект, в котором проводится регистрация (запрашивается имя, отчество и фамилия) и существует возможность изменить регистрационные данные. Разработать проект, в котором проводится регистрация (запрашивается имя, отчество и фамилия) и существует возможность изменить регистрационные данные.