vb.net - 浮点精度视觉基础

Question

我想知道如何在 Visual Basic 中计算 pi 时获得更多的数字。这是我的代码:

    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。

使用 Decimal 子变量类型可以获得更高的精度。

这需要一点时间才能运行...

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/