Imports System

Public Module Module1

    Public Sub Main()

        Dim n as Integer, i as Integer

        n = 100

        i = 1

        Do while (i<= 100)

            Console.WriteLine(("Numero: "&i))

            i = i + 1

        Loop

    End Sub

End Module