Код, который я искал в Интернете, такой же, как и этот
FunctionSort (ary)
Dimkeepchecking, I, FirstValue, SecondValue
KeepCeecking = True
DountilPeeChecking = false
KeepCeecking = false
Fori = 0toubound (ary)
Ifi = ubound (ary) thenexitfor
Ifary (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, ","))
fori = 0toubund (ы)
response.writes (i) & "<br>"
следующий
Результат печати
1
11
3
Правильная функция:
FunctionSort (ary)
ck = true
dountilck = false
ck = false
Forf = 0toubound (ary) -1
ifclng (ary (f))> clng (ary (f+1)) then
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = true
эндиф
следующий
петля
Sort = ary
конечная функция
Только один clng ()
Но что забавно, так это то, что некоторые массивы можно правильно организовать, используя неправильную функцию сортировки.