Imports System

Public Module Module1

    Public Sub Main()'Realizar un programa que permita ingresar n números entre 1 y 4, y debe mostrar cuantas veces se ingreso cada número, el ciclo culminará cuando presione 0

        Dim n1, n2, n3, n4 as integer

        Dim n as integer = 0

        Do

            Console.WriteLine("Ingrese números del 1 al 4")

        n = cint(Console.ReadLine())

            if n = 1 then

                n1 = n1 + 1

            elseif n = 2 then

                n2 = n2 + 1

            elseif n = 3 then

                n3 = n3 + 1

            elseif n = 4 then

                n4 = n4 + 1

            end if

        loop while(n <> 0)

            Console.WriteLine("El número 1 se ingresó {0} veces", n1)

            Console.WriteLine("El número 2 se ingresó {0} veces", n2)

            Console.WriteLine("El número 3 se ingresó {0} veces", n3)

            Console.WriteLine("El número 4 se ingresó {0} veces", n4)

    End Sub

End Module