2, 3번 고급(최대최소) 문제 소스 코딩을 둘다 잘못해서 불합격이라고 생각하고 있었는데요....

2번은 100 200 인수 외에 다른 인수를 넣어 실행시켜보니 정답결과와 바로 불일치했는데,

3번문제에 제가 소스코딩한 것의 결과값과

선생님이 올려주신 소스코딩과 비교해보니 계속 일치합니다.

지금 인수를 20 여개 넘게 넣어봤는데요.. 모두 일치하거든요...

인수값 계속 넣어서 실행시켜볼 예정인데요.. 혹시나 해서요...

제가 다르게 소스코딩한 것이 우연찮게 맞아떨어지길 기대하며 올립니다..;;;

--------------------------------------------------------------------

Option Explicit

Sub main()

    ''''''''필수 변수 선언
    Dim 인수1, 인수2, i, 버퍼 As Variant
   
    ''''''''핵심 변수 선언
    Dim 지불금액, 예약수량, 예약금액, 일련번호, 최소값, 최대일련번호 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
   
        ''''''''초기화
        최소값 = 999999999
        최대일련번호 = 0
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''''''''변수 저장
                지불금액 = Val(Mid(버퍼, 48, 10))
                예약수량 = Val(Mid(버퍼, 18, 5))
                예약금액 = Val(Mid(버퍼, 23, 10))
               
               
                ''''''''최대일련번호 구하기
                If 지불금액 >= 6000000 Then
                   
                    If 최소값 > 예약수량 * 예약금액 Or _
                        (최소값 = 예약수량 * 예약금액 And 최대일련번호 < 일련번호) Then
                       
                        최소값 = 예약수량 * 예약금액
                        일련번호 = Trim(Mid(버퍼, 1, 7))
                        최대일련번호 = 일련번호
                    End If
   
                End If
               
            End If
        Next i
       
    Close #1
   
    ''''''''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 일련번호
       
    Close #2
   
End Sub

빨간색 부분이 제가 다르게 코딩한 부분입니다...

이것도 혹시 맞을까요?? 이 3번에 합격 /불합격이 달려있습니다...ㅡㅜ;;