Тема
:
Помогите решить задачку
Показать сообщение отдельно
22.06.2007, 01:27
#
2
HolyDel
☭
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений
(для 2,707 пользователей)
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
писалось в браузере так что хз.
__________________
likosoft.com
holybot:
http://russianaicup.ru/profile/HolyDel
(Offline)
HolyDel
Посмотреть профиль
Найти ещё сообщения от HolyDel