Fibbonacci Series In Console Application...

Display Fibbonacci Series Upto User Value In Console Application...

Sub Main()
        Dim a = 0, b = 1, c = 0, n, i As Integer
       Console.WriteLine("Enter the Number :=> ")
        n = Console.ReadLine()
        For i = 1 To n
            c = a + b
            a = b
            b = c
           Console.WriteLine(c)
        Next i
       Console.ReadLine()
End Sub