Declaraciones de programación ascendente

Const NUM = 2 'Modifica el valor de NUM, ***NUM+1.

Dim n(NUM) es Doble

Subcomando privado 1_Click()

Botón 1, ascendente

Para i = 0 a NUM - 1

Para j = i + 1 a NUM

Si n(i)>n(j) entonces

tmp = n(i)< / p>

n(i) = n(j)

n(j) = tmp

Terminará si...

Entonces

p>

Entonces

Para i = 0 a NUM

Imprime n(i) y amp" ";

Entonces

Imprimir

Conector final

Subcomando privado 2_Click()

Botón 2, Descendente

Para i = 0 a NUM - 1

Para j = i + 1 a NUM

Si n(I)<n(j) entonces

tmp = n(i)

p>

n(i) = n(j)

n(j) = tmp

Terminará si...

Entonces

Luego

Para i = 0 a NUM

Imprime n(i) y amp" ";

Entonces

Imprimir

Conector final

Subform_Load() privado

Para i = 0 a NUM

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

Luego

Finalizar conector