dim s as double
dim i as long
s=1.0
for i=1 to 99
if (i mod 2)=0 then
s=s/i
else
s=s*i
end if
next i
print s;