우선 제가 답해 드려도 될지 모르겠는데요...

님께서 짜신 프로그램 중에

If 결재금액 < 5000000 Then
num = num + 1
합계(num) = 예약수량 * 예약금액
예약번호(num) = Trim(Mid(버퍼, 1, 7))

요 부분에
결재금액배열(num) = 결재금액
이거 넣어야 될거 같은데요..
그렇지 않으면 결재금액배열에 들어가는 값이 하나도 없는데 밑에서는 정열을 하는 소스가 있어요...^^;

저도 이거 찾느라 한참 읽어봤네요..
그럼 한번 고쳐서 해보세요..^^;






선생님!
귀찮게 해드려서 지송해요~~^^;;
아까 전화도 드렸었는데..
말씀 듣고 해결할 수 있을것 같았는데..
어디가 잘못됐는지 좀 알려주시와요..
열심히 해서 꼭 만점으로 보답하겠습니다. 감사해요..^O^

Option Explicit

Sub Main()

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

Dim 예약수량, 예약금액, 결재금액, 합계(1000), 결재금액배열(1000), 예약번호(1000), p, temp, num 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(버퍼, 18, 5))
예약금액 = Val(Mid(버퍼, 23, 10))
결재금액 = Val(Mid(버퍼, 48, 10))

If 결재금액 < 5000000 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
   
    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