Imports System

'EMILIO FLORES          

Public Module Module1

    Public Sub Main()

        'DECLARAR UN CONTADOR

        DIM CONTADOR AS INTEGER

        'DECLARAR INCREMENTAL

        DIM INCREMENTAL AS INTEGER

        Console.WriteLine("Ciclo FOR")

        CONSOLE.WriteLine(" CUANTOS MENSAJES DESEA MOSTRAR")

        CONTADOR = cONSOLE.ReadLine()

        'CICLO FOR

        FOR INCREMENTAL = 1 TO CONTADOR

        CONSOLE.WriteLine("BUEN DIA" )

    NEXT

    End Sub

End Module