Imports System

Public Module Module1

    Public Sub Main()

        dim n1 as integer

        Console.WriteLine("Ingrese un número")

        n1 = cint(Console.ReadLine())

        for i as integer = 0 to n1

        Console.WriteLine(i)

    next

    End Sub

End Module