Option Explicit

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))
            단가 = Val(Mid(버퍼, 12, 3))
            거래처등급 = Trim(Mid(버퍼, 23, 1))
                   
            ''''표처리
            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


해답 옆에다 놓고 그대로 코딩했는데 뭐가틀렸는지 못찾겟네요..

3번째 답이 안나옵니다...