Der Code, den ich online gesucht habe, ist der gleiche wie dieser
Funktionen (Ary)
DimkeepChecking, I, First Value, Second Value
Halten Sie sich an
DountilekekeepChing = false
Halten Sie sich auf
Fori = 0Toubund (Ary)
Ifi = ubound (ary) thenexitfor
Iftary (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
Endif
Nächste
Schleife
Sort = ary
Endfunktion
Es gibt einen Fehler. . . . . .
Testen Sie es einfach aus
S = "11,3,1"
s = sortieren (split (s, ","))
fei = 0toubund (s)
response.writes (i) & "<br>"
nächste
Das Druckergebnis ist
1
11
3
Die richtige Funktion ist:
Funktionen (Ary)
CK = True
dountilck = false
CK = Falsch
Forf = 0Toubund (ary) -1
ifclng (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
Endif
nächste
Schleife
sort = ary
Endfunktion
Nur ein Clng ()
Aber lustig ist, dass einige Arrays mithilfe der falschen Sortierfunktion korrekt angeordnet werden können.