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

UptoLike

ВУЗ: 

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

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

Рубрика: 

74
Do While i <= N
' фиксирование номера текущего курса
NK = S.Kurs
Do While NK = S.Kurs And i <= N
' фиксирование номера текущей группы
NG = S.Group
' начальные количество и сумма равны нулю
k = 0
Sum = 0
' вычисление количества студентов и суммы их
' средних баллов
Do While NK = S.Kurs And NG = S.Group
k = k + 1
Sum = Sum + S.Sb
i = i + 1
If i <= N Then
S.ReadFromFile(F3, Ind(i))
Else
Exit Do
End If
Loop
' вывод в файл номера курса, номера группы,
' количества студентов и среднего балла группы
PrintLine(F4, CStr(NK) + vbTab + CStr(NG) + vbTab _
+ vbTab + vbTab + CStr(k) + vbTab + vbTab _
+ vbTab + CStr(Format(Sum / k, "#0.00")))
Loop
Loop
' вспомогательные файлы закрываются
F3.Close()
FileClose(F4)
' загрузка только что созданного файла в RichTextBox1
RichTextBox1.LoadFile(Path2, _
RichTextBoxStreamType.PlainText)
richName = Path2
' показ элемента RichTextBox1 и кнопки «Сохранить отчет»
RichTextBox1.Visible = True
cmdSaveOtch.Visible = True
End Sub

Страницы