안녕하세요.
조금씩 자신감을 갖게 되어가고 있습니다만.. 고급은 아직..ㅠㅠ

음.. 공부하다가요..
선생님 코딩과 같은 것 같은데.. 답이 다르게 나와요.
12607 이 나와요... 틀린 부분 찾아도 잘 안보여요.
가르쳐주세요..
--------------------




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\gisa-12\문제풀이(16강~39강)\초급\기사(050501오전)-초급\san0106.txt" For Input As #1
   
   
    For K = 1 To 인수2
        Line Input #1, 버퍼
        If K >= 인수1 Then
       
       
        ''''변수 저장
        거래코드 = Trim(Mid(버퍼, 19, 1))
        제조포인트 = Val(Mid(버퍼, 20, 3))
        매출액 = Val(Mid(버퍼, 26, 3))
       
       
        ''''표처리
        Select Case 거래코드
            Case "A"
                적용포인트 = 10
            Case "B"
                적용포인트 = 15
            Case "C''''"
                적용포인트 = 20
        End Select
       
       
        ''''합계/최대값
        If 제조포인트 >= 30 Then
         합계 = 합계 + 매출액 + 적용포인트
       End If
      
      
       
       
        End If
       
       
       
    Next K

Close #1

''''출력파일
Open "C:\c_it\Data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2

End Sub