Мне нужно вычислить Добуток и количество элементов, которые имеют ненулевые значения

Dim A(15) As Long, D, K, i As Long
For i = 1 To 15
A(i) = (Rnd * 10)
Next iOption Base 1
Pr
Debug.Print " Початковий масив"
For i = 1 To 15
Debug.Print A(i); ' 15 циферок
Next i
D = 100
For i = 1 To 15 ' до добутку
D = D * A(i) ' до добутку
Next i ' до добутку
Debug.Print ' до добутку
Debug.Print " ДОБУТОК="; D
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim A(15) As Long, D As Long, K As Long, i As Long
Print " Початковий масив"
    For i = 1 To 15
        A(i) = (Rnd * 10)
        If A(i) <> 0 Then K = K + 1
        Print A(i); ' 15 циферок
    Next
Print
Print " имеют ненулевые значения  " & K
 
D = 100
    For i = 1 To 15 ' до добутку
        D = D * A(i) ' до добутку
    Next i ' до добутку
Print ' до добутку
Print " ДОБУТОК="; D
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim A(15) As Long, D As Long, K As Long, i As Long
Randomize
Cls
Print " Початковий масив"
    For i = 1 To 15
        A(i) = (Rnd * 10)
        If A(i) <> 0 Then K = K + 1
        Print A(i); ' 15 циферок
    Next
Print
Print " имеют ненулевые значения  " & K
Print
D = 100
    For i = 1 To 15 ' до добутку
        D = D * A(i) ' до добутку
        Print " ДОБУТОК="; D
        D = 100
    Next i ' до добутку
Print ' до добутку
End Sub

Dim A(1 To 15) As Long