Напечатать список группы и средний балл каждого студента - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д