Programación VB Ordene tres números completados aleatoriamente en orden ascendente o descendente Después de hacer clic en el botón "Ordenar", los números se ordenarán. Cuanto más detallado mejor.

Const NUM = 2 'Modificar el valor de NUM, ***NUM+1 número

Atenuar n(NUM) como doble

Subcomando privado1_Click( )

'Botón 1, orden ascendente

Para i = 0 a NUM - 1

Para j = i + 1 a NUM

Si n(i) > n(j) Entonces

tmp = n(i)

n(i) = n(j)

n( j ) = tmp

Finalizar si

Siguiente

Siguiente

Para i = 0 a NUM

Imprimir n (i) & " ";

Siguiente

Imprimir

Fin Sub

Subcomando privado2_Click()

'Botón 2, orden descendente

Para i = 0 a NUM - 1

Para j = i + 1 a NUM

Si n(i) < n (j) Entonces

tmp = n(i)

n(i) = n(j)

n(j) = tmp

Finalizar si

Siguiente

Siguiente

Para i = 0 a NUM

Imprimir n(i) & " ";

Siguiente

Imprimir

Fin Sub

Sub privado Form_Load()

Para i = 0 A NUM

n(i) = Val(InputBox("Ingrese el número" & i + 1 & "número"))

Siguiente

End Sub