Матрица целых чисел А(3,4). Найти количество нулей и произведение элементов не равных нулю (Basic)

[AnnKarpinskaya]

Здравствуйте
В диапазон ЭТ ввести матрицу целых чисел А(3,4). Найти количество нулей и произведение элементов не равных нулю. Результат вывести на экран.
Получилась большая чушь) можно было так не мудрить,ну как понимаю,так и сделала.
Вычисляет количество нулей,а с произведение я что-то не то сделала ХД
Исправьте ошибку пожалуйста

Public Sub prog()
Dim A(1 To 3, 1 To 4)
K = 0
Dim I As Integer
Dim J As Integer
For I = 1 To 3
For J = 1 To 4
A(I, J) = Val(InputBox("Введите целое число"))
Cells(I, J) = A(I, J)
Next J
Next I
For I = 1 To 3
For J = 1 To 4
p = 1
If Cells(I, J) <> 0 Then
p = p * Cells(I, J)
End If
Next J
Next I
MsgBox "Произведение элементов=" & p
For I = 1 To 3
For J = 1 To 4
If Cells(I, J) = 0 Then
K = K + 1
End If
Next J
Next I
MsgBox "Количество нулей=" & K
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[challengerr]

p = 1 нужно вынести за пределы циклов, так как программа при каждой итерации делает эту переменную единицей