VBA одномерный массив

[Platinu]

Массив из 12 эл.

Вычислить сумму первых четырёх чётных элементов стоящих на чётных местах в массиве.

Напишите полную формулу пожалуйста( я путаюсь, что надо писать...

[challengerr]

это на VBSE

dim a(12)
dim p
dim sum

a(0) = 2
a(1) = 2
a(2) = 4
a(3) = 4
a(4) = 6
a(5) = 6
a(6) = 8
a(7) = 8
a(8) = 9
a(9) = 10
a(10) = 11
a(11) = 12

p = 0
sum = 0

For i = 0 To 11
 if i mod 2 = 0 then
  msgbox i&" "&a(i)
  p = p+1
  if a(i) mod 2 = 0 then
   sum = sum + a(i)
  end if
 end if
Next

msgbox sum

На VBA будет примерно так:

Dim a(12) as Integer = {2, 2, 4, 4, 6, 6, 8, 8, 9, 10, 11, 12}
dim p as Integer = 0
dim sum as Integer = 0
dim i as integer

For i = 0 To 11
 if i mod 2 = 0 then
  p = p+1
  if a(i) mod 2 = 0 then
   sum = sum + a(i)
  end if
 end if
Next