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

本站文章搜索:

<< 上一篇下一篇 >>

搜索

Tags列表

扫我手机登录

赞助商链接