Comment modifier le tri des bulles ASP correct? De nombreux amis ont été troublés par ce problème, alors jetons un coup d'œil à la modification correcte du tri des bulles ASP maintenant. Des amis qui ne savent pas encore, veuillez y référer.
Le code que j'ai recherché en ligne est le même que celui-ci
Soi de fonction (ARY)
Dim Keepchecking, I, FirstValue, SecondValue
KeepChecking = True
Faire jusqu'à ce que vous gardez le prix = faux
KeepChecking = False
Pour i = 0 à ubound (ary)
Si i = ubound (ary) alors sortez pour
Si ary (i)> ary (i + 1) alors
FirstValue = ary (i)
SecondValue = ary (i + 1)
ary (i) = secondvalue
ary (i + 1) = firstvalue
KeepChecking = True
Terminer si
Suivant
Boucle
Trier = ary
Fonction finale
Il y a une erreur. . . . . .
Il suffit de le tester
S = "11,3,1"
s = tri (divisé (s, ","))
pour i = 0 à ubund (s)
Response.Write S (i) & "<br>"
suivant
Le résultat d'impression est
1
11
3
La fonction correcte est:
Soi de fonction (ARY)
ck = vrai
faire jusqu'à ck = faux
ck = faux
Pour f = 0 à ubound (ary) -1
Si clng (ary (f))> clng (ary (f + 1)) alors
v1 = clng (ary (f))
v2 = clng (ary (f + 1))
ary (f) = v2
ary (f + 1) = v1
ck = vrai
terminer si
suivant
boucle
trier = ary
fonction finale
Juste un clng ()
Ce qui précède est la bonne façon de modifier le tri des bulles ASP, mais ce qui est drôle, c'est que certains tableaux peuvent être triés correctement avec la mauvaise fonction de tri.