Как изменить правильную сортировку пузырьков ASP? Многие друзья были обеспокоены этой проблемой, поэтому давайте сейчас посмотрим на правильную модификацию сортировки пузырьков ASP. Друзья, которые еще не знают, пожалуйста, обратитесь к этому.
Код, который я искал в Интернете, такой же, как и этот
Функциональный сортировка (ARY)
Dim Keepcecking, I, FirstValue, SecondValue
KeepCeecking = True
Делай до непредоставления = ложь
KeepCeecking = false
Для i = 0 до ubound (ary)
Если я = ubound (ary), тогда выйдите для
Если ary (i)> ary (i+1), тогда
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = secondvalue
ary (i+1) = FirstValue
KeepCeecking = True
Конец, если
Следующий
Петля
Sort = ary
Конечная функция
Есть ошибка. Полем Полем Полем Полем Полем
Просто проверьте это
S = "11,3,1"
s = sort (split (s, ","))
для i = 0 до ubund (ы)
response.write s (i) & "<br>"
следующий
Результат печати
1
11
3
Правильная функция:
Функциональный сортировка (ARY)
ck = true
делать до CK = ложь
ck = false
Для f = 0 до ubound (ary) -1
Если clng (ary (f))> clng (ary (f+1)), то
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = true
конец, если
следующий
петля
Sort = ary
конечная функция
Только один clng ()
Выше приведено правильный способ изменить сортировку пузырьков ASP, но смешно то, что некоторые массивы можно правильно отсортировать с помощью неправильной функции сортировки.