PCDVD數位科技討論區 - 瀏覽單個文章 - vb6高手求教？圓周率的程式如何寫呢？

引用:

作者kec

為什麼樓主要選Gregory-Leibniz series這個收斂很慢的級數來算圓周率？

要精確到小數點下100位要計算很多很多很多項，怕CPU沒事做嗎？

真的要跑很久，以下是小弟的程式碼
目前最快的個人電腦，估計可能要花30分鐘以上
而且只算出小數位十位數左右

如果覺得想狂操cpu可以把long 改成Single
再把2147483646後面再補上兩個0

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