비주얼 베이직 6.0을 사용하여 성적을 처리하여 한번은 학번순으로 다른 한번은 등수별로 출력함 (자유 과제)

목차

1. 과제명 (자유과제)

2. 폼디자인

3.코드부

4.결과보고서

본문내용

-------------------------------------------
------------------"
Picture1(n).Print " 총합", , '총합 출력 칸수를 맞추기위해 ,(콤마)를 써서 자리를 맞
춤
For j = 3 To 7 '점수부분이 3번째부터있기에 3부터증가함
Picture1(n).Print dd(11, j), '11행에 과목 합계 출력
Next j
Picture1(n).Print
Picture1(n).Print " 평균", ,
For j = 3 To 7
Picture1(n).Print dd(12, j), '12행에 과목 평균 출력
Next j
Picture1(n).Print
'---------------------출 력 끝--------------------------
'등수별 출력을 위해 데이타 sort부분
For i = 1 To 9
k = i + 1
For j = k To 10
If dd(i, 7) >= dd(j, 7) Then '앞 뒤 행의 합을 비교하여 압의 학생이 점수가 높으면
그대로두고
Else '뒤의 학생이 합이높으면 순서를 바꿈(열에대한)
' 앞뒤행의 데이타를 바꾸기위한 구간
For p = 1 To 9
m = dd(i, p) '앞 뒤 행 데이타를 바꾸기위해 앞의학생데
이타를 m이란 변수를 사용하여 저장
dd(i, p) = dd(j, p) '뒤에있는 행데이타를 앞에 행으로 옮김
dd(j, p) = m '원래 앞에 있는 m에 저장한 데이타를 뒤행
으로 옮김
Next p
End If
Next j, I
Next n
End Sub '프로그램 종료
4. 결과 보고서

키워드

비주얼,   베이직,   비주얼베이직,   자유,   과제,   성적처리,   등수별