정보처리산업기사(2005년 05월 08일-오후) |
■ 입력 파일명 및 경로 : C:\C_it\data\s0307121.txt (03/07/12 오전 문제와 동일) |
거래처번호 |
서적분류코드 |
출판년월 |
주문량 |
단가 |
거래처신용도 |
지역코드 |
결재구분 |
거래기간 |
월매출액 |
거래처포인트 |
문자 |
문자 |
문자 |
숫자 |
숫자 |
문자 |
문자 |
문자 |
숫자 |
숫자 |
숫자 |
4 |
2 |
6 |
3 |
4 |
1 |
2 |
1 |
2 |
5 |
3 |
※ 거래처번호는 중복되어 있지 않으며 거래처번호에 대해 오름차순 정렬되어 있다. |
[문제1](거래처포인트 * 단가)에 따라 내림차순 정렬하였을 때 6번째 자료의 (거래처포인트 * 단가)의 값을 출력하시오. 동일값 발생시 거래처번호에 대한 오름차순 정렬하시오. (20점) |
(※ 결과 값은 수검자 PC의 C:\C_it\data\Ans1.txt 파일에 출력) 100 200 202320 |
[문제2] (문제 1번의 (거래처포인트 * 단가)의 값 중 가장 작은값을 출력하고 만약 동일 값 발생시는 한번만 출력하시오. (20점) |
(※ 결과 값은 수검자 PC의 C:\C_it\data\Ans2.txt 파일에 출력) 100 200 2880 |
[문제3] 서적분류코드가 B2 이거나 결재구분 E인 자료의 거래기간 합계를 구하여 출력하시오. (30점) |
(※ 결과 값은 수검자 PC의 C:\C_it\data\Ans3.txt 파일에 출력) 100 200 2160 |
[문제4] 지역코드에 따른 추가주문량은 다음과 같다. 거래처신용도가 K인 자료의 (주문량 + 추가주문량)의 합계를 출력하시오. (30점)
<지역코드에 따른 추가주문량> |
지역코드 |
추가주문량 |
KG |
120 |
KP |
235 |
SE |
150 |
JE |
275 |
|
(※ 결과 값은 수검자 PC의 C:\C_it\data\Ans4.txt 파일에 출력)100 200 7143 |
----------------------------------------------------------------------
----------------------------------------------------------------------
Sub main()
''핵심변수저장
Dim 인수1, 인수2, i, 버퍼 As Variant
''필수변수저장
Dim 거래처포인트, 단가, 합계(1000), temp, j, num As Variant
''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
''입력파일처리
Open "C:\C_it\data\s0307121.txt" For Input As #1
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
''변수저장
거래처포인트 = Val(Mid(버퍼, 31, 3))
단가 = Val(Mid(버퍼, 14, 4))
num = num + 1
합계(num) = 거래처포인트 * 단가
End If
Next i
''정렬알고리즘
For i = 1 To num
For j = i To num
If 합계(i) < 합계(j) Then
temp = 합계(i)
합계(i) = 합계(j)
합계(j) = temp
End If
Next j
Next i
Close #1
End Sub
''출력파일저장
Open "C:\C_it\data\Ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(6)
Close #2
------------------------------------------------------------------------
------------------------------------------------------------------------
선생님
이문제를 풀어봤는데
오류가 나는데요
왜오류가 나는지 궁금합니다 ㅜㅜ
답변해주세요 ^^ |
이전글
다음글
