[컴퓨터 프로그래밍] 비주얼베이직-소팅

등록일 2003.01.02 한글 (hwp) | 8페이지 | 가격 700원

소개글

프로그램 설명과 소스가 포함되어 있는 보고서입니다. 많은 도움 되시기 바랍니다.

목차

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
'형식에 맞추어 정렬결과를 텍스트박스에 출력
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서