Ребята привет,помогите пожалуйста.В списке студентов найти средний балл всех студентов....

Question

Ребята привет,помогите пожалуйста.В списке студентов найти средний балл всех студентов. Количество студентов не известно.
Option Explicit
Sub randomstudents()
Dim i%, s$
Randomize
Cells.Clear
Cells(1, 1) = "ФИО"
Cells(1, 2) = "баллы"
For i = 1 To Fix(Rnd * 25 + 25)
Select Case Fix(Rnd * 6)
Case 0: s = "Иванов"
Case 1: s = "Петров"
Case 2: s = "Сидоров"
Case 3: s = "Смирнов"
Case 4: s = "Ковров"
Case 5: s = "Краснов"
Case Else: s = "Храмов"
End Select
If Rnd > 0.5 Then s = s + "а"
s = s + " "
s = s + Chr(Asc("А") + Fix(Rnd * 32))
s = s + "."
s = s + Chr(Asc("А") + Fix(Rnd * 32))
s = s + "."
Cells(i + 1, 1) = s
Cells(i + 1, 2) = Fix(Rnd * 101)
Next i
End Sub

Comments

Что значит "Количество студентов неизвестно"? Тогда сформулируйте критерий, как его определить. И еще, приведенная Вами программа помещает на лист рабочей книги Excel таблицу данных. Считать их исходными?

---

Вот файл к нему прилагается задание"в списке студентов найти средний балл всех студентов. Коичество студентов не известно, во втором столбце баллы "

Answer 1

Sub Mid()
    Dim n As Integer, i As Integer, m As Integer
    n = ActiveSheet.UsedRange.Rows.Count
    m = 0
    For i = 2 To n
        m = m + Cells(i, 2)
    Next i
    MsgBox Round(m / (n-1), 2)
End Sub