53런타임오류 메세지..??

[신지]

입력 파일명 및 경로 : C:\C_it\data\abc0106.txt

거래처번호	담당이메일	직위	단가	수량	분류코드	운송코드	이익포인트	거래처등급	배달거리	거래포인트
숫자	문자	문자	숫자	숫자	문자	문자	숫자	문자	숫자	숫자
6	4	1	3	3	1	1	3	1	3	3

※ 거래처번호는 중복되어 있지 않으며 거래처번호에 대해 오름차순 정렬되어 있다.

문제 1】 (이익포인트 * 거래포인트)에 따라 오름차순 정렬하였을 때 5번째 자료의 (이익포인트 * 거래포인트)의 값을 출력하시오. 동일값 발생시 거래처번호에 대한 오름차순 정렬하시오.(20점)

Option Explicit

Sub main()

'필수변수선언
Dim 인수1, 인수2, i, 버퍼 As Variant

'핵심변수선언
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번 프로시저 또는 입력인수 오류는 예시답안을 위한 입력인수를 넣지 않았기 때문인 것 같구요.

[무지개]

참고로 "수검정보"게시판의 "정보처리실기 입력인수에 대하여", "정보처리실기 채점방법", "정보처리실기 부정방지시스템 및 예시답안 적어오는 방법"을 읽어보시면 많은 도움이 되실겁니다. 열공하시고 꼭 합격하세요.