수검자료 실전문제 1번문제 0이 나오네요??

[학생]

수검자료 실전문제 1-1문제

100 200 을 넣어 봤더니 0이나오네요???맞는건가요???틀린건가요???

그리고 해답지 답이 4개인데 설명좀..^^;;

Option Explicit

Sub main()

   Dim 인수1, 인수2, i As Long

   Dim 버퍼 As String

   Dim 거래포인트, 주문량, j, Temp1, Num, 합계(1000) As Long

   Dim 거래처번호(1000), Temp2 As String

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

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

   Open "C:\C_it\Data\Gun01.txt" For Input As #1

      For i = 1 To 인수2

         Line Input #1, 버퍼

        If i >= 인수1 Then

     거래포인트 = Val(Mid(버퍼, 31, 3))

     주문량 = Val(Mid(버퍼, 13, 3))

        Num = Num + 1

        합계(Num) = 거래포인트 + 주문량

         거래처번호(Num) = Trim(Left(버퍼, 4))

        End If

      Next i

        For i = 1 To Num - 1

          For j = i + 1 To Num

          If (합계(i) > 합계(j)) Or _

          ((합계(i) = 합계(j)) And (거래처번호(i) > 거래처번호(j))) Then

               Temp1 = 합계(i)

               합계(i) = 합계(j)

               합계(j) = Temp1

               Temp2 = 합계(i)

               합계(i) = 합계(j)

               합계(j) = Temp2

          End If

          Next j

        Next i

   Close #1

     Open "c:\c_it\data\ans1.txt" For Output As #2

        Print #2, 인수1, 인수2, 합계(9)

     Close #2

End Sub

[정아]

1-1, 1-2, 1-3. 1-4 번 순서로 답안이 기재되어 있답니다. 현재 틀린부분이 있네요. 리플달겠습니다.