Imports System

Module Module1

    Public Sub Main()

        Dim a, b, c, n, i As Integer

        Console.Write("Enter how many elements:-")

        n = (Console.ReadLine())

        a = 1

        b = 2

        Console.Write("1 2")

        i = 1

        While (i < n - 1)

            c = a + b

            Console.Write(" " & c)

            a = b

            b = c

            i = i + 1

        End While

        Console.ReadLine()

​

    End Sub

​

End Mod