float precision visual basic

Question

我想知道如何在計算pi時獲得更多數字的visual basic。這是我的代碼：

Dim enne, phi As Double 
    phi = 1 
    Console.WriteLine("Insert numble of cycles") 
    enne = Console.ReadLine 
    For i = 0 To enne 
     phi = 6 + ((2 * enne + 1) * (2 * enne + 1))/phi 
     enne = enne - 1 
    Next 
    phi = phi - 3 

    Console.WriteLine("pi is") 
    Console.WriteLine(phi) 
    Console.WriteLine("normal pi is ") 
    Console.WriteLine(Math.PI) 

Answer 1

當我寫這個答案時，問題被標記爲VBA。

使用十進制子變量類型可以獲得更高的精度。

這需要一點時間來運行...

Sub Pi() 

    Dim enne As Variant, phi As Variant 
    phi = CDec(1) 

    enne = 100000000 

    For i = 0 To enne 
     phi = 6 + ((2 * enne + 1) * (2 * enne + 1))/phi 
     enne = enne - 1 
    Next 
    phi = phi - 3 

    Debug.Print " 3.14159265358979323846264338327950288419716" 
    Debug.Print phi 

End Sub 

實際PI在這裏：http://www.piday.org/million/

Answer 2

VBA不能超過一倍更好的精度處理的數字，如果你想要更多，你必須用字符串解決問題。該xNumbers插件可以做到這招，你可以找到一個更新版本xlam這裏：http://www.thetropicalevents.com/Xnumbers60.htm

Answer 3

看爲淨的BigInteger的圖書館。你將不得不適應你的算法。 https://msdn.microsoft.com/en-us/library/system.numerics.biginteger(v=vs.110).aspx。它使用方法來執行減法和除法等操作。