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

UptoLike

ВУЗ: 

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

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

Рубрика: 

77
Dim KeyB(Nmax) As Single
Dim S As TBall = New TBall()
Dim Button As Integer
' вызов процедуры создания вспомогательного файла,
' содержащего информацию о среднем балле каждого студента
AverageBallCreate()
' открывается созданный вспомогательный файл
F3 = New FileStream(Path1, FileMode.Open)
' подготовка данных для сортировок
For i = 1 To N
S.ReadFromFile(F3, i)
KeyK(i) = S.Kurs
KeyG(i) = S.Group
KeyFIO(i) = S.FIO
KeyB(i) = -S.Sb ' для сортировки по убыванию
Ind(i) = i
Next i
' запрос о порядке вывода отчета
Button = MsgBox("Вывод по убыванию среднего балла?", _
vbQuestion + vbYesNo, "Вывод результата")
' сортировка данных производится по курсу, группе и либо по
' ФИО, либо по среднему баллу, в зависимости ответа
' пользователя на запрос
If Button = vbYes Then
Call Sort(KeyB, N, Ind)
Call Sort(KeyG, N, Ind)
Call Sort(KeyK, N, Ind)
Else
Call SortStr(KeyFIO, N, Ind)
Call Sort(KeyG, N, Ind)
Call Sort(KeyK, N, Ind)
End If
' заполнение заголовка формы frmTableRez
frmTableRez.Text = "Просмотр файла: " + Path1
With frmTableRez.GridView1
.ColumnCount = 5
' запись названий столбцов в таблицу
.Columns(0).Name = "№"
.Columns(1).Name = "Курс"
.Columns(2).Name = "Группа"
.Columns(3).Name = "Фамилия И.О."

Страницы