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

UptoLike

ВУЗ: 

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

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

Рубрика: 

73
выводится средний балл в группе. Код процедуры снабжен подробными коммен-
тариями.
Private Sub mnuQueryKolItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles mnuQueryBallItem.Click
Dim Sum As Double
Dim k As Integer
Dim i As Integer
Dim Ind(Nmax) As Integer
Dim KeyK(Nmax) As Single
Dim KeyG(Nmax) As Single
Dim NK As Byte
Dim NG As Byte
Dim S As TBall = New TBall()
' вызов процедуры создания вспомогательного файла,
' содержащего информацию о среднем балле каждого студента
AverageBallCreate()
' открывается созданный вспомогательный файл
F3 = New FileStream(Path1, FileMode.Open)
' открывается вспомогательный файл kol.avg, находящийся в
' той же папке, что и работающий проект
Path2 = CurDir() + "\kol.avg"
F4 = FreeFile()
FileOpen(F4, Path2, OpenMode.Output)
' подготовка данных для сортировки по курсу и группе
For i = 1 To N
S.ReadFromFile(F3, i)
KeyK(i) = S.Kurs
KeyG(i) = S.Group
Ind(i) = i
Next i
' сортировка данных
Call Sort(KeyG, N, Ind)
Call Sort(KeyK, N, Ind)
' вывод заголовка таблицы отчета
PrintLine(F4, "Курс" + vbTab + "Группа" + vbTab + _
"Кол-во студ." + vbTab + "Сред-ний балл")
' чтение первой записи в отсортированном списке
i = 1
S.ReadFromFile(F3, Ind(i))

Страницы