第1个回答 2013-11-16
用一个循环就可以
sub test()
dim i as integer
dim s as single
for i=1 to 100
s=s+(-1)^(i+1)*(1/i)
next i
msgbox s,vbokonly,"结果"
end sub本回答被网友采纳
sub test()
dim i as integer
dim s as single
for i=1 to 100
s=s+(-1)^(i+1)*(1/i)
next i
msgbox s,vbokonly,"结果"
end sub本回答被网友采纳
相似回答
