Option Explicit

Sub main()
    ''''필수 변수 선언
        Dim 인수1, 인수2, i, 버퍼 As Variant
       
    ''''핵심 변수 선언
        Dim 지불금액(1000), 예약수량, 예약금액, 일련번호(1000), j, Temp, Num, 합계(1000) As Variant
       
    ''''인수처리
        인수1 = Val(Left(Command, InStr(Command, " ")))
        인수2 = Val(Mid(Command, InStr(Command, " ")))
       
    ''''입력 파일 처리
        Open "C:\C_it\data\Abc.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
                If i >= 인수1 Then
               
                    ''''변수저장
                       
                        예약수량 = Val(Mid(버퍼, 18, 5))
                        예약금액 = Val(Mid(버퍼, 23, 10))
                       
                    ''''배열변수 저장
                        If 지불금액(Num) < 5000000 Then
                            Num = Num + 1
                            합계(Num) = 예약수량 * 예약금액
                            일련번호(Num) = Trim(Left(버퍼, 7))
                            지불금액(Num) = Val(Mid(버퍼, 48, 10))
                        End If
                End If
        Next i
       
        ''''정렬(합계 오름차순 or 동일값 and 일련번호 오름차순)
        For i = 1 To Num
            For j = i To Num
                If 합계(i) > 합계(j) Or (합계(i) = 합계(j) And 일련번호(i) > 일련번호(j)) Then
                   
                    Temp = 합계(i)
                    합계(i) = 합계(j)
                    합계(j) = Temp
                   
                    Temp = 지불금액(i)
                    지불금액(i) = 지불금액(j)
                    지불금액(j) = Temp
                   
                    Temp = 일련번호(i)
                    일련번호(i) = 일련번호(j)
                    일련번호(j) = Temp
                   
                End If
            Next j
        Next i
       
    Close #1
   
    ''''출력 파일 처리
    Open "C:\C_it\data\Ans.txt" For Output As #2
        Print #2, 인수1, 인수2, 지불금액(Num)
    Close #2
   
   
       
       

End Sub

5월4일 오후 기출문제 2번 이에요~

다른문제는 잘 풀었는데 이 문제는 답이 안나오네요 -_ㅠ

저는 토요일이 시험이거든요 빠른 답변 부탁 드릴게요~

감사합니다^-^