문제1] (배달거리*이익포인트)에 따라 내림차순 정렬하였을 때 5번째 자료의 (배달거리*이익포인트)값를 출력하시오. 동일값 발생시 거래번호에 대한 오름차순 정렬하시오


2005년7월12 일 오후 문제 풀어봤는데요..
인수지정 100 200 넣었는데 답이 0 이나와요...

이문제 말고도 자주 이러는데 왜 그런가요??
정말 궁금합니다..
Option Explicit

Sub main()

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

Dim 배달거리, 이익포인트, 합계(1000), p, temp, num As Variant

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

Open "c:\c_it\data\s10281.txt" For Input As #1

For k = 1 To 인수2
    Line Input #1, 버퍼
    If k >= 인수1 Then
        배달거리 = Val(Mid(버퍼, 31, 4))
        이익포인트 = Val(Mid(버퍼, 25, 3))
       
           num = num + 1
           합계(num) = 배달거리 * 이익포인트
     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\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
Close #2

End Sub