본문으로 바로가기

[ASP] 버블정렬

category 웹프로그래밍/ASP 2012. 4. 11. 14:36


 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