Le code que j'ai recherché en ligne est le même que celui-ci
FunctionSort (ARY)
DimKeepchecking, I, FirstValue, SecondValue
KeepChecking = True
Doultilkeepcheckking = false
KeepChecking = False
Fori = 0Toubound (ary)
Ifi = ubound (ary) alorsxitfor
Ifary (i)> ary (i + 1) alors
FirstValue = ary (i)
SecondValue = ary (i + 1)
ary (i) = secondvalue
ary (i + 1) = firstvalue
KeepChecking = True
Endire
Suivant
Boucle
Trier = ary
Finition de fin
Il y a une erreur. . . . . .
Il suffit de le tester
S = "11,3,1"
s = tri (divisé (s, ","))
fori = 0Toubund (s)
Response.Writes (i) & "<br>"
suivant
Le résultat d'impression est
1
11
3
La fonction correcte est:
FunctionSort (ARY)
ck = vrai
doulLck = false
ck = faux
Forf = 0Toubound (ary) -1
ifclng (ary (f))> clng (ary (f + 1)) puis
v1 = clng (ary (f))
v2 = clng (ary (f + 1))
ary (f) = v2
ary (f + 1) = v1
ck = vrai
endire
suivant
boucle
trier = ary
finition de fin
Juste un clng ()
Mais ce qui est drôle, c'est que certains tableaux peuvent être organisés correctement en utilisant la mauvaise fonction de tri.