Помогите решить задачку
 

Всем привет. Помогите решить задачу, язык - Visual Basik.
Вообщем нужно написать макрос в Excel.
Текст задачи:
Дан массив из 60 чисел. Вычислить сумму тех элементов массива, индексы которых чётные.
Массив формируется в самом макросе через генератор случайных чисел, потом выводится в строку (одна ячейка, одно число из массива). затем где-нить выводится и сумма элементов массива.
Помогите :''(( ...
PS могут возникнуть вопросы, в чём писать макрос в Excel или Visual Basik, последний имеется в Excel как средство создания макросов (сервис\макрос\редактор Visual Basik).

Re: Помогите решить задачку
 

Worksheets(1).Activate
summ=0
for i=1 to 60
a=rnd(100)
Worksheets(1).cells(i,1)=a
if (i-((i/2)*2))=0 then summ=summ+a
next
Worksheets(1).cells(2,2)=summ

писалось в браузере так что хз.

Re: Помогите решить задачку
 

Спасибо HolyDel, ты спас от гибели хорошего человека.