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