[컴퓨터 프로그래밍] 비주얼베이직-소팅
- 최초 등록일
- 2003.01.02
- 최종 저작일
- 2003.01
- 8페이지/ 한컴오피스
- 가격 1,000원
소개글
프로그램 설명과 소스가 포함되어 있는 보고서입니다. 많은 도움 되시기 바랍니다.
목차
1. 문제 정의 : 버블소트방식구현
2. 문제 설명
3. 소스 및 알고리즘
4. 실행 결과
5. 느낀 점
본문내용
Private Sub Command1_Click()
Dim k, i, j, imsi '제어변수와 임시저장 변수선언
Dim str1 As String
str1 = ""
'버블소트 방식을 이용
'다중 For반복문을 이용하여 Sort를 구현
For i = 1 To 7 'i값을 1부터 7까지 반복
For j = i To 7 'j값을 i부터 7까지 반복한다.여기서 j=i에 주목할필요가 있다.
'큰값인지를 비교하여
If tot(i) < tot(j) Then
'비교한결과가 크면 두 값을 바꾼다.
'아래 세 줄은 두 값을 바꾸는 것이다.
imsi = tot(i)
tot(i) = tot(j)
tot(j) = imsi
End If
Next j
Next i
'형식에 맞추어 정렬결과를 텍스트박스에 출력
참고 자료
없음