Piin arvo saadaan seuraavasti:

System.Math.PI


Jos haluat laskea itse PI:n arvon, käy se parhaiten näin:

    Public Function pii() As Double
        'piin likiarvo, David H. Bailey, 1996
        Dim k As Integer
        For k = 0 To 10
            pii = pii + (1 / 16 ^ k) * (4 / (8 * k + 1) - 2 / (8 * k + 4) - 1 / (8 * k + 5) - 1 / (8 * k + 6))
        Next
    End Function