Предотвращение ошибок программными средствами

Рассмотрим программу, которая вычисляет обратное число и выводит его на экран:

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

Dim x As Double

Dim y As Double

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

y = 1/x

MsgBox "Обратное число:" & y

End Sub

где: С 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, "Обратное число"

Exit Sub

End If

x = CDbl (Число)

If CDbl (Число) = 0 Then

MsgBox "Деление на ноль запрещено!", vbExclamation, _

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

Exit Sub

End If

y = 1/x

MsgBox "Обратное число:" & y

End Sub

Попробуем теперь решить эту проблему с помощью перехвата ошибок и их обработки. Для этого предназначена инструкция On Error.

Обработка ошибок, инструкция On Error

Инструкция On Error может быть записана следующим образом:

Инструкция	Описание
On Error GoTo строка	В случае возникновении ошибки управление передается в строку с указанным номером или меткой.
On Error Resume Next	В случае возникновении ошибки управление передается в следующую строку. При обращении к объектам лучше использовать этот синтаксис, нежели предыдущий. Инструкция Resume допустима в следующих синтаксисах: q Resume – управление передается той инструкции, в которой произошла ошибка. Пример: On Error Resume q Resume строка – управление передается в строку с указанным номером или меткой. Пример: On Error Resume m1 – управление передается в строку с меткой m1. q Resume Next – см. выше.
On Error GoTo 0	Отключает обработчик ошибок в текущей процедуре.

Объект Err

Процедура обработки ошибок обычно включает объект Err, который содержит всю информацию о последней ошибке.

Рассмотрим два важнейших свойства объекта Err:

Свойство	Описание
Number	Возвращает код ошибки.
Description	Возвращает текст сообщения об ошибке

Пример:

ОбработкаОшибок:

MsgBox "Произошла ошибка: " & Cstr(Err.Number) & “-“ & _

Err.Description, vbInformation, “Cообщение об ошибке”

Объект Err имеет свои методы:

Метод	Описание
Clear	Очищает все значения свойств объекта Err.
Raise	Создает ошибку выполнения. Используется при моделировании ошибок.

Напишем программу ОбратноеЧислоError, в которой ошибки обрабатываются с помощью конструкции On Error.

1)	Sub ОбратноеЧислоError ()
2)	Dim x As Double
3)	Dim y As Double
4)	Dim Число As String
5)	‘Передача управления на обработчик ошибок, помеченный _ меткой Ошибка:
6)	On Error GoTo Ошибка
7)	x = CDbl(InputBox("Введите число:"))
8)	y = 1 / x
9)	MsgBox "Обратное число:" & y
10)	Exit Sub
11)	‘Обработчик ошибок
12)	Ошибка:
13)	MsgBox "Произошла ошибка: " & Cstr(Err.Number) & “-“ & _ Err.Description, vbInformation, “Cообщение об ошибке”
14)	Select Case Err.Number
15)	Case 11
16)	MsgBox "Деление на ноль запрещено!", vbExclamation, _ "Обратное число "
17)	Case 13
18)	MsgBox "Некорректный ввод исходного значения!", _ vbExclamation, "Обратное число"
19)	Case Else
20)	MsgBox "Непредвиденная ошибка!", _ vbExclamation, "Обратное число"
21)	End Select
22)	End Sub

Обратите внимание на 10-ю строку кода, которая обеспечивает выход из процедуры перед активизацией обработчика ошибок. В случае её отсутствия управление передается на следующую команду, т.е. будет выведено сообщение об ошибке, даже если её и нет.

13-я строка кода приведена лишь в учебных целях, для неискушенного пользователя она не понятна!