정보처리 필수 기출문제

목차

정보처리 필수기출문제

본문내용

60 ~ 69
D
60 미만
F
문제풀이
Private Type record
성명 As String * 16
학과코드 As String * 14
국어 As String * 10
영어 As String * 10
수학 As String * 10
전공 As String * 10
전공실습 As String * 4
국사 As String * 4
선택1 As String * 4
선택2 As String * 2
End Type
Private 성적 As record
Private 국어(1000) As Double
Private Sub Form_Load()
Open App.Path & "\성적.txt" For Random As #333 Len = Len(성적) + 2
Open App.Path & "\ans2.txt" For Output As #1
arg = Trim(Command)
ln = Len(arg)
cnt = InStr(arg, " ")
p1 = Left(arg, cnt - 1)
p2 = Right(arg, ln - cnt)
rcnt = 0
For recnum = Val(p1) To Val(p2)
Get #333, recnum, 성적
rcnt = rcnt + 1
국어(rcnt) = 성적.국어
Next recnum
For i = 1 To rcnt - 1
For j = i + 1 To rcnt
If 국어(i) < 국어(j) Then
국어(0) = 국어(i)
국어(i) = 국어(j)
국어(j) = 국어(0)
End If
Next j
Next i
Select Case 국어(30)
Case Is >= 90
답2 = "A"
Case 80 To 89
답2 = "B"
Case 70 To 79
답2 = "C"
Case 60 To 69
답2 = "D"
Case Else
답2 = "F"
End Select
Print #1, p1, p2, 답2
Close #1
Close #333
Unload Me
End Sub
문제3. 국어점수가 가장 높은 사람의 학과명을 출력하시오(학과명은 아래표를 참조).
단, 2명이상일 경우 가장 마지막 사람을 출력.
(결과 값은 ”c:\c_it\data\ans3.txt" 파일에 출력)
학과표
학과코드
학과명
A
전산회계과
B
건축공학과
C
인터넷정보과
D
건축설계과
E
전자공학과
문제풀이
Private Type record
성명 As String * 16
학과코드 As String * 14
국어 As String * 10
영어 As String * 10
수학 As String * 10
전공 As String * 10
전공실습 As String * 4
국사 As String * 4
선택1 As String * 4
선택2 As String * 2
End Type
Private 성적 As record
Private Sub Form_Load()
Open App.Path & "\성적.txt" For Random As #333 Len = Len(성적) + 2
Open App.Path & "\ans3.txt" For Output As #1
arg = Trim(Command)
ln = Len(arg)
cnt = InStr(arg, " ")
p1 = Left(arg, cnt - 1)
p2 = Right(arg, ln - cnt)
최고점수 = -999
For recnum = Val(p1) To Val(p2)
Get #333, recnum, 성적
If 최고점수 <= Val(성적.국어) Then
최고점수 = Val(성적.국어)
학과코드 = 성적.학과코드
End If
Next recnum
Select Case UCase(Left(학과코드, 1))
Case "A"
답3 = "전산회계과"
Case "B"
답3 = "건축공학과"
Case "C"
답3 = "인터넷정보과"
Case "D"
답3 = "컴퓨터설계과"
Case "E"
답3 = "전자공학과"
End Select
Print #1, p1, p2, 답3
Close #1
Close #333
Unload Me
End Sub
문제4. 국어점수, 영어점수의 총점으로 순위를 구한 후 7번째 사람의 순위를 출력하시오.
(결과 값은 ”c:\c_it\data\ans4.txt" 파일에 출력)
문제풀이
Private Type record 성명 As String * 16
학과코드 As String * 14
국어 As String * 10
영어 As String * 10
수학 As String * 10
전공 As String * 10
전공실습 As String * 4
국사 As String * 4
선택1 As String * 4
선택2 As String * 2
End Type
Private 성적 As record
Private Type record2
총점 As Double
순위 As Double
End Type
Private 정렬(1000) As record2
Private Sub Form_Load()
Open App.Path & "\성적.txt" For Random As #333 Len = Len(성적) + 2
Open App.Path & "\ans4.txt" For Output As #1
arg = Trim(Command)
ln = Len(arg)
cnt = InStr(arg, " ")
p1 = Left(arg, cnt - 1)
p2 = Right(arg, ln - cnt)
rcnt = 0
For recnum = Val(p1) To Val(p2)
Get #333, recnum, 성적
rcnt = rcnt + 1
정렬(rcnt).총점 = Val(성적.국어) + Val(성적.영어)
정렬(rcnt).순위 = 1
Next recnum
For i = 1 To rcnt - 1
For j = i + 1 To rcnt
If 정렬(i).총점 < 정렬(j).총점 Then
정렬(i).순위 = 정렬(i).순위 + 1
End If
If 정렬(i).총점 > 정렬(j).총점 Then
정렬(j).순위 = 정렬(j).순위 + 1
End If
Next j
Next i
Print #1, p1, p2, 정렬(7).순위
Close #1
Close #333
Unload Me
End Sub

키워드

정보처리,   기출문제,   출력