Упражнение

Создайте следующую процедуру.

Sub ПримерЧас12()

Dim sWhichState As String

sWhichState = InputBox("Введите название штата, куда доставляется груз")

Select Case UCase (sWhichState)

Case "FL"

MsgBox "Стоимость доставки 3.50"

Case "NY"

MsgBox "Стоимость доставки 5.00"

Case "OH"

MsgBox "Стоимость доставки 2.00"

Case "СА"

MsgBox "Стоимость доставки 6.00"

Case Else

MsgBox "В этот штат доставка не предусмотрена"

End Select

End Sub

Выполните процедуру и введите Ny в окно ввода. Используйте средства отладки и тестирования, описанные в этом часе, чтобы найти и исправить ошибки в процедуре.

Исправление в коде помечено полужирным шрифтом.

Ответы к 13-му часу

Тесты

1. Опишите три основные этапа создания обработчика ошибок.

1.) Установка ловушек для ошибок; 2.) Написание процедуры обработки ошибок; 3.) Создание выхода из процедуры обработки ошибок.

1. Назовите объект и его свойство, которые применяются для определения номера ошибки.

Свойство Number объекта Err.

1. Какой оператор возвращает управление тому оператору, при выполнении которого произошла ошибка?

Оператор On Error Resume.

1. Какой символ завершает имя метки?

Двоеточие.

1. Какой оператор пропускает тот оператор, где произошла ошибка?

Оператор On Error Resume Next.

1. Истинно или ложно следующее утверждение: каждая процедура должна иметь собственный обработчик ошибок?

Ложно. Можно создать централизованный обработчик ошибок.

1. Какая логическая конструкция лучше всего подходит для создания обработчика ошибок?

Структура оператора Select Case.