VBA в Excel

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

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

нужна очень ваша помощь завтра сдавать прогу а я нихрена не шарю! есть задание даны значения -5, 6, 10, -15, 10, 6, -3, 0 нужно найти среднее арифметическое положительных значений и их количество. К-кол-во S-сумма Sa-среднее арифметическое Заранее большое спосибо

Решение задачи: «VBA в Excel»

textual
Листинг программы
Sub m_1()
Dim i As Integer
Dim Сумма As Single
Dim Среднее As Single
Dim Количество As Integer
'Анализ заданных чисел. Анализ проводим в Excel; данные находятся в первом столбце.
For i = 1 To 8
    If Sgn(Cells(i, 1)) = 1 Then
        Сумма = Сумма + Cells(i, 1)
        Количество = Количество + 1
    End If
Next i
Среднее = Сумма / Количество
MsgBox "Среднее арифметическое положительных значений: " & Среднее & vbCr & _
    "Число положительных значений: " & Количество
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 3.867 из 5