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
           
                ''변수저장
                 단가 = Val(Mid(버퍼, 12, 3))
                 운송코드 = Trim(Mid(버퍼, 19, 1))
                 거래처등급 = 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