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

UptoLike

ВУЗ: 

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

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

Рубрика: 

71
PrintLine(F4, vbTab + CStr(NPP) + "." + vbTab + R.FIO)
NPP = NPP + 1
End If
Next i
' файл отчета закрывается
FileClose(F4)
' загрузка только что созданного файла в RichTextBox1
RichTextBox1.LoadFile(Path2, _
RichTextBoxStreamType.PlainText)
richName = Path2
' показ элемента RichTextBox1 и кнопки «Сохранить отчет»
RichTextBox1.Visible = True
cmdSaveOtch.Visible = True
End Sub
13.2. Количество студентов и средний балл в группах
Во второй и третьей задаче из числа запланированных задач необходимо
для каждого студента вычислить средний балл. Вынесем вычисление среднего
балла каждого студента в отдельную пользовательскую процедуру, которая будет
принадлежать форме frmMenu. В этой процедуре создается вспомогательный
файл прямого доступа с записями пользовательского типа Tball, содержащий
столько же записей, сколько находится в файле исходных данных. Пользователь-
ский тип Tball содержит поле для вычисления среднего балла. Код процедуры
приведен ниже.
Private Sub AverageBallCreate()
Dim i As Integer
Dim j As Integer
Dim KeyK(Nmax) As Single
Dim KeyG(Nmax) As Single
Dim KeyFIO(Nmax) As String
Dim KeyB(Nmax) As Single
Dim R As TStud = New TStud()
Dim S As TBall = New TBall()
' открывается вспомогательный файл Ball.avg, находящийся в
' той же папке, что и работающий проект
Path1 = CurDir + "\Ball.avg"
F3 = New FileStream(Path1, FileMode.Create)

Страницы