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\abc05.txt" For Input As #1

    For k = 1 To 인수2
        Line Input #1, 버퍼
        If k >= 인수1 Then
       
            ''''변수 저장
            단가 = Val(Mid(버퍼, 12, 3))
            매출액 = Val(Mid(버퍼, 26, 3))
            제조구분 = Trim(Mid(버퍼, 7, 1))
           
            ''''표처리
            Select Case 제조구분
                Case "A"
                    추가포인트 = 5
                Case "B"
                    추가포인트 = 10
                Case "C"
                    추가포인트 = 20
                   
           
       End Select
       ''''합계 구하기
       If 단가 <= 80 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

25강 문제4번이에요
100 200 21336이자꾸나오네요,ㅡㅜ



======================================
표처리에서 추가포인트 b가 10 이 틀렸어여
15네여^^