VB计算圆周率的方法

VB计算圆周率的方法 

方法有二:

1.  利用迭代公式进行计算,如下:

     Private Sub Command1_Click()

       Dim pi As Double, n As Long
       pi = 2
       For n = 1 To 10000
          pi = pi * ((2 * n) / (2 * n - 1)) * ((2 * n) / (2 * n + 1))
      Next n

    End Sub

2. 利用VB函数进行计算,如下:

    Private Sub Command1_Click()

       Form1.Caption = 4 * Atn(1)   '> Ant()是VB内置反正切函数

   End Sub