InputBox, MsgBox Автор работы: учитель информатики МБОУ СОШ 26 г. Пензы Флеонов Вадим Валерьевич. - презентация

1 InputBox, MsgBox Автор работы: учитель информатики МБОУ СОШ 26 г. Пензы Флеонов Вадим Валерьевич

2 a=InputBox(«Введите число», «Ввод числа») a=InputBox(«Подсказка», «Заголовок окна») Заголовок окна Подсказка Поле для ввода 2 Автор Флеонов В.В.

3 Можно вводить функцию как малыми так и большими буквами: INPUTBOX inputbox iNPUTbOX Обратите внимание на алгоритм: Это не ошибка! Компьютер сам исправит Private Sub Command1_Click() a = InputBox("Введите первое число", "Ввод числа") b = InputBox("Введите второе число", "Ввод числа") c=val(a)+val(b) End Sub Что выполняет эта подпрограмма и когда? 3 Автор Флеонов В.В.

4 z = MsgBox("Вы нашли сумму цифр", , "Вывод результата") z = MsgBox(«Фраза-ответ", числ.код 1 + числ.код 2, «Заголовок окна") Заголовок окна Знак (отвечает числ.код 1) Кнопки (отвечает числ.код 2) Фраза (ответ) 4 Автор Флеонов В.В.

5 0 – нет значка 16 - Ошибка 32- Вопрос 48 - Внимание 64 - Информация 5 Автор Флеонов В.В.

6 Числ.код 2Кнопки 0Ок 1Ок, Отмена 2Стоп, Повторить, Пропустить 3Да, Нет, Отмена 4Да, Нет 5Повторить, Отмена 6 Автор Флеонов В.В.

7 s = MsgBox("Завершить программу?", , "Завершение") 7 Автор Флеонов В.В.

8 a = InputBox("Введите первое число", "Ввод числа") b = InputBox("Введите второе число", "Ввод числа") c=val(a)+val(b) s = MsgBox("Сумма числе равна "+с, 0 + 0, "Ответ") Фраза- подсказка (в кавычках) Пробел Знак «+» Два числ.кода Заголовок (в кавычках) Переменная (БЕЗ кавычек) 8 Автор Флеонов В.В.

9 Необходим числовой код 3: Нажатая кнопка Значение Ок 1 Отмена 2 Стоп 3 Повторить 4 Пропустить 5 Да 6 Нет 7 9 Автор Флеонов В.В.

10 1 a = InputBox("Введите первое число", "Ввод числа") b = InputBox("Введите второе число", "Ввод числа") c=val(a)+val(b) s = MsgBox("Сумма числе равна "+с, 0 + 1, "Ответ") If s=2 Then End If s=1 Then GoTo 1 Т.е. если нажата кнопка Отмена (сообщение S=2), то программа завершает свою работу (End), если нажата ОК (сообщение S=1), то осуществляется переход с помощью GoTo к метке 1 (в нашем случае - в начало). Важно понимать, что в рассматриваемом алгоритме последнюю строку (If s=1 Then …) можно было не вводить, т.к. подпрограмма всё равно будет «ожидать» от пользователя последующих действий, например, нажатой кнопки 10 Автор Флеонов В.В.