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\abc0002.txt" For Input As #1
       
       
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                예약방법코드 = Trim(Mid(버퍼, 36, 2))
                누적점수 = Val(Mid(버퍼, 40, 5))
                고객구분코드 = Trim(Mid(버퍼, 17, 2))
                숙박요금 = Val(Mid(버퍼, 19, 6))
               
                Select Case 예약방법코드
                    Case "LG"
                        추가요금 = 26800
                    Case "TE"
                        추가요금 = 35670
                    Case "FA"
                        추가요금 = 14200
                    Case "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

이상은 31강 4번문제로서 제가 코딩한 것입니다.

실행결과값이 다르게 나온 원인이 무엇인가요?

조속한 답변 부탁드립니다.

그리고 제 33강 호텔예약관리 실행결과값을 알고 싶습니다.