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。它使用方法来执行减法和除法等操作。