пожалуста помогите найти ошибку.

[zvezda111]

Sub massiv()
Dim a()
n = Cells(4, 2).Value
ReDim a(10)
' поиск суммы элементов массива, стоящих на четных местах
Sum = 0
For i = 2 To 10 Step 2
S = S + 2

Next i
MsgBox "сумма = " & S
Cells(6, 5).Value = S

End Sub

[ZX Spectrum-128]

S = S + a(i)

[Son Of Pain]

А еще массив было бы неплохо чем-то заполнить, думаю )

[zvezda111]

чем, можете подсказать? просто очень срочно нужно, а я не сильно понимаю(

[Son Of Pain]

А мы не знаем чем. Это у тебя в задании должно быть написано )

[zvezda111]

Ну задание вот: да последовательность n чисел. найти сумму элементов чисел, стоящих под четными номерами

[ZX Spectrum-128]

Заполнение массива случайными числами

For i=1 to 10
 A(i)=rnd
Next i

[zvezda111]

все равно не получается правильный результат(
Sub massiv_()
Dim a()
n = Cells(4, 2).Value
ReDim a(n)
' сумма элементов массива, стоящих на четных местах

s = 0
For i = 1 To 10
a(i) = Rnd
s = s + a(i)

Next i
MsgBox "сумма = " & s
Cells(6, 8).Value = s

End Sub

[ZX Spectrum-128]

Вы зачем склеили заполнение массива и его обработку???