올바른 ASP 버블 정렬을 수정하는 방법은 무엇입니까? 많은 친구들 이이 문제로 어려움을 겪었으므로 지금 ASP 버블 분류의 올바른 수정을 살펴 보겠습니다. 아직 모르는 친구, 참조하십시오.
온라인으로 검색 한 코드는이 코드와 동일합니다.
함수 정렬 (ary)
Dim KeepChecking, I, FirstValue, SecondValue
Keepchecking = true
KeepChecking = False까지 수행하십시오
유지 = 거짓
i = 0에서 ubound (ary)의 경우
i = ubound (ary)이면 종료하십시오
Ary (i)> ary (i+1)라면
FirstValue = ary (i)
SecondValue = ary (i+1)
ary (i) = secondValue
ary (i+1) = firstValue
Keepchecking = true
끝 If
다음
고리
정렬 = ary
엔드 기능
오류가 있습니다. . . . . .
그냥 테스트하십시오
S = "11,3,1"
s = sort (split (s, ","))
i = 0에서 Ubund (들)
응답. write s (i) & "<br>"
다음
인쇄 결과가 있습니다
1
11
3
올바른 기능은 다음과 같습니다.
함수 정렬 (ary)
CK = 참
CK = False까지 수행하십시오
CK = 거짓
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 = 참
끝 If
다음
고리
정렬 = ary
엔드 기능
단 하나의 clng ()
위는 ASP 버블 정렬을 수정하는 올바른 방법이지만, 재미있는 것은 일부 배열을 잘못된 정렬 기능으로 올바르게 정렬 할 수 있다는 것입니다.