거래처관리 1번문제인데여 마지막에 483 587 넣고 ans1.txt 파일 보면 483 587 99 이렁게 나와야 돼는데

마지막 99가 안떠여,,,, ans1. txt 파일열어보면 487 587만나오네여

Option Explicit

Sub main()

    ''''필수변수선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''핵심변수선언
    Dim 단가, 이익포인트, 거래포인트, j, 합계(1000), Temp, Num As Variant
   

    ''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''입력파일처리
    Open "c:\c_it\data\abc0001.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
               
                ''''변수저장
                단가 = Val(Mid(버퍼, 12, 3))
                이익포인트 = Val(Mid(버퍼, 20, 3))
                거래포인트 = Val(Mid(버퍼, 27, 3))
                   
                    If 단가 >= 50 Then
                        합계(Num) = Num + 1
                        합계(Num) = 이익포인트 + 거래포인트
                       
                    End If
                   
            End If
        Next i
    
     ''''정렬알고리즘(내림차순)
     For i = 1 To Num
        For j = i To Num
            If 합계(i) < 합계(j) Then
                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, 합계(5)
    Close #2
End Sub