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

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版 答案 刘炳文 编著