Doble, aproximación de Pi Ejercicio VB.Net - Curso de Programación Visual Basic

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