用下面的近似公式求Pi的近似值,直到第n项绝对值小于10~5为止.Pi/4=1-1/3+1/5-
问题描述：
用下面的近似公式求Pi的近似值,直到第n项绝对值小于10~5为止.Pi/4=1-1/3+1/5-
用下面的近似公式求Pi的近似值,直到第n项绝对值小于10~5为止.
Pi/4=1-1/3+1/5-1/7+1/9+……
答
Private Sub Command1_Click()
a = 1
Do
n = n + 1
m = 2 * n - 1
s = s + a * 1 / m
a = -a
Loop Until Abs(1 / m) pi = 4 * s
Print "pi=" & pi
End Sub真的可以吗