Найти среднее арифметическое положительных элементов и произведение отрицательных элементов массива

Dim a(1 To 100) As Integer   'если целые числа (single - если дробные)
Private Sub Command1_Click()
a(1) = -7
For k = 1 To 15
    a(k + 1) = a(k) + 1
    Print a(k);
Next k
Print
proizv = 1
For i = 1 To 15
  If a(i) >= 0 Then
    Sum = Sum + a(i)
    n = n + 1
  Else
    proizv = proizv * a(i)
  End If
Next i
Print "ср. ар. = " & Sum / n
Print "произв. отриц = " & proizv
End Sub

Private Sub Command1_Click()
Dim A(1 To 15) As Integer
Dim i As Integer
Dim proizved As Integer 'если целые числа (single - если дробные)
Dim sred_arif As Single
Dim kol_pol As Integer
Dim summ As Integer
 proizved = 1
 For i = 1 To 15
   A(i) = InputBox("Введите значение A" + Str(i))
 Next
 For i = 1 To 15 '
      If A(i) > 0 Then
        summ = summ + A(i)
        kol_pol = kol_pol + 1
      ElseIf A(i) < 0 Then
        proizved = proizved * A(i)
      Else
         'A(i)=0
      End If
   Next i
  sred_arif = summ / kol_pol
  Print "Сумма положительных элементов массива = "; summ
  Print "Количество положительных элементов массива = "; kol_pol
  Print "Среднее арифметическое положительных элементов массива = "; sred_arif
  Print "Произведение отрицательных элементов  массива = "; proizved
 End Sub