>>2 
 
Dim P As Decimal = 3.1415926535897932384626433832795D 
Label1.Text = P.ToString() 
' 結果は以下のように末尾3桁は丸められてしまいますが・・・ 
' 3.1415926535897932384626433833 
 
 
のようにすれば、SingleやDoubleよりは多くの桁を表現できます。 
パイの値を受ける変数をDecimal型に、定数値にはDecimal型であることを示すために末尾に"D"を付けるのがポイントです。 
 
ただ、これでもアクセサリの電卓のPIよりも精度は低くなります。 
アクセサリの電卓は通常の型で扱える精度よりも大きな精度を扱えるように自前で多倍長演算を実装しているのでしょう。 
つまり、多くの桁を扱えるように"自分で"作りこむ必要があります。 
 
キーワード：多倍長演算