Fibonacci Sequence

Module Fibonacci

    Sub Main()
        Dim n, f1, f2, f3 As Integer
        Console.Write("Enter Your Term:")
        n = CInt(Console.ReadLine())
        f1 = 0
        f2 = 1
        f3 = 0
        While n <> 0
            Console.Write(f3 & " ")
            f1 = f2
            f2 = f3
            f3 = f1 + f2
            n -= 1
        End While
        Console.ReadLine()

    End Sub

End Module