Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Ej 1")

        Dim r as integer

        Console.WriteLine("Escribe un Número")

        r = Console.ReadLine()

        if r = 1000 then

            Console.WriteLine("Ganaste un Premio!")

        else

            Console.Writeline("Vuleve a intentar")

        end if

    End Sub

End Module

​