Задача на VBA. Найти среднее значение отрицательных чисел.

[PeterFox]

Задача вроде как на 60-70% решена но хотелось бы полностью её доделать, помогите с решение пожалуйста. В экселе дан столбец "А", с 1 по 8 строчку заполненный отрицательными и положительными числами. Задание: бэйсик должен прочитать эти числа, и найти среднее от всех отрицательных чисел.
Public Sub Задача()
Dim I As Integer, F As Integer, L As Integer, K As Integer, M As Integer, SR As Single
F=0 K=0
M=ImputBox ("Введите кол-во чисел")
For L=1 to M
I Cells (L;1)
If I<0
Then K+1
F=F+1
End If
Next L
SR=F/K
MsgBox("Среднее значение равно"&"SR")
EndSub

[MCH]

Public Sub Задача()
Dim I As Double, F As Double, L As Integer, K As Integer, M As Integer, SR As Double
F = 0: K = 0
M = InputBox("Введите кол-во чисел")
For L = 1 To M
    I = Cells(L, 1)
    If I < 0 Then K = K + 1: F = F + I
Next L
If K > 0 Then
    SR = F / K
    MsgBox ("Среднее значение равно " & SR)
Else
    MsgBox ("Отрицательные числа отсутствуют")
End If
End Sub

[PeterFox]

а можете только подсказать как понимать следующее:
"F = 0: K = 0"

[MCH]

Сообщение от PeterFox

а можете только подсказать как понимать следующее:
"F = 0: K = 0"

Зануляем счетчик отрицательных значений (K) и их сумму (F) перед началом расчетного цикла

[PeterFox]

Спасибо за помощь)

[slan]

Сообщение от MCH

Зануляем счетчик отрицательных значений (K) и их сумму (F) перед началом расчетного цикла

что, в принципе, излишне, так как vba инициирует переменные этого типа нулями при объявлении..

[PeterFox]

Сообщение от slan

что, в принципе, излишне, так как vba инициирует переменные этого типа нулями при объявлении..

Да но нам при защите лабораторных преподаватель дополнял, хоть и не считал за ошибку) поэтому независимо от характера проверяющего желательно сделать полностью х)

[PeterFox]

Сообщение от slan

что, в принципе, излишне, так как vba инициирует переменные этого типа нулями при объявлении..

Есть какой нибудь клиент? интересует пара личных вопросов)