用下面的近似公式求Pi的近似值,直到第n项绝对值小于10~5为止。 Pi⼀4=1-1⼀3+1⼀5-

2025-04-08 07:38:50
推荐回答(1个)
回答1:

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) < 10 ^ -6
pi = 4 * s
Print "pi=" & pi
End Sub