Использование средств Visual Basic .NET в создании информационных систем - 70 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

70
"Ошибка")
TempStr = InputBox("Введите курс", "Ввод курса")
Loop
' перевод введенного курса в числовое значение
NK = CByte(TempStr)
' запрос у пользователя интересующей его группы
TempStr = InputBox("Введите группу", "Ввод группы")
Do While Not IsNumeric(TempStr)
'если введенная группа не является числом,
' но является пустым значением
If (TempStr = "") Then
' то файл закрывается и осуществляется выход
' из процедуры
FileClose(F4)
Exit Sub
End If
' если введенная группа не является числом,
' то еще раз производится запрос номера группы
MsgBox("Группа-число", vbOKOnly + vbExclamation, _
"Ошибка")
TempStr = InputBox("Введите группу", "Ввод группы")
Loop
' перевод введенной группы в числовое значение
NG = CByte(TempStr)
' подготовка данных для сортировки по полю ФИО
For i = 1 To N
R.ReadFromFile(f1, i)
KeyFIO(i) = R.FIO
Ind(i) = i
Next i
' сортировка данных
Call SortStr(KeyFIO, N, Ind)
' запись в файл информации о курсе и группы
PrintLine(F4, "Курс " + CStr(NK) + ", Группа " + CStr(NG))
' порядковый номер студентов в группе
' начинается с единицы
NPP = 1
For i = 1 To N
' считывание следующей записи и если курс и группа
' соответствуют, то производится вывод в файл отчета
R.ReadFromFile(f1, Ind(i))
If R.Kurs = NK And R.Group = NG Then

Страницы