Вывести на экран произведение тех элементов массива, номера которых кратны трем

mult=1
for i=3 to ubound(A) step 3
    mult = mult * A(i)
next

Option Explicit
DefInt A-K
Dim proizv As Double
Dim A(), n, i
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = InputBox("Введите размер массива n", , 15)
ReDim A(n) ' Размеры массива А -  n-строк
proizv = 1
For i = 1 To n
    A(i) = Int(Rnd * 10+1) 'Заполняем массив случайными числами
    Print A(i);  'выводим массив на печать
    If i Mod 3 = 0 Then
       proizv = proizv * A(i) 'вычисляем произведение эл.массива, номера которых кратны трем
    End If
Next i
Print
Print "Произведение элементов массива, номера которых кратны трем равно"; proizv
End Sub

Option Explicit
Option Base 1
Dim proizv As Double
Dim A(), i
Private Sub Command1_Click()
A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9) 'Для примера
proizv = 1
For i = 3 To UBound(A) Step 3
     proizv = proizv * A(i) 'вычисляем произведение эл.массива, номера которых кратны трем
Next i
Print "Произведение элементов массива, номера которых кратны трем равно"; proizv
End Sub

A = Split("1 2 3 4 5 6")