python计算派的近似值、当任意项的值小于10^-4_VB 编写程序，用近似公式：π/4=1-1/3+1/5-1/7+……+（-1）^(n-1)*(1/(2*n-1)) 求π的近似值，直到最后一项的...

VB 编写程序，用近似公式：π/4 ≈ 1-1/3+1/5-1/7+……+(-1) (n-1)* (1/(2*n-1)) 求π的近似值，直到最后一项的绝对值小于10－4为止。

解：本题通过累加算法计算π的值，实际上是求一个数列前n项之和，要求第n项的绝对值小于10－4，可以用while循环来实现，循环结束的条件是最后一项(第n项)的绝对值小于10-4。

定义4个变量，即s,n,t,PI,分别用来存放数列中每项的分子、分母、当前项的值及累加和的值。

此题的VB源代码如下：

Private Sub Form_Click()

Dim intS As Integer

Dim n As Single, t As Single

Dim PI As Single

t = 1

PI = 0

n = 1

s = 1

While Abs(t) >= 0.0001

PI = PI + t

n = n + 2

s = -s

t = s / n

Wend

PI = PI * 4

Print PI

End Sub

运行程序，单击窗体，在窗体输出π的近似值:3.141397

如果你把程序的循环结束条件改一下，即最后一项的绝对值定得再小一点，如0.000001,即10－6，则求得的π的近似值为：3.141594