Imports System

Public Module Module1

    Public Sub Main()

        dim numeros, i,  suma, prom, tot  as double

        console.WriteLine("Cuantos numeros desea colocar")

        tot=console.ReadLine()

        for i = 1 to tot 

        console.WriteLine("ingrese un numero: ")

        numeros=console.ReadLine()

        suma = suma + numeros

    next

    prom = suma/tot 

    console.WriteLine("total de números {0}, suma total {1}, promedio {2}", tot, suma, prom)

    End Sub

End Module