*코딩을 아래처럼 했는데요 음...인수만 100 200 뜨고 답은 안나오네요
그렇다고 오류가 뜨는 것도 아니고요 자료실있는거랑 똑같이 했는데 왜일까요?




Sub main()
    ''필수 변수 선언
    Dim 인수1, 인수2, k, 버퍼 As Variant
   
    ''핵심 변수 선언
    Dim 운송코드, 할인포인트, 거래처등급, 단가, 합계 As Variant
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
   
   
   ''입력파일처리
   Open "c:\c_it\data\abc0001.txt" For Input As #1
   
   For k = 1 To 인수2
 
  Line Input #1, 버퍼
   If k >= 인수1 Then
  
  
 
   
   
   ''변수 저장
    운송코드 = Trim(Mid(버퍼, 19, 1))
    거래처등급 = Trim(Mid(버퍼, 23, 1))
    단가 = Val(Mid(버퍼, 12, 3))
   
  ''표처리
   Select Case 운송코드
   Case "A"
       할인포인트 = 5
 
   Case "B"
       할인포인트 = 15
      
   Case "C"
       할인포인트 = 20
   End Select
  
   ''합계 구하기
   If 거래처등급 = " B " Then
  
       합계 = 합계 + 단가 + 할인포인트
 
  
  
      
       End If
       End If
       Next k
      
       Close #1
      
   
   
   
    ''출력파일처리
    Open "c:\c_it\data\ans4.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
   Close #2

End Sub