ASP 정렬은 시스템 기능을 직접 지원하지 않으며 우리가 자주 사용해야 하는 숫자 정렬, 문자 정렬, 병음 정렬은 정렬과 분리될 수 없습니다. 다음과 같이 코드 코드를 복사합니다.
'종류
함수 Sort1(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
KeepChecking까지 수행 = FALSE
KeepChecking = 거짓
I = 0에서 UBound(ary)까지
I = UBound(ary)이면 다음을 위해 종료합니다.
ary(I) > ary(I+1)이면
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = 두 번째 값
ary(I+1) = FirstValue
KeepChecking = TRUE
종료 조건
다음
고리
Sort1=ary
기능 종료
어두워
arr = 배열(a,c,b)
arr = Sort1(arr)
i=0에서 ubound(arr)로
응답.쓰기(arr(i)&<br />)
다음