Imports System

Public Module Module1

    Public Sub Main()

        Dim a As Double =0

        Dim b As Double =1

        Dim c As Double =0

        Dim n As Integer =50

        Dim i As Integer =1

        while(i<=n)

            c=a+b

            Console.WriteLine(c)

            a=b

            b=c

            i=i+1

        End while

    End Sub

End Module