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

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

人气：171 ℃　时间：2019-11-13 05:00:42

解答

在excel 中用vba 输入以下代码即可：（vb中也可以）Sub aaa()Dim s,i,k,mFor i = 1 To 1000If i Mod 2 = 0 Thenk = 0 - iElsek = iEnd Ifs = s + 1 / kNextMsgBox Format(s,"0.00")End Sub