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