利用π/4≈1-1/3+1/5-1/7+… 求π得近似值最后一项小于0.000001.我的代码是下面这样,算出来π=2

来源：学生作业帮编辑：百度作业网作业帮分类：数学作业时间：2024/07/16 00:51:17

利用π/4≈1-1/3+1/5-1/7+… 求π得近似值最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?
Private Sub Command1_Click()
Dim p As Double, n As Long, t As Integer, s As Double
p = 1: n = 1: t = 1

Do
n = n + 1
s = 1 / (2 * n - 1)
t = -t
p = p + t * s
Loop While s < 0.000001
Print 4 * p, p
End Sub
哪里不对,请指出来?我算出来4 * p=2.6666666667.

Loop While s > 0.000001
↑
这里是大于号
再问：我好想明白了，loop while 和loop until 不一样。如果是loop until 就用小于号
再答： while 是当 s > 0.000001 成立时执行也就是说，程序运行，直到最后一项小于0.000001 原来的程序，实际上，循环体只执行了一次

利用π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001.我的代码是下面这样,算出来π=2

利用π/4≈1-1/3+1/5-1/7+… 求π得近似值最后一项小于0.000001.我的代码是下面这样,算出来π=2