真的要跑很久，以下是小弟的程式碼
目前最快的個人電腦，估計可能要花30分鐘以上
而且只算出小數位十位數左右 :D
如果覺得想狂操cpu可以把long 改成Single
再把2147483646後面再補上兩個0 :D :D :D

Private Sub Form_Load()
Dim pi As Variant
Dim i As Long 'Single
pi = 0
For i = 0 To 2147483646
pi = pi + CDec(1 / (2 * i + 1) * (-1) ^ i)
Next i
pi = 4 * CDec(pi)
Debug.Print pi
End Sub

依這個網頁，用 Gregory-Leibniz series計算1000項才精確至小數點下2位。 :stupefy:

另外，Wikipedia上的例子，計算五百萬項Gregory-Leibniz series，小數點下第6位就出錯了。 :stupefy: :stupefy:

你猜精確到小數點下100位要計算多少項？ :rolleyes:

http://home.istar.ca/~lyster/pi.html
quickpi還真快 :ase
而且精確位數可以高達70G :eek:

原來到500萬項後就出現錯誤了
難怪小弟的程式
怎麼跑都是只對前面6位數 :jolin:
小弟早上都在作白工 :mad:

不是Gregory-Leibniz series到五百萬項後就會出現錯誤。
是Gregory-Leibniz series收斂很慢，計算五百萬項也只收斂到小數點下5位。

了解.........

這個題目簡單
我以前做過類似題目
我是用陣列
A(0)~A(99)
每個陣列元素存1位數
超過10就進位到上一個陣列位置
這種寫法複雜的地方就在把算出結果放到每個陣列元素
我敢保證,沒有第二種解法了

小弟也知道要用陣列
只是不知道要如何寫
不過依小弟的程式來說
要計算到二十位數
可能都要好幾天才運算的完
所以此程式
看看就好
因為效能太差了

不會吧
幾千位一下下就算完了
不瞭解為什麼要很久

那要看你怎麼去寫這個程式
兄台會寫嗎？
會請貼一下程式碼 :)