помогите с vba, задание на зачет по массивам.

Question

Задание на зачет. Рассчитать на vba (sinx+sin^2 x+...+sin^n x)/(cosx*cos(x+1)*...*cos(x+n)). n и x задаются с клавы

Очень нужно, плз

Александр Данилкин · Accepted Answer

sub ppp() 
dim mas(20) 
xx = val(inputbox("введите Х")) 
nn = val(inputbox("введите N <=20")) 
yy = 1 
zz = 0 
rr = 1 
for ii = 1 to 20 
yy = yy*sin(xx) 
zz = zz+yy 
rr = rr*cos(xx+ii-1) 
mas(ii)=zz/rr 
cells(ii,1) = mas(ii) ' выведем на лист excel 
next ii 
end sub