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

Ответы:

Дрон Соловей

08-07-2014 19:22

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

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Ребята привет,помогите пожалуйста.В списке студентов найти средний балл всех студентов. Количество студентов не известно. 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» от пользователя Lenchik Doroshenko в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!