|
거래처번호 |
담당이메일 |
직위 |
단가 |
수량 |
분류코드 |
운송코드 |
이익포인트 |
거래처등급 |
배달거리 |
거래포인트 |
숫자 |
문자 |
문자 |
숫자 |
숫자 |
문자 |
문자 |
숫자 |
문자 |
숫자 |
숫자 |
6 |
4 |
1 |
3 |
3 |
1 |
1 |
3 |
1 |
3 |
3 |
※ 거래처번호는 중복되어 있지 않으며 거래처번호에 대해 오름차순 정렬되어 있다.
문제 1】 (이익포인트 * 거래포인트)에 따라 오름차순 정렬하였을 때 5번째 자료의 (이익포인트 * 거래포인트)의 값을 출력하시오. 동일값 발생시 거래처번호에 대한 오름차순 정렬하시오.(20점)
'핵심변수선언
Dim 이익포인트, 거래포인트, 합계(1000), j, Temp, Num
'인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))
'입력파일처리
Open "c:\c_it\data\abc0106.txt" For Input As #1
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
'변수저장
이익포인트 = Val(Mid(버퍼, 20, 3))
거래포인트 = Val(Mid(버퍼, 27, 3))
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
'출력파일처리
Open "c:\c_it\data\abc0106.txt" For Output As #2
Print #2, 인수1, 인수2, 합계(5)
Close #2
End Sub
기출문제 1번을 코딩해봤는데요..
"53런타임 오류가 발생하였습니다
파일을 찾을수 없습니다"
혹은
'5번런타임 오류가 발생했습니다"
라고 오류메세지가 뜨네요
c드라이브안에 생성된 c_it폴더에
텍스트로 된 입력파일 넣어놓고 문제 코딩했거든요..
정확한 답이 출력될때도 있고 위와같은 오류메세지가 뜰때도 있어요..
왜그런거죠?
첫댓글 c:\c_it\data 폴더에 데이터 파일 abc0106.txt가 저장되지 않았나 봅니다. 그리고, 5번 프로시저 또는 입력인수 오류는 예시답안을 위한 입력인수를 넣지 않았기 때문인 것 같구요.
참고로 "수검정보"게시판의 "정보처리실기 입력인수에 대하여", "정보처리실기 채점방법", "정보처리실기 부정방지시스템 및 예시답안 적어오는 방법"을 읽어보시면 많은 도움이 되실겁니다. 열공하시고 꼭 합격하세요.