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