End Select

End Sub

Добавляемые в процедуру строки выделены жирным курсивом. Оператор On Error GoTo Err_Label при возникновении ошибки выполнения передаст управление оператору, помеченному меткой Err_Label. Оператор Select Case в зависимости от значения, возвращаемого функцией Obr_Err, передаст управление нужному оператору, тем самым, продолжив выполнение программы. И только в случае обнаружения нераспознанной ранее ошибки работа программы будет завершена.

25. Проверить работу функции Obr_Err. Для этого запустить программу и попытаться ввести очень большое число.

26. Самостоятельно добавить кнопку в форму Отладка и связать её с процедурой нахождения частного от деления среднего арифметического среди нечетных чисел на минимальное число. Самостоятельно предусмотреть обработку других возможных ошибок выполнения.

 

ЛАБОРАТОРНАЯ РАБОТА №3
Создание и обработка файлов

 

Цель лабораторной работы:

- разработка пользовательского интерфейса приложения

- программирование создания и просмотра файла произвольного доступа

Задание:

1) На основе данных, вводимых в форму (рис.3.1), создать файл прямого доступа, содержащий сведения о студентах.

2) Вывести данные из файла в форму (рис.3.2)

3) Объединить выполнение пунктов заданий 1) и 2) с помощью кнопочного меню (рис 3.3) в одно приложение.

4) Самостоятельно дополнить приложение созданием второго файла, содержащим результаты сдачи сессии каждым из студентов, и процедурой совместной обработки двух файлов.

5) Используя лекционный материал, создать вложенное меню для выполнения всех процедур приложения.

 

Рис 3.1. Форма для ввода в файл сведений о студенте.

 

Рис.3.2. Форма для просмотра сведений о студенте.

 

Рис 3.3. Кнопочное меню приложения Университет.