Programación VB, ingrese diez números, encuentre el valor máximo y encuentre la posición del valor máximo.

¿Privado?Tipo?num xuhao?As?Integer i?As?Integer

Fin?Tipo

Dim?a(10)?As?num

¿Dim?temp?As?num

Privado?Sub?Command1_Click()

Para?i?=?1?To?10

a(i).i?=?InputBox("Ingrese el número "?&?i?&?"")

a(i).xuhao?=?i

Imprimir?a(i).i

Siguiente?i

Para?i?=?1?A?10

Para?j ? =?1?A?10?-?i

Si?a(j).i?>?a(j?+?1).i?Entonces

temp ? =?a(j?+?1)

a(j?+?1)?=?a(j)

a(j)?=?temp

¿Fin?Si

Siguiente?j

Siguiente?i

Imprimir

Imprimir?"El número máximo es" ?&?a(10).i?&?"?La posición es"?&?a(10).xuhao

End?Sub