VB Y用for循环语句计算s=1*(1/2)÷(1/3)×(1/4)÷(1/5)×……÷(1/97)×(1/99)的值

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;