Sub Main()
''필수변수선언
Dim 인수1, 인수2, k, 버퍼 As Variant
''핵심변수선언

Dim 결재금액, 결재금액배열(1000), 예약수량, 예약금액, 예약번호(1000), p, temp, num, 합계(1000) 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 k = 1 To 인수2
  Line Input #1, 버퍼
  If k >= 인수1 Then
 
  ''변수저장
  결재금액 = Val(Mid(버퍼, 48, 10))
   예약수량 = Val(Mid(버퍼, 18, 5))
  예약금액 = Val(Mid(버퍼, 23, 10))
    
    
 ''합계구하기
 If 결재금액 < 5000000 Then
 num = num + 1
 합계(num) = 예약수량 + 예약금액
 결재금액배열(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

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, 결재금액배열(num)

Close #2

End Sub

답안하고
똑같은거 같은데 다른값이 나와요