검색어 입력폼

[비쥬얼베이직] VB-Bubble Sort & Quick Sort

등록일 2004.06.29 한글파일한컴오피스 (hwp) | 7페이지 | 가격 700원

목차

없음

본문내용

Option Explicit
Const minXLoc = 4000 'x축의 시작 위치
Const maxXLoc = 9000 'x축의 끝위치
Const minYLoc = 1000 'y축의 시작 위치
Const maxYLoc = 6000 'y축의 끝 위치
Dim Num(1 To 1000) As Integer '1000개의 난수를 넣을 배열
Dim i As Integer '반복문 등을 사용하기 위한 변수
Dim j As Integer '반복문 등을 사용하기 위한 변수
Dim a As Integer '난수 생성 버튼의 이중 클릭시 또 발생하는 것을 방지하기 위한 변수
Dim tmp As Integer


Public Sub Bubblesort(a, b As Integer) '버블정렬 함수
For j = a To b - 1
For i = a + 1 To b
If Num(i - 1) > Num(i) Then
tmp = Num(i - 1)
Num(i - 1) = Num(i)
Num(i) = tmp
End If
Next i
Next j
End Sub

참고 자료

없음
다운로드 맨위로