정보처리산업기사 4/21~5/4 실기 기출문제

목차

정보처리산업기사 4/21~5/4 실기 기출문제

본문내용

nt - 1
For j = i + 1 To ccnt
If 답1(i) > 답1(j) Then
답1(0) = 답1(i)
답1(i) = 답1(j)
답1(j) = 답1(0)
End If
Next j
Next i
Print #1, p1, p2, 답1(9).단주
Close #1
Close #333
Unload Me
End Sub
문제2.
Private Type record
거래처번호 As String * 4
서적분류코드 As String * 2
출판년월 As String * 6
주문량 As String * 5
단가 As String * 4
거래처신용도 As String * 1
지역코드 As String * 2
결재구분 As String * 1
거래기간 As String * 2
월매출액 As String * 5
거래포인트 As String * 3
End Type
Private 거래 As record
Private Type record2
월주 As Double
단주 As Double
Private 답1(1000) As record2
--------------------------------------------------------------------------------
Private Sub Form_Load()
Open App.Path & "\abc04242.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)
ccnt = 0
For recnum = Val(p1) To Val(p2)
Get #333, recnum, 거래
ccnt = ccnt + 1
답1(ccnt).월주 = Val(거래.월매출액) - Val(거래.주문량)
답1(ccnt).단주 = Val(거래.단가) * Val(거래.주문량)
Next recnum
For i = 1 To ccnt - 1
For j = i + 1 To ccnt
If 답1(i) > 답1(j) Then
답1(0) = 답1(i)
답1(i) = 답1(j)
답1(j) = 답1(0)
End If
Next j
Next i
Print #1, p1, p2, 답1(ccnt).월주
Close #1
Close #333
Unload Me
End Sub
문제3.
Private Type record
거래처번호 As String * 4
서적분류코드 As String * 2
출판년월 As String * 6
주문량 As String * 5
단가 As String * 4
거래처신용도 As String * 1
지역코드 As String * 2
결재구분 As String * 1
거래기간 As String * 2
월매출액 As String * 5
거래포인트 As String * 3
End Type
Private 거래 As record
Private 답3 As Double
--------------------------------------------------------------------------------
Private Sub Form_Load()
Open App.Path & "\abc04242.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)
ccnt = 0
For recnum = Val(p1) To Val(p2)
Get #333, recnum, 거래
If UCase(거래.결재구분) = "S" And UCase(거래.거래처신용도) = "K" Then
답3 = 답3 + Val(거래.거래포인트)
End If
Next recnum
Print #1, p1, p2, 답3
Close #1
Close #333
Unload Me
End Sub
문제4.
Private Type record
거래처번호 As String * 4
서적분류코드 As String * 2
출판년월 As String * 6
주문량 As String * 5
단가 As String * 4
거래처신용도 As String * 1
지역코드 As String * 2
결재구분 As String * 1
거래기간 As String * 2
월매출액 As String * 5
거래포인트 As String * 3
End Type
Private 거래 As record
Private 답4 As Double
--------------------------------------------------------------------------------
Private Sub Form_Load()
Open App.Path & "\abc04242.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)
ccnt = 0
For recnum = Val(p1) To Val(p2)
Get #333, recnum, 거래
If Val(거래.단가) >= 290 Then
Select Case UCase(거래.거래처신용도)
Case "G"
할인금액 = 60
Case "B"
할인금액 = 23
Case "D"
할인금액 = 34
Case "K"
할인금액 = 45
Case Else
할인금액 = 0
End Select
답4 = 답4 + (Val(거래.월매출액) - 할인금액)
End If
Next recnum
Print #1, p1, p2, 답4
Close #1
Close #333
Unload Me
End Sub

키워드

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