私がオンラインで検索したコードはこれと同じです
functionsort（ary）
dimkeepchecking、i、firstValue、secondValue
keepchecking = true
dountilkeepchecking = false
keepchecking = false
fori = 0toubound（ary）
ifi = ubound（ary）thenexitfor
ifary（i）> ary（i+1）then
firstValue = ary（i）
secondValue = ary（i+1）
ary（i）= secondValue
ary（i+1）= firstValue
keepchecking = true
endif
次
ループ
sort = ary
エンド機能
エラーがあります。 。 。 。 。 。
テストするだけです
S = "11,3,1"
s = sort（split（s、 "、"））
fori = 0toubund（s）
respons.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
endif
次
ループ
sort = ary
エンド機能
たった1つのclng（）
しかし、面白いのは、間違ったソート機能を使用していくつかの配列を正しく配置できることです。