7월 9일 오후 기출문제 풀고 있습니다.(2005년)

다른 것은 다 맞았는데 1번문제가 아무리 봐도 왜 틀리는지 모르겠네요..

답은 40106 이라는데, 전 40170만 나와여...ㅠ.ㅠ

시간차를 두고 여러번 해봤는데도...ㅠ.ㅠ

왜 그런지 코딩에 문제가 있는지 좀 봐주세여...ㅠ.ㅠ

(참, 저도 동영상 강의가 지금 안 나오네여....저녁에 다시 볼껀데...)




Option Explicit

Sub main()

''''필수변수선언
Dim 인수1, 인수2, K, 버퍼 As Variant

''''핵심변수선언
Dim 출발지코드, 승객만족도, 월이용횟수, 여행거리, 합계(1000), 고객번호(1000), P, TEMP, NUM As Variant

''''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''''입력파일처리
Open "C:\C_it\data\abc1112.txt" For Input As #1

    For K = 1 To 인수2
        Line Input #1, 버퍼
        If K >= 인수1 Then
       
        출발지코드 = Trim(Mid(버퍼, 20, 2))
        승객만족도 = Val(Mid(버퍼, 16, 2))
        월이용횟수 = Val(Mid(버퍼, 32, 2))
        여행거리 = Val(Mid(버퍼, 27, 5))
       
        If 출발지코드 = "SU" And 승객만족도 <= 23 Then
        NUM = NUM + 1
        합계(NUM) = 월이용횟수 * 여행거리
        고객번호(NUM) = Val(Mid(버퍼, 1, 5))
       
        End If
       
        End If
   
    Next K
   
    For K = 1 To NUM
        For P = K To NUM
       
        If 합계(K) < 합계(P) Or _
        (합계(K) = 합계(P) And 고객번호(K) > 고객번호(P)) Then
       
            TEMP = 합계(K)
            합계(K) = 합계(P)
            합계(P) = TEMP
           
            TEMP = 고객번호(K)
            고객번호(K) = 고객번호(P)
            고객번호(P) = TEMP
           
        End If
       
        Next P
   
    Next K
   
Close #1

Open "C:\C_It\data\Ans4.txt" For Output As #2

    Print #2, 인수1, 인수2, 고객번호(5)
   
Close #2

End Sub