2005년 5월4일 오후 기출문제 고급인데요...
인수값도 주었는데 결과값은 20 만나오네요...
뭐가 잘못된건지 모르겠어요....
확인좀 해주세요...





Sub main()

   ''필수변수선언
   Dim 인수1, 인수2, K, 버퍼 As Variant
  
   ''핵심변수선언
   Dim 회원구분, 예약수량, 예약금액, 일련번호(1000), 합계(1000), P, Temp, Num As Variant
  
  
   ''인수처리
   인수1 = Val(Left(Command, InStr(Command, " ")))
   인수1 = Val(Mid(Command, InStr(Command, " ")))
  
   ''입력파일처리
   Open "C:\C_it\data\san0105.txt" For Input As #1
       For K = 1 To 인수2
          Line Input #1, 버퍼
            If K >= 인수1 Then
               ''변수저장
               회원구분 = Trim(Mid(버퍼, 33, 1))
               예약수량 = Val(Mid(버퍼, 18, 5))
               예약금액 = Val(Mid(버퍼, 23, 10))
              
               ''배열변수구하기
               If 회원구분 = "0" Or 회원구분 = "1" Then
                  Num = Num + 1
                  합계(Num) = 예약금액 * 예약수량
                  일련번호(Num) = Trim(Mid(버퍼, 1, 7))
               End If
            End If
       Next K
       ''정렬
       For K = 1 To Num
         For P = K To Num
            If 합계(K) > 합계(P) Or _
            (합계(K) = 합계(P) And 일련번호(K) > 일련번호(P)) Then
                 Temp = 합계(K)
                 합계(K) = 합계(P)
                 합계(P) = Temp
                
                 Temp = 일련번호(K)
                 일련번호(K) = 일련번호(P)
                 일련번호(P) = Temp
                
            End If
         Next P
       Next K
   Close #1
    
    
     ''출력파일처리
     Open "C:\C_it\data\ans1.txt" For Output As #2
    
       Print #2, 인수1, 인수2, 일련번호(10)
    
     Close #2
  
End Sub