2003년 7월 18일 오전기출문제1번
답은 나왔는데
계속 53번 오류가 났어요 ㅜ.ㅜ
소스확인부탁드려용~


Sub main()
''''필수변수선언
Dim 인수1, 인수2, 버퍼, k As Variant

''''핵심변수선언
Dim 승객만족도, 좌석코드, 월이용횟수, 열차요금, p, 합계(1000), 고객번호(1000), NUM, TEMP 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(버퍼, 16, 2))
좌석코드 = Trim(Mid(버퍼, 8, 2))
월이용횟수 = Val(Mid(버퍼, 32, 2))
열차요금 = Val(Mid(버퍼, 10, 6))

 If 승객만족도 Mod 2 = 0 And 좌석코드 = "HE" Then
 NUM = NUM + 1
 합계(NUM) = 월이용횟수 + 열차요금 * 0.4
 고객번호(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\ans1.txt" For Output As #2
Print #2, 인수1, 인수2, 고객번호(3)
Close #2

End Sub