В массив B включить только четные элементы исходного массива, а в массив C - только нечетные - VB

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

Задан массив A Из его элементов сформировать два массива:B и C. В массив B включить только четные элементы массива , а в массив C - только нечетные. Найти произведения элементов массивов C, B .

Решение задачи: «В массив B включить только четные элементы исходного массива, а в массив C - только нечетные»

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

                            Private Sub Form_Click()
Cls 'для очистки формы
Randomize 'для случайных чисел
 
Dim i As Integer, n As Integer
n = 20 'Можно вводить из текстового поля
ReDim A(n) As Integer 'размер задается поэтому выбираем динамический
Dim m As Integer, k As Integer 'индексы новых массивов
ReDim B(m) As Integer, C(k) As Integer 'размер не известный,выбираем динамический
Dim proiz_B As Currency, proiz_C As Currency
proiz_B = 1: proiz_C = 1
 
For i = 1 To n
    A(i) = Int(20 * Rnd) + 1 'упрощенно
    Print A(i);
Next i
 
For i = 1 To n
  If A(i) Mod 2 = 0 Then
        m = m + 1
        ReDim Preserve B(m) 'собираем четные элементы
        B(m) = A(i)
   Else
        k = k + 1
        ReDim Preserve C(k) 'собираем не четные элементы
        C(k) = A(i)
   End If
Next i
Print 'Перевод строки
For i = 1 To m
    proiz_B = proiz_B * B(i) 'считаем произведение всех четных элементов
    Print B(i);
Next i
Print 'Перевод строки
Print "Произведение четных элементов =  "; proiz_B;
Print 'Перевод строки
For i = 1 To k
    proiz_C = proiz_C * C(i) 'считаем произведение всех не четных элементов
    Print C(i);
Next i
Print 'Перевод строки
Print "Произведение не четных элементов =  "; proiz_C;
Erase A, B, C 'Освобождаем память
proiz_B = 1: proiz_C = 1 'Сбрасываем переменные
End Sub
                        