05년 5월 4일 오후 문제 1번 소스코딩을 했는데
답이 나오질 않아요. 100 200 만 뜨구요..

확인좀 해주세요
Option Explicit

Sub main()

''필수 변수 선언
Dim 인수1, 인수2, k, 버퍼 As Variant

''핵심 변수 선언
Dim 회원구분, 예약수량, 예약금액, 합계(1000), 일련번호(1000), p, temp, num 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
      
      
         ''변수 저장
          회원구분 = Trim(Mid(버퍼, 33, 5))
          예약수량 = 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

''정렬(합계 오름차순 or (합계같음 and 일련번호 오름차순))
 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