Imports System

Public Module Module1

    Public Sub Main()

        dim suma, numero as integer

        dim total as integer

        dim contador as integer 

        suma = 0

        'Pregunta cuantos numeros se ingresaron

        Console.WriteLine("Cuantos numeros desea ingresar")

        total = Console.Readline()

            for contador = 1 to total step 1

            Console.Writeline("Ingrese número: ")

            numero=Console.Readline()

            suma += numero

            Next  

        dim promedio as double

        promedio = suma / total

        Console.Writeline("El promedio es: " &promedio)

        End Sub

End Module