Найти произведение четных элементов,значение которых меньше 5 - VB

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

условие такое: Дан массив целых чисел из N элементов,заполненый случайным образом числами из промежутка(-10;20). Найти: 1) Произведение четных элементов,значение которых меньше 5 2)Кол-во элементов,которые нечетные и по модулю больше числа К 3)Найти номер последней пары соседних элементов,сумма которых больше числа К

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Const N = 13
Dim i As Byte
Dim pr As Single
Dim Ar(1 To N) As Single
Const K = 9
Dim Kol As Single
 
Private Sub mnukol_Click()
For i = 1 To N
If Ar(i) \ 2 <> Ar(i) / 2 And Abs(Ar(i)) > K Then Kol = Kol + 1
Next i
Print "ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ®=", Kol
End Sub
 
Private Sub mnupr_Click()
For i = 1 To N
pr=1
pr = pr * Ar(i)
If Ar(i) \ 2 = Ar(i) / 2 And Abs(Ar(i)) < 5 Then ForeColor = vbBlue: Print Ar(i);: pr = pr * Ar(i)
Next i
Print "ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ Г·ГҐГІГ*Г»Гµ =", pr
End Sub
 
Private Sub mnuprint_Click()
For i = 1 To N
Ar(i) = -10 + Fix(Rnd * (20 - (-10) + 1))
Print Ar(i)
Next i: Print
End Sub

Проблема в том,что в первом выводит нужные элементы,но произведение равно числу,которое больше(четных например 2 и -2,по идее произведение=-4,выводит же 16) И еще,как можно сделать так,чтобы количество элементов N и число К я могла вводить вручную(в текстовое поле например)?

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

textual
                            Листинг программы 
                        
If A(i) mod 2 = 0 Then 'элемент четный
If A(i) mod 2 > 0 Then 'элемент нечетный