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

For i = 1 To 인수2
    Line Input #1, 버퍼
   
    If i >= 인수1 Then
   
''변수저장

고객구분코드 = Trim(Mid(버퍼, 18, 2))
탑승인원 = Val(Mid(버퍼, 24, 3))
여행거리 = Val(Mid(버퍼, 27, 5))

''표처리

Select Case 고객구분코드
Case "MA"
추가부담금 = 15
Case "CH"
추가부담금 = 4
Case "WE"
추가부담금 = 8
Case "FR"
추가부담금 = 2
End Select

''합계구하기

If 도착지코드 = "KW" Or 여행거리 >= 12500 Then

    합계 = 합계 + (탑승인원 + 추가부담금)

   
                  
                End If
            End If
        Next i
       
''출력파일처리

Open "c:\c_it\data\ans4.txt" For Output As #2

Print #2, 인수1, 인수2, 합계

End Sub