선생님;;


아래와 같이 2번 코딩했는데 왜 답이...

100           200           278700

로 나오는지 모르겠어요

1번도  100           200         1998-10-26 이걸루 나와요 -_-;;
3번도~~100           200           147870
선생님이 하신대로 그대로 코딩한 것 같은데...
무슨실수를 한건지...;;;
아무리 선생님꺼랑 맞춰봐도 안돼요..
자료가 잘못된게 아닌가요??

훔..san0105.txt..요파일이 잘못된게 아닐까요?
05년 5월 4일 오전문제도 같은 파일사용하는데 답이 달라요;;
제가 완전 잘못하구 있나;;


도와주세요....



+++++++++++++++++++++
Sub main()
''''''''필수 변수선언

Dim 인수1, 인수2, K, 버퍼 As Variant

''''''''핵심변수선언

    Dim 예약수량, 예약금액, 회원구분, 합계(1000), P, Num, Temp As Variant
   
 ''''''''인수처리

인수1 = Val(Left(Command, InStr(Command, " ")))

인수2 = 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
   

''''''''변수저장

예약수량 = Val(Mid(버퍼, 18, 5))

예약금액 = Val(Mid(버퍼, 23, 10))

회원구분 = Trim(Mid(버퍼, 33, 1))

''''''''배열변수구하기

If 회원구분 <> "0" And 회원구분 <> "1" Then
Num = Num + 1

 합계(Num) = 예약수량 * 예약금액
 End If
End If
Next K

''''''''정렬

For K = 1 To Num
    For P = K To Num
       
       
            If 합계(K) > 합계(P) Then
          
       
        Temp = 합계(K)
        합계(K) = 합계(P)
        합계(P) = Temp
       
       
       
  End If
   
    Next P

Next K

Close #1

''''''''출력파일처리

Open "c:\c_it\data\ans2.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(1)
   
Close #2

End Sub