Создать процедуру на языке VBA

Дана последовательность целых чисел a1, ... a45. Получить число отрицательных элементов последовательности a1, ... a35 и число нулевых элементов всей последовательности.

Требуемая процедура

Sub ex1 (ByRef a () As Integer, ByRef nn As Integer, ByRef nz As Integer)

Dim i As Integer

nn = 0: nz = 0

For i = 1 To 45

If a (i) = 0 Then

nz = nz + 1

Else

If a (i) < 0 And i < = 35 Then

nn = nn + 1

End If

End If

Next i

End Sub

Процедура для тестирования с выводом на лист Excel

Sub Test ()

Dim p (1 To 45) As Integer

Dim n1 As Integer, n2 As Integer, i As Integer

Randomize Timer

For i = 1 To 45

p (i) = Int (25 * Rnd - 12)

Cells (i, 1) = p (i)

Next i

ex1 p, n1, n2

Cells (1, 2) = n1

Cells (1, 3) = n2

End Sub