Студопедия


Авиадвигателестроения Административное право Административное право Беларусии Алгебра Архитектура Безопасность жизнедеятельности Введение в профессию «психолог» Введение в экономику культуры Высшая математика Геология Геоморфология Гидрология и гидрометрии Гидросистемы и гидромашины История Украины Культурология Культурология Логика Маркетинг Машиностроение Медицинская психология Менеджмент Металлы и сварка Методы и средства измерений электрических величин Мировая экономика Начертательная геометрия Основы экономической теории Охрана труда Пожарная тактика Процессы и структуры мышления Профессиональная психология Психология Психология менеджмента Современные фундаментальные и прикладные исследования в приборостроении Социальная психология Социально-философская проблематика Социология Статистика Теоретические основы информатики Теория автоматического регулирования Теория вероятности Транспортное право Туроператор Уголовное право Уголовный процесс Управление современным производством Физика Физические явления Философия Холодильные установки Экология Экономика История экономики Основы экономики Экономика предприятия Экономическая история Экономическая теория Экономический анализ Развитие экономики ЕС Чрезвычайные ситуации ВКонтакте Одноклассники Мой Мир Фейсбук LiveJournal Instagram

End Sub. где СDbl – функция преобразования типов (строковое значение преобразуется в число типа Double)




где СDbl – функция преобразования типов (строковое значение преобразуется в число типа Double).

Даже в этой простой программе имеются свои подводные камни, – например, пользователь по невнимательности забудет ввести число, или введет его неправильно (символ вместо числа, десятичную точку вместо десятичной запятой), или введет ноль. Во всех этих случаях произойдет аварийное завершение программы, и программа выдаст сообщение об ошибке: либо о несоответствии типов (рис. 11.1), либо о делении на ноль (11.2).

Чтобы избежать этого, необходимо модернизировать программу таким образом, чтобы она предотвращала перечисленные ошибки.

Рис. 11.1. Ошибка несоответствия типов

Рис. 11.2. Ошибка деления на ноль

Например, так:

Sub ОбратноеЧисло()

Dim x As Double

Dim y As Double

Dim Число As String

Число = InputBox("Введите число:")

‘Функция IsNumeric проверяет, является ли _

введенная последовательность числом:

If IsNumeric(Число) = False Then

MsgBox "Некорректный ввод исходного значения!", _

vbExclamation, "Обратное число"





Дата добавления: 2014-02-24; просмотров: 605; Опубликованный материал нарушает авторские права? | Защита персональных данных | ЗАКАЗАТЬ РАБОТУ


Не нашли то, что искали? Воспользуйтесь поиском:

Лучшие изречения: Учись учиться, не учась! 10183 - | 7789 - или читать все...

Читайте также:

 

34.237.76.91 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.


Генерация страницы за: 0.002 сек.