[иоанн]

не знаю . как его (код) написать , чтобы было компактно и культурно
Dim i As Integer
Dim pn(20000000) As Double
Dim p As Double
Dim n As Long

Private Sub Command1_Click()
a1 = Timer
i = 1
p = 4
For n = 2 To 20000000
pn(n) = -i * 4 / (2 * n - 1)
If i = 1 Then
i = -1
Else
i = 1
End If
p = p + pn(n)
Next
a2 = Timer
a = a2 - a1
Print "число пи -"; p
Print "время -"; a; "секунд"
End Sub
там формула для числа пи _ p=4-4/3+4/5-4/7+4/9-4/11 .........