Imports System

Public Module Module1

    Public Sub Main()

        dim newnum = 0

        dim num1 = 0

        dim num2 = 1

        for i = 1 to 20

            newnum = num1 + num2

​

            num1=num2

            num2=newnum

            console.Writeline("Number " & cstr(i) & " is " & Cstr(num1) )

        next

    End Sub

End Module