El código que busqué en línea es el mismo que este
Functionsort (Ary)
Dimkeepchecking, I, FirstValue, SecondValue
Keepchecking = True
Dountilkeephecking = falso
Keepchecking = falso
Fori = 0toUbound (Ary)
Ifi = Ubound (ary) entoncesxitfor
Ifary (i)> ary (i+1) entonces
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = SecondValue
ary (i+1) = FirstValue
Keepchecking = True
Endif
Próximo
Bucle
Ordenar = ary
Función final
Hay un error. . . . . .
Solo pruebalo
S = "11,3,1"
s = sort (dividido (s, ","))
fori = 0toubund (s)
Response.Write (i) y "<br>"
próximo
El resultado de la impresión es
1
11
3
La función correcta es:
Functionsort (Ary)
ck = verdadero
dountilck = falso
CK = falso
Forf = 0toUbound (ary) -1
ifclng (ary (f))> clng (ary (f+1)) entonces entonces
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = verdadero
endif
próximo
bucle
ordenar = ary
Función final
Solo un clng ()
Pero lo divertido es que algunas matrices se pueden organizar correctamente utilizando la función de clasificación incorrecta.