Найти сумму элементов массива, имеющих нечетное значение - VB

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

Помогите пожалуйста! 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение. 2. Вывести индексы тех элементов, значения которых больше заданного числа А. 3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К.

Решение задачи: «Найти сумму элементов массива, имеющих нечетное значение»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i, n, sum As Double
Dim A As Double
Dim b() As Double
Dim c As Integer
Dim k As Integer
Cls
sum = 0
c = 0
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ®  ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў", "ГќГ«ГҐГ¬ГҐГ*ГІГ»")
A = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® Г± ГЄГ®ГІГ®Г°Г»Г¬ Г*ГіГ¦Г*Г® Г±Г°Г*ГўГ*ГЁГўГ*ГІГј", "Г—ГЁГ±Г«Г®")
k = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ°Г*ГІГ*Г®Г±ГІГј Г·ГЁГ±Г«Г* ", "Г—ГЁГ±Г«Г®")
'1 Г‡ГЂГ„ГЂГ—ГЂ
ReDim b(1 To n)
For i = 1 To n
      b(i) = Int(Rnd * (-20) + 10)
Print b(i);
If i Mod 5 = 0 Then Print
      If b(i) Mod 2 = 0 Then sum = b(i) + sum
Next i
Print
Print "Г‘ГіГ¬Г¬Г*"; sum
Print vbLf
'2 Г‡ГЂГ„ГЂГ—ГЂ
For i = 1 To n
      If b(i) > A Then
            Print i;
            c = c + 1
      End If
Next i
'3 Г‡ГЂГ„ГЂГ—ГЂ
Print vbLf
Print " Г—ГЁГ±Г«Г* ГЄГ°Г*ГІГ*Г»ГҐ " & k & ""
For i = 1 To n
      If b(i) Mod k = 0 Then Print b(i);
Print ;
Next i
                        