VB编程：编写过程，用下面的公式计算π的近似值：π/4=1-1/3+1/5-1/7+……+（-1） ^(n-1) *(1/(2*n-1)) 在事件过程中调用该过程，并输出当n=100,  n=500,  1000,  5000时π的近似值。

解：计算π的近似值的过程如下：

Function solPi(n As Integer) As Single
    Dim s As Integer
    Dim pi As Single
    pi = 0
    For i = 1 To n
        pi = pi + (-1) ^ (i - 1) / (2 * i - 1)
    Next i
    solPi = pi * 4
End Function

该过程有一个参数，它是循环的终值，即迭代的次数n。 n的值越大，计算出来的值越接近于实际值。可以用下面的窗体事件代码来验证一下：

Private Sub Form_Click()
    Dim pi As Single
    pi = solPi(100)
    Print "n=100,π的近似值为："; pi

    pi = solPi(500)
    Print "n=500,π的近似值为："; pi

    pi = solPi(1000)
    Print "n=1000,π的近似值为："; pi

    pi = solPi(5000)
    Print "n=5000,π的近似值为："; pi

    pi = solPi(10000)
    Print "n=500,π的近似值为："; pi

End Sub

程序运行后，点击窗体，结果如下图所示。


visual basic 程序设计教程 第4版 答案 刘炳文 编著

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

本文链接：http://www.wb98.com/vb1/post/vb_9.9.html