Instrucciones para la tarea de VB
Dim?a(10)?As?Integer
Dim?sum?As?Integer
suma?=?0
Para?i?=?1 ?To?10
a(i) =?InputBox("Ingrese el primer número"? &?i?&?"")
suma?=?suma?+ ?a(i)
Siguiente
Dim?temp?As?Integer
For?i?=?1?To?10
¿Para?
Si?a(j) >?a(j+?1) Entonces
temp?=?a(j+?1)
a(j+?1) =?a(j)
a(j) =?temp
Fin?Si
Siguiente?j
Siguiente?i
Dim?
str?=?""¿El valor máximo es?" ? &?a(10)? &?vbCrLf?El valor mínimo es ?" ? &?a(1)? &?vbCrLf?El valor promedio es?" ?El valor promedio es?" ? &?sum?/?10
Imprimir?str