Imports System

Public Module Module1

    Public Sub Main()

        dim total,suma, promedio, numero, tnumero as integer

        console.WriteLine("cuantos numero desea ingresar")

        tnumero=console.ReadLine()

        for incremental= 1 to tnumero

        Console.WriteLine("solicita numero")

        numero=console.ReadLine()

        suma= suma + numero 

next

    promedio=suma/tnumero

    console.WriteLine("su promedio es de {0}",promedio)

    console.WriteLine("total = {0},suma = {1},promedio = {2}",total,suma,tnumero)

    End Sub

End Module