求s=1-1/2+1/3-1/4+.+1/99-1/100的值用vb程序编写

dim i as integer
dim s as double

s=0
for i=1 to 100
if i mod 2=1 then
s=s+1/i
else
s=s-1/i
end if
next i本回答被提问者采纳