4월30일,오전 (첫시험) 기사문제 3번 코딩입니다.

라기에 있는 소스코딩과 대조해봐도 틀린게 없는데

자꾸 62번 오류가 떠요. 39강에서 배운데로 인수처리 부분"  " 공백도 확인했는데

그 오류가 어떤 문제를 풀든지 사라지질 않아서 결과값 확인을 못하고 있어요.

그래서 여기 자료실에 올려진 소스코딩 파일로 결과값 확인을 해봐도 역시 같은 메세지가 뜹니다.

어제까진 멀쩡했거든요. 갑자기 왜 이러죠???

시험장가서도 이럴까봐 불안합니다. 부디 도와주세요

아래는 저의 코딩이구요.

Option Explicit

Sub main()
''필수 변수 선언
 Dim 인수1, 인수2, i, 버퍼 As Variant
''핵심 변수 선언
 Dim 운송코드, 이익포인트, 배달거리, 추가포인트, 합계 As Variant
''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력 파일 처리
Open "c:\c_it\data\abc1118.txt" For Input As #1
    For i = 1 To 인수2
      Line Input #1, 버퍼
        If i >= 인수1 Then
            ''변수저장
            운송코드 = Trim(Mid(버퍼, 19, 1))
            이익포인트 = Val(Mid(버퍼, 20, 3))
            배달거리 = Val(Mid(버퍼, 24, 3))
           
            ''표처리
            Select Case "운송코드"
                Case "A"
                    추가포인트 = 5
                Case "B"
                    추가포인트 = 15
                Case "C"
                    추가포인트 = 20
            End Select
            ''합계구하기
            If 이익포인트 >= 30 Then
                합계 = 합계 + 배달거리 + 추가포인트
           
            End If
           
           
       
       
        End If
   
   
    Next i
   
Close #1

''출력 파일 처리
Open "c:\c_it\data\ans3.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
Close #2
End Sub