Dim arr, i, j, temp '변수 선언
arr = array("q","w","e","r","t","y","u","i","o","p","a","s","d","f","g","h","j","k","l","z","x","c","v","b","n","m")
'------------ 정렬 (버블정렬 알고리즘 사용) ---------------
For i = 0 To UBound(arr) '0부터 배열에 있는 요소의 갯수만큼 루프를 돈다.
For j = 1 To UBound(arr) '1부터 배열에 있는 요소의 갯수만큼 루프를 돈다.
If arr(j-1) > arr(j) Then '앞 요소의 값이 뒷 요소보다 크면 값을 바꾼다.
temp = arr(j-1)
arr(j-1) = arr(j)
arr(j) = temp
End If
Next
Next
'0부터 배열의 요소만큼 루프를 돌면서 출력을 한다.
For i = 0 To UBound(arr)
response.write(arr(i))
response.write(", ")
Next
'웹프로그래밍 > ASP' 카테고리의 다른 글
[ASP] Mysql 글자깨짐 인코딩설정 (0) | 2012.05.07 |
---|---|
[ASP] request값 뿌리기 -디버깅용 (0) | 2012.04.11 |