• Ребята привет,помогите пожалуйста.В списке студентов найти средний балл всех студентов. Количество студентов не известно.
    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

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years