VBA.Дана последовательность из n целых чисел. Найти сумму четных элементов этой последовательности.

[Vler1on]

Помогите пожалуйста написать программу и блок-схему. VBA

Sub zadacha_3()
Dim A()
n = Cells(2, 6).Value
ReDim A(n)
Sum = 0
For i = 2 To n Step 2
A(i) = Cells(i + 2, 2)
Sum = Sum + A(i)
Next i
Cells(8, 2).Value = Sum
End Sub

что я делаю не правильно?

[Aleksandr H.]

Где проверка числа на четность?

for i = 2 to n do
if cell(i,2) mod 2 = 0 then sum=sum+cells(i,2)

[Vler1on]

Сообщение от Aleksandr H.

Где проверка числа на четность?

for i = 2 to n do
if cell(i,2) mod 2 = 0 then sum=sum+cells(i,2)

всё равно не работает, можешь помочь с этим заданием?

[Aleksandr H.]

Ну показывай новый вариант кода который не работает.

[Vler1on]

Сообщение от Aleksandr H.

Ну показывай новый вариант кода который не работает.

огромное тебе спасибо, а не поможешь ещё по поводу блок-схемы?
я просто вообще не изучал ранее яыки программирования, первый раз сталкиваюсь

[Aleksandr H.]

Во. Весчь!!!

[Vler1on]

Сообщение от Aleksandr H.

Во. Весчь!!!

спасибо огромнейшее