Bubble sort
- 최초 등록일
- 2009.11.20
- 최종 저작일
- 2009.04
- 1페이지/ MS 워드
- 가격 1,000원
소개글
Bubble sort
목차
없음
본문내용
Do
For nCount = 1 To 999
If ActiveSheet.Cells(nCount, 2) < ActiveSheet.Cells(nCount + 1, 2) Then
temp_swap = ActiveSheet.Cells(nCount, 2)
ActiveSheet.Cells(nCount, 2) = ActiveSheet.Cells(nCount + 1, 2)
ActiveSheet.Cells(nCount + 1, 2) = temp_swap
temp_swap = ActiveSheet.Cells(nCount, 1)
ActiveSheet.Cells(nCount, 1) = ActiveSheet.Cells(nCount + 1, 1)
ActiveSheet.Cells(nCount + 1, 1) = temp_swap
sw_do = True
End If
Next nCount
If sw_do = False Then
Exit Do
End If
sw_do = False
Loop
End Sub
참고 자료
없음