¿Cómo modificar el tipo correcto de burbuja ASP? Muchos amigos han estado preocupados por este problema, así que echemos un vistazo a la modificación correcta de la clasificación de burbujas ASP ahora. Amigos que aún no lo saben, por favor, consultelo.
El código que busqué en línea es el mismo que este
Sort de funciones (ary)
Dim Keepchecking, I, FirstValue, SecondValue
Keepchecking = True
Haz hasta KeepChecking = falso
Keepchecking = falso
Para i = 0 a Ubound (Ary)
Si i = Ubound (ary), entonces salga por
Si ary (i)> ary (i+1) entonces
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = SecondValue
ary (i+1) = FirstValue
Keepchecking = True
Final si
Próximo
Bucle
Ordenar = ary
Función final
Hay un error. . . . . .
Solo pruebalo
S = "11,3,1"
s = sort (dividido (s, ","))
para i = 0 a Ubund (s)
Response.Write S (i) y "<br>"
próximo
El resultado de la impresión es
1
11
3
La función correcta es:
Sort de funciones (ary)
ck = verdadero
hacer hasta ck = falso
CK = falso
Para f = 0 a Ubound (ary) -1
Si Clng (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
final si
próximo
bucle
ordenar = ary
función final
Solo un clng ()
Lo anterior es la forma correcta de modificar ASP Bubble Sort, pero lo divertido es que algunas matrices se pueden ordenar correctamente con la función de clasificación incorrecta.