Visual Basic program to find fibonacy sequence

Module Module1

    Sub Main()
        Dim n, f1, f2, f3 As Integer
        Console.WriteLine("enter u r 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 = n - 1
        End While
        Console.ReadLine()
        Console.ReadKey()
    End Sub
End Module