1. В меню Файл выберите команду Создать проект.
2. В диалоговом окне Создание проекта в области Шаблоны выберите Приложение Windows.
3. В поле Имя введите TryCatch и нажмите кнопку ОК.
Откроется новый проект Windows Forms.
4. Из Панели элементов перетащите один элемент управления TextBox и один элемент Button на форму.
5. Дважды щелкните элемент управления Button, чтобы открыть редактор кода.
6. В обработчик событий Button1_Click введите следующий код:
Try Dim aNumber As Double = CDbl(Textbox1.Text) MsgBox("You entered the number " & aNumber)Catch MsgBox("Please enter a number.")Finally MsgBox("Why not try it again?")End Try 7. Нажмите клавишу F5 для запуска программы.
8. Введите числовое значение в текстовом поле и нажмите кнопку. Отображается окно сообщения, показывающее введенное число, за которым следует предложение повторить попытку.
9. Затем введите нечисловое значение в текстовом поле, например слово, и нажмите кнопку. На этот раз, когда программа пытается преобразовать текст поля в число, она не может это сделать, и возникает ошибка. Вместо завершения кода в блоке Try будет выполнен код в блоке Catch, и появится окно сообщения, предлагающее ввести число. Затем выполнится блок Finally, приглашающий повторить попытку.
