πの計算を行う。
CALCPI/CALCPI/LongNum.vb (diff)| @@ -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 = 100 | |
| 8 | 8 | |
| 9 | 9 | ''' <summary> |
| 10 | 10 | ''' 配列サイズ |
| @@ -41,11 +41,14 @@ | ||
| 41 | 41 | |
| 42 | 42 | Public Function displayString() As String |
| 43 | 43 | Dim sb As New System.Text.StringBuilder |
| 44 | - sb.Append(array(0)) | |
| 44 | + sb.AppendFormat(" {0}", array(0)) | |
| 45 | 45 | sb.Append(".") |
| 46 | 46 | For i As Integer = 1 To array.Length - 1 |
| 47 | - sb.Append(array(i)) | |
| 47 | + sb.AppendFormat("{0:00000000}", array(i)) | |
| 48 | 48 | sb.Append(" ") |
| 49 | + If (i + 1) Mod 8 = 0 Then | |
| 50 | + sb.AppendLine() | |
| 51 | + End If | |
| 49 | 52 | Next |
| 50 | 53 | Return sb.ToString |
| 51 | 54 | End Function |
bellyoshi