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\san0105.txt" For Input As #1
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
                ''변수 저장
                일련번호 = Val(Mid(버퍼, 7, 1))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
                ''배열변수 구하기
                If (일련번호 Mod 2) = 0 Then
                    Num = Num + 1
                    합계배열(Num) = 예약수량 * 예약금액
                End If
               
            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
       
        ''합계 구하기
        For K = 1 To 10
            합계 = 합계 + 합계배열(K)
        Next K
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans1.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 합계
       
    Close #2
   
End Sub

=> 강의 중에 위 소스에 대한 설명을 드리고 있습니다. (고급유형 설명시)

1회 준비로 기사친구를 들으신 분들은 현재 강의에서 문제풀이만 다시 들어주세요.

소스코딩은 크게 바뀐게 없으나(i=>K, j=>P 로 바꿨습니다. 1회때 기사친구 회원님 소스를 보니 오타가 많더군요.), 1회 기출을 분석해서 설명드리고 있습니다.

그리고 소스를 볼 수 없다고 말씀하셨는데...정확하게 어떤 오류인지 말씀해 주시면 답변드리겠습니다.

이번에 꼭 합격하시기를 기원합니다.