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

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.13.html