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

Формулировка задачи:

Добрый день,просьба помочь в решении следующей задачи,заранее спасибо. В одномерном массиве А(15) найти среднее арифметическое положительных элементов и произведение отрицательных элементов .

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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