소스코딩은 강의를 들으며 알수가 있지만

교재를 사지 않아서 결과값을 알수가 없어용..ㅜ.ㅜ

33강부터 문제의 결과값을 알 수 있는 방법 없을까여...^^

그리고 결과값에  P001106 이  나왔는데 이런답도 있나요..?? ㅡ.ㅡ;;

34강 회원별 예약관리(고급) 1번 문제를 풀었는데 이상해서여..

Option Explicit

Sub main()

  '''' 필수 변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
 
  '''' 핵심 변수선언
    Dim 예약수량, 예약금액, 회원구분, 합계(1000), 예약번호(1000), j, Num, temp As Variant
    
  '''' 인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
  '''' 입력파일처리
    Open "c:\c_it\data\abc03.txt " For Input As #1
         
         For i = 1 To 인수2
           Line Input #1, 버퍼
            If i >= 인수1 Then
              
                '''' 변수 저장
                  예약수량 = Val(Mid(버퍼, 18, 5))
                  예약금액 = Val(Mid(버퍼, 23, 10))
                  회원구분 = Trim(Mid(버퍼, 33, 1))
                 
                '''' 배열 변수 구하기
                  If 회원구분 = "0" Or 회원구분 = "1" Then
                     Num = Num + 1
                     합계(Num) = 예약수량 * 예약금액
                     예약번호(Num) = Trim(Mid(버퍼, 1, 7))
                  End If
               
            End If
         Next i
        
               '''' 정렬 알고리즘(합계 오름차순 or (합계같음 and 예약번호 오름차순))
                  For i = 1 To Num
                    For j = i To Num
                      
                        If 합계(i) > 합계(j) Or _
                           (합계(i) = 합계(j) And 예약번호(i) > 예약번호(j)) Then
                       
                              temp = 합계(i)
                              합계(i) = 합계(j)
                              합계(j) = temp
                             
                              temp = 예약번호(i)
                              예약번호(i) = 예약번호(j)
                              예약번호(j) = temp
                             
                        End If
                    Next j
                  Next i
              
    Close #1
   
  '''' 출력 파일처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
       Print #2, 인수1, 인수2, 예약번호(10)
    Close #2
      
    
End Sub