Задачи по информатике

Option Explicit
'16. Найти сумму из отрицательных элементов массива A(n,m)
'17. Найти произведение положительных элементов массива A(n,m)
'18. Найти произведение из нечетных элементов массива A(n,m)
'19. Найти среднее арифметическое всех четных элементов массива A(n,m), которые больше к
'20. Найти сумму всех отрицательных элементов массива A(n,m), не кратных к
 
Private Sub Command1_Click()
Dim A(1 To 15, 1 To 15) As Integer
Dim i As Integer, j As Integer, n As Integer, Sot As Integer
Dim Pol As Double, Pn As Double, k As Integer, m As Integer
Dim s As Integer, So As Integer 
 
k = Int(InputBox("Введите число к"))
 
Pol = 1: Pn = 1
Randomize: Cls
 
    For i = 1 To 15
        For j = 1 To 15
            A(i, j) = Rnd * 20 - 9 ' Создаем массив
            Print A(i, j); ;
            If A(i, j) < 0 Then Sot = Sot + A(i, j)
            If A(i, j) > 0 Then Pol = Pol * A(i, j)
            If A(i, j) Mod 2 <> 0 Then Pn = Pn * A(i, j)
            If A(i, j) Mod 2 = 0 And A(i, j) > k Then m = m + 1: s = s + A(i, j)
            If A(i, j) < 0 And A(i, j) Mod k <> 0 Then So = So + A(i, j)
        Next
        Print
    Next
Print
Print "Сумма отрицательных= " & Sot
Print "Произведение положительных элементов= " & Pol
Print "Произведение нечетных элементов= " & Pn
Print "Среднее арифметическое= " & s / m
Print "Сумма отрицательных= " & So
End Sub