回复：求助各位大神 在线等

1

0

你写的一开始好像就错了i=1应该去了
---贴吧极速版 For UWP

=s+1/i*(i+1)

for i=1 to 100 step 1
s=s+1/i*(i+1)
next i
这不是小学数学题么

VB二群，大神压群，点击链接加入群【VB小白变大神二群】：http://jq.qq.com/?_wv=1027&k=2APmrQu

dim s as integer
dim i as integer
for i = 1 to 100
s=s+iif(i mod 2 = 0,-1/i,1/i)
next
msgbox s

求救 还有大神给做参考吗