VB計算圓周率的方法

anzi57066381發表於2007-10-11

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

相關文章