Imports System

Public Module Module1

    Public Sub Main()

        Dim numero As Integer = 0

        dim numeroingresado as integer = 0

        dim cantidadpares as integer 

        dim cantidadimpares as integer

        dim cuadradonro as integer = 0

        dim vectoresnros as integer 

For contador = 1 to 10          

        Console.WriteLine(contador.ToString() + "-Escriba un nro ") 

        vectoresnros = Console.ReadLine()

        next 

​

​

    if numeroIngresado Mod 2 = 0 then

                'Esto es un nro par

                cantidadPares = cantidadPares + 1

            else

                'Esto sería un nro impar

                cantidadImpares = cantidadImpares + 1

            end if      

    Console.WriteLine("Nro total de pares: " + cantidadPares.ToString())

    Console.WriteLine( "Nro total de impares: " + cantidadImpares.ToString())   

    End Sub

End Module