130

ся оператор вывода окна сообщения о том, что процедура завершена.

5.Нажать клавишу F8, чтобы перейти в пошаговый режим и выполнить следующий оператор. После проверки условия оператора If процедура не стала выполнять оператор вывода окна сообщения, а перешла к пункту Else и выделила его, т.е. определена инструкция, которая работает не так, как было задумано.

5.Нажать клавишу F5, чтобы продолжить выполнение процедуры в обычном режиме.

3.1.2.Исправление ошибок

Теперь можно исправить ошибку в процедуре Ошибка. Очевидно, что метод InputBox при щелчке на кнопке Отмена возвращает значение False, а не пустую строку, как первоначально ошибочно предполагалось. Ниже приведён код исправленной процедуры.

Sub Ошибка() Dim response

response = Application.InputBox("Введите ваше имя") If response = False Then

MsgBox "Процедура завершена" Exit Sub

Else

MsgBox "Ваше имя - " & response End If

End Sub

Следует протестировать эту процедуру ещё раз, чтобы убедиться в том, что она работает так, как задумано.