Case 6 ' переполнение переменной

txt = "Произошло переполнение переменной"

Obr_Err = 2

Case Else ' нераспознанная ошибка

txt = "Нераспознанная ошибка выполнения " & _
Err_Num

Obr_Err = 3

End Select

Err.Clear()

MsgBox(txt, vbOKOnly, "Ошибки выполнения")

End Function

Функция анализирует передаваемый ей код ошибки (Err_Num), выдает предупредительное сообщение и возвращает числовое значение, определяющее дальнейшее действие программы.

24. Отредактировать процедуру btnInput_Click в соответствии с приведенным ниже текстом:

 

Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click

Dim i As Byte

On Error GoTo Err_Label

MsgBox("Введите 10 чисел", MsgBoxStyle.OKOnly + MsgBoxStyle.Information)

For i = 1 To 10

b(i) = Val(InputBox("Введите " + Str(i) + " число", "Ввод числа"))

Next

Exit Sub

Err_Label:

Select Case Obr_Err(Err.Number)

Case 0: Resume

Case 1: Resume Next

Case 2: Exit Sub

Case 3: End

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. Кнопочное меню приложения Университет.