VB 求π的近似值 （在線等~急）

Dim i%, a#

zdypi = 2#

For i = 1 To n

a = 2 * i

zdypi = zdypi * a * a / (a - 1#) / (a + 1#)

Next i

End Function

Private Sub Command1_Click()

Text1 = Format(zdypi(10), "#.#####0")

Text2 = Format(zdypi(100), "#.#####0")

Text3 = Format(zdypi(1000), "#.#####0")

End Sub