Напечатать список группы и средний балл каждого студента - VB

Узнай цену своей работы

Формулировка задачи:

Прощу помочь с задачей. Дела плохи,а завтра сдавать( Пожалуйста помогите Пробовала,но совсем не получается Задача: Задан список группы и пять оценок каждого студента.Фамилии от оценок и оценки друг от друга отделены символом *.Напечатать список группы и средний балл каждого студента. Умоляю!!!

Решение задачи: «Напечатать список группы и средний балл каждого студента»

textual
Листинг программы
Sub sb_StuBall()
Dim lSum&
Dim i%
Dim sStr$, sStu$, sArr$()
 
    sStr = "Stu_1*1*2*3*4*5*Stu_2*1*2*3*4*5*Stu_3*1*2*3*4*5*Stu_4*1*2*3*4*5"
 
    sStr = sStr & "*" ' обязательно добавляем финальную *, если ее нет
    sArr = Split(sStr, "*")
 
    For i = LBound(sArr) To UBound(sArr)
        Select Case IsNumeric(sArr(i))
            Case True
                lSum = lSum + sArr(i)
            Case False
                sStu = sStu & " - " & (lSum / 5) & vbCrLf & sArr(i)
                lSum = 0
        End Select
    Next
    lSum = 0
 
    sStu = Mid(sStu, Len(" - " & (lSum / 5) & vbCrLf) + 1)' отрезаем ненужное начало ...
    ' ... длиной с наш разделитель - копируем код просто, чтобы не вычислять - сколько отрезать
 
    Debug.Print sStu
    Stop
End Sub

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы