Problemas de programación conocidos
Sub público iPaiXu1()
Dimensiones x, y, z
x = 1
y = 2
z = 3 p>
Llamar a clasificación rápida (x, y, z)
MsgBox Join(Array(x, y, z), ","")
Finalizar unión
Sub FastSort(ParamArray A() como variable)
Dim i, m, tmp
m = LBound(A)
Para i = LBunida(A) a UBunida(A) - 1
Si A(i)>a(I 1)Entonces ' gt;, lt=
Si i gt entonces m = i En caso contrario i = m
Ir a kk:
Otro
tmp = A(i)
A(i) = A( i 1)
A(i 1) = tmp
Si i lt gtLBound(A) entonces i = i - 2
Terminará si ...
kk:
Siguiente yo
Conector final