VB: ingrese 10 números enteros en el teclado, genere los valores máximo y promedio y genere los 10 números en la tabla en orden ascendente. Urgente Urgente Urgente Urgente Urgente

Llamar a avenum(a())

Imagen1.p>

Submaxnum público(b() como entero)

Max = b(1)

Para i = 2 a 10

Si b(i) > Max entonces

Max = b(i)

Finalizar si

Siguiente i

Imagen1.Imprimir "Max = ", Max

Fin Sub

Sub avenum público(c() como entero)

Suma = 0

Para i = 1 a 10

Suma = Suma + c(i)

Siguiente i

ave = Suma / 10

Imagen1.Imprimir "Promedio = ", ave

Fin Sub

Subordernum público(d() como entero)

Dim i%, j%, temp%<

Para i = 1 a 9

p = i

Min = d(i)

Para j = i a 10

Para j = i a 10

Si d (j) < Min Entonces p = j：Min = d(j)

Siguiente j

temp = d(i): d(i) = d(p ): d (p) = temp

Siguiente i

Imagen1.Imprimir "Ordenar"

Para z = 1 a 10

Imagen1 .Imprimir d(z);

Siguiente z

Fin Sub