Wie modifiziere ich die richtige ASP -Blasensortierung? Viele Freunde waren von diesem Problem beunruhigt. Schauen wir uns also die richtige Änderung der ASP -Blasensortierung an. Freunde, die es noch nicht wissen, beziehen Sie sich bitte darauf.
Der Code, den ich online gesucht habe, ist der gleiche wie dieser
Funktionsart (Ary)
Dim KeepChing, ich, First Value, Second Value
Halten Sie sich an
Tun Sie, bis Sie halten
Halten Sie sich auf
Für i = 0 bis Ubound (Ary)
Wenn i = Ubound (Ary) dann beenden Sie für
Wenn Ary (i)> ary (i+1) dann
FirstValue = ary (i)
Second Value = Ary (i+1)
Ary (i) = Second Value
ary (i+1) = FirstValue
Halten Sie sich an
Ende wenn
Nächste
Schleife
Sort = ary
Endfunktion
Es gibt einen Fehler. . . . . .
Testen Sie es einfach aus
S = "11,3,1"
s = sortieren (split (s, ","))
für i = 0 bis ubund (s)
response.write s (i) & "<br>"
nächste
Das Druckergebnis ist
1
11
3
Die richtige Funktion ist:
Funktionsart (Ary)
CK = True
tun bis ck = falsch
CK = Falsch
Für F = 0 bis Ubound (Ary) -1
Wenn clng (ary (f))> clng (ary (f+1)) dann
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
CK = True
Ende wenn
nächste
Schleife
sort = ary
Endfunktion
Nur ein Clng ()
Das obige ist der richtige Weg, um die ASP -Blasensorie zu ändern, aber lustig ist, dass einige Arrays mit der falschen Sortierfunktion korrekt sortiert werden können.