Kode yang saya cari secara online sama dengan yang satu ini
Functionsort (ary)
Dimkeepchecking, I, FirstValue, SecondValue
KeepChecking = true
DountilkeepChecking = false
KeepChecking = false
Fori = 0toubound (ary)
Ifi = ubound (ary) kemudian exitfor
Ifary (i)> ary (i+1) lalu
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = SecondValue
ary (i+1) = firstValue
KeepChecking = true
Endif
Berikutnya
Lingkaran
Sortir = ary
Fungsi endfungsi
Terjadi kesalahan. . . . . .
Cukup uji
S = "11,3,1"
s = sort (split (s, ",")))
fori = 0toubund
response.writes (i) & "<br>"
Berikutnya
Hasil cetaknya adalah
1
11
3
Fungsi yang benar adalah:
Functionsort (ary)
ck = true
Dountilck = false
ck = false
Forf = 0toubound (ary) -1
ifclng (ary (f))> clng (ary (f+1)) lalu
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ary (f+1) = v1
ck = true
endif
Berikutnya
lingkaran
sortir = ary
fungsi endfungsi
Hanya satu clng ()
Tapi yang lucu adalah bahwa beberapa array dapat diatur dengan benar menggunakan fungsi Sort Sort.