Imports System
Public Class exercise66
Public Shared Sub Main()
Dim terms As Integer
Dim result As Double = 0
Console.WriteLine("PI estimator!")
Console.Write("Enter the amount of terms to test: ")
terms = Convert.ToInt32(Console.ReadLine())
For i As Integer = 1 To terms
Dim divisor As Integer = 2 * i - 1
If i Mod 2 = 1 Then
result += 1.0F / divisor
Else
result -= 1.0F / divisor
End If
Console.WriteLine("To term {0}: {1}", i, 4 * result)
Next
End Sub
End Class