선생님께서 하신거랑 비교해서 뭐가 틀렸는지 발견이 안되요..T,.T
거의 비슷하게 한 것같은데 뭐가 틀린건지...모르겠어요.
셤이 낼 모렌데..맘만 급하고 되지는 않고 너무 속상해요.

Sub main()
''필수변수처리
Dim 인수1, 인수2, i, 버퍼 As Variant

''핵심변수처리
Dim 예약실구분코드, 투숙기간, 누적점수, 할인금액, 합계(1000), 숙박요금(1000), 예약번호(1000), Num, j, Temp 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(버퍼, 38, 2))
            투숙기간 = Val(Mid(버퍼, 15, 2))
            누적점수 = Val(Mid(버퍼, 40, 5))
            할인금액 = Val(Mid(버퍼, 30, 4))
           
            ''배열변수구하기
            If 예약실구분코드 = "WA" Or 투숙기간 <= 13 Then
                Num = Num + 1
                합계(Num) = 누적점수 + 할인금액
                숙박요금(Num) = Val(Mid(버퍼, 19, 6))
                예약번호(Num) = Val(Mid(버퍼, 1, 6))
            End If
        End If
     Next i
  ''정렬내림차순
 For i = 1 To Num
    For j = 1 To i
        If 합계(i) < 합계(j) Or (합계(i) = 합계(j) And 예약번호(i) > 예약번호(j)) Then
           
            Temp = 합계(i)
            합계(i) = 합계(j)
            합계(j) = Temp
       
            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, 숙박요금(4)
Close #2

End Sub