πの計算を行う。
CALCPI/CalcPI.Test/UnitTest1.vb CALCPI/CalcPI.Test/CalcPI.Test.vbproj (diff) CALCPI/CALCPI/LongNum.vb (diff)| @@ -1,10 +0,0 @@ | ||
| 1 | -Imports System.Text | |
| 2 | - | |
| 3 | -<TestClass()> | |
| 4 | -Public Class UnitTest1 | |
| 5 | - | |
| 6 | - <TestMethod()> | |
| 7 | - Public Sub TestMethod1() | |
| 8 | - End Sub | |
| 9 | - | |
| 10 | -End Class |
| @@ -4,7 +4,7 @@ | ||
| 4 | 4 | ''' 算出桁数 |
| 5 | 5 | ''' </summary> |
| 6 | 6 | ''' <remarks></remarks> |
| 7 | - Public Const L As Integer = 1000 | |
| 7 | + Public Const L As Integer = 10000 | |
| 8 | 8 | |
| 9 | 9 | ''' <summary> |
| 10 | 10 | ''' 配列サイズ |
bellyoshi