Programación Vb

¿privado? ¿Sub? Command1_Click()

¿Atenuar? x(50)? ¿Como? Entero

¿Atenuado? Máx. ¿Como? Entero

¿Atenuado? ¿Sensible? ¿Como? Entero

Etiqueta1? =?"Número aleatorio generado"

Máx. =?0

Mínimo? =?20

¿Para qué? ¿I? =?1?¿Adónde ir? 50

x(uno)? =?(Int(Rnd()?*?50? ?1))

Etiqueta1? =?Etiqueta1? ?"?"? ?Str(x(i))

Si? x(uno)? ¿gt? Máx. ¿Entonces qué? Máx. =?Diez (uno)

¿Y si? x(uno)? ¿Es? ¿Sensible? ¿Entonces qué? ¿Sensible? =?Diez (uno)

¿Siguiente? Yo

¿Etiqueta2? =?"Maximizar"? ?Fuente(máx)? ?"?"? ?"mínimo"? ?Str(mínimo)

¿Fin? SubPara realizar un cambio significativo en los resultados, cambié el rango de 20 a 50, ¿x (i)? =?(Int(Rnd()?*?50? ?1)) a x(i)? =?(Int(Rnd()?*?20? ?1)) está dentro de 20.