El código vb genera 6 números aleatorios y los ordena.
Dim?a(6)?As?Integer
Dim?temp?As?Integer
For?i?=?1?To?6
a (i)?=?Int(Rnd()?*?100?+?1)
Siguiente
Para?i?=?1?To?6
¿Para?j?=?1?A?
Si?a(j)?>?a(j?+?1)?Entonces
temp?=? a(j?+?1)
a(j?+?1)?=?a(j)
a(j)?=?temp
Fin?Si
¿Siguiente?? &?a(6)? &?"?El valor mínimo es ??