온라인으로 검색 한 코드는이 코드와 동일합니다.
functionsort (ary)
DimkeepChecking, I, FirstValue, SecondValue
Keepchecking = true
dountilkeepChecking = 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
Keepchecking = true
endif
다음
고리
정렬 = ary
최종 기능 장애
오류가 있습니다. . . . . .
그냥 테스트하십시오
S = "11,3,1"
s = sort (split (s, ","))
fori = 0toubund (s)
응답. (i) & "<br>"
다음
인쇄 결과가 있습니다
1
11
3
올바른 기능은 다음과 같습니다.
functionsort (ary)
CK = 참
dountilck = false
CK = 거짓
forf = 0toubound (ary) -1
ifclng (ary (f))> clng (ary (f+1))
v1 = clng (ary (f))
v2 = clng (ary (f+1))
ary (f) = v2
ARY (F+1) = V1
CK = 참
endif
다음
고리
정렬 = ary
최종 기능 장애
단 하나의 clng ()
그러나 재미있는 것은 잘못된 정렬 함수를 사용하여 일부 배열을 올바르게 배열 할 수 있다는 것입니다.