La programación VB genera aleatoriamente 10 números enteros que van del 60 al 120, ordenados de pequeño a grande Urgente qq775845759

Opción Base 1

Dim x como entero, número (1 a 10) como entero, i, j, k, m

Sub privado Form_Load()

Imprimir "El entero aleatorio generado es:"

iniciar:

Aleatorizar (x)

Para i = 1 a 10

x = (61 * Rnd() 60)

número(i) = x

Si número(i) gt 1 Entonces

Para m = 1 A i - 1

Si número(i) = número(m) Entonces Ir al inicio

Siguiente m

Finalizar si

Imprimir x, "";

Si i = 5 Entonces

Imprimir

Finalizar si

Siguiente i

Imprimir: Imprimir

Imprimir "Los 10 números enteros aleatorios generados de pequeño a grande son:"

Para i = 10 a 2 Paso -1

Para j = 1 Para i - 1

Si número(j) gt; número(j 1) Entonces

k = número(j 1)

número(j 1) = número(j)

número(j) = k

Fin si

Siguiente j

Siguiente i

Para i = 1 a 10

Imprimir número(i)

Siguiente i