Option Explicit

Sub main()

 ''필수변수선언
 Dim 인수1, 인수2, i, 버퍼 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 i = 1 To 인수2
        Line Input #1, 버퍼
              If i >= 인수1 Then
           
            ''변수저장
               고객구분코드 = Trim(Mid(버퍼, 17, 2))
               숙박요금 = Val(Mid(버퍼, 19, 6))
               예약방법코드 = Trim(Mid(버퍼, 36, 2))
               누적점수 = Val(Mid(버퍼, 40, 5))
              
            ''표처리
               Select Case 예약방법코드
                    Case Is = "LG"
                          추가요금 = 26800
               Select Case 예약방법코드
                    Case Is = "TE"
                          추가요금 = 35670
               Select Case 예약방법코드
                    Case Is = "FA"
                          추가요금 = 14200
               Select Case 예약방법코드
                    Case Is = "HU"
                          추가요금 = 21240
                          End Select
                         
           
           ''합계구하기
              If 누적점수 >= 5340 And 고객구분코드 = "YE" Then
               
                합계 = 합계 + 숙박요금 + 추가요금
            
              End If
             End If
              
         Next i
        Close #1
 
 ''출력파일
 Open "c:\c_it\data\ans4.txt" For Output As #2
 
       Print #2, 인수1, 인수2, 합계
      
 Close #2
 

End Sub