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\abc02.txt" For Input As #1
       
             
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''변수 저장
               거래처신용도 = Trim(Mid(버퍼, 20, 1))
               단가 = Val(Mid(버퍼, 16, 4))
               월매출액 = Val(Mid(버퍼, 26, 5))
              
                ''표처리
                Select Case 거래처신용도
                    Case "G"
                        할인금액 = 360
                    Case "B"
                        할인금액 = 450
                    Case "D"
                        할인금액 = 590
                    Case "K"
                        할인금액 = 810
                   
                End Select
               
                ''합계구하기
                If 단가 >= 290 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

서적매출액에서 1,2번은 맞게나오는데,,3,4번은 자꾸 답이 틀리네요..