Задание для самостоятельной работы 6.1 Перехват ошибок времени выполнения

Подготовка:

• Создайте новый файл Excel и сохраните его как C:\ErrorHandling. xls.
• В ячейку A1 этого файла введите значение "Результат деления:".
• Щелкните правой кнопкой мыши по любой панели инструментов или меню и в открывшемся списке доступных панелей инструментов выберите Элементы управления.
• Нажмите на кнопку Режим конструктора на панели инструментов Элементы управления (верхняя левая кнопка) и в этом режиме поместите на лист Excel новую кнопку. Для этого нужно щелкнуть по объекту Кнопка на панели инструментов Элементы управления и на листе определить местонахождение и размеры этой кнопки.
• Щелкните по созданной вами кнопке правой кнопкой мыши и в контекстном меню выберите Свойства. Определите для нее свойства по вашему желанию. Выглядеть лист с этой кнопкой в итоге может, например, так, как показано на рис. 6.5:

Рис.  6.5 Интерфейс нашей программы

• В режиме конструктора щелкните по кнопке правой кнопкой мыши и в контекстном меню выберите "Исходный текст". Откроется редактор кода Visual Basic с созданной процедурой для события Click данной кнопки. Поместите в него следующий код:

Private Sub CommandButton1_Click()

Dim nNum1 As Integer

Dim nNum2 As Integer

Dim nResult As Integer

nNum1 = InputBox("Введите первое число")

nNum2 = InputBox("Введите второе число")

nResult = nNum1/nNum2

Range("B1").Value = nResult

End Sub

Вернитесь в ваш лист, выйдите из режима конструктора (щелкнув по кнопке Выход из режима конструктора на панели инструментов Элементы управления) и нажмите на созданную вами на листе кнопку. Убедитесь, что если вводить допустимые значения для делимого и делителя, то код работает правильно и выводит результат деления в ячейку B2.

Задание:

Измените эту программу таким образом, чтобы обеспечить защиту от ввода пользователем недопустимых значений (например, строковых значений делимого или делителя или значения делителя, равного 0).

Примечание

Не обязательно оставлять код по приему значений от пользователя и выполнению деления в обработчике события Click кнопки Запуск. Этот код при желании вполне можно перенести во внешние процедуры или функции.

Получить учебные материалы по этому курсу