Imports System

Public Module Module1

    Public Sub Main()

        Dim x,suma,valor As integer

        x=1

        suma=0

        'Do' while x<=10

        console.write("ingrese un valor")

            valor= console.ReadLine()

            suma= suma+ valor

        x=x+1

            'loop'

        'promedio' =suma/10

        console. Write ("la suma de los 10 valores es:")

        console. writeline(suma)

        console. write("promedio es:")

        console. writeline 

            console. readline()

        End Sub

End Module