Question

利用while,for,do-while循环语句计算求和问题：S=1-1/2+1/3-1/4+……1/999-1/100

Answer 1

在excel 中用vba 输入以下代码即可：（vb中也可以）

Sub aaa()

Dim s,i,k,m

For i = 1 To 1000

If i Mod 2 = 0 Then

k = 0 - i

Else

k = i

End If

s = s + 1 / k

Next

MsgBox Format(s,"0.00")

End Su