| | | 제 목 | 문제 질문입니다..선생님 알려주세여.. | | | 글쓴이 | 김장현 | 작성일 | 2005-07-05 | 조회수 | 602 | | | 글공유 | |
| | | 정보처리 기사 실기 기출문제(2005년 05월 08일 오전)
문제 2】출발지 코드가 SU이고 승객만족도가 23 이하인 자료에 대하여 (월이용회수 * 여행거리)값의 자료 중에서 가장 큰 값의 도착지코드를 출력하되, 가장 큰 (월이용회수* 여행거리)값이 중복될 경우 중복자료 중 가장 작은 고객번호의 도착지코드를 출력하시오.(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\ABC1112.txt" For Input As #1
''''초기화
최대값 = 0
최소도착지코드 = 9999999999#
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
''''변수 저장
출발지코드 = Trim(Mid(버퍼, 20, 2))
승객만족도 = Val(Mid(버퍼, 16, 2))
월이용회수 = Val(Mid(버퍼, 32, 2))
여행거리 = Val(Mid(버퍼, 27, 5))
도착지코드 = Trim(Mid(버퍼, 22, 2))
''''최대값구하기
If 출발지코드 = "SU" And 승객만족도 <= 23 Then
If 최대값 < 월이용회수 * 여행거리 Or _
최대값 = 월이용회수 * 여행거리 And 최소도착지코드 > 도착지코드 Then
최대값 = 월이용회수 * 여행거리
최소도착지코드 = 도착지코드
End If
End If
End If
Next i
Close #1
''''출력 파일 처리
Open "c:\c_it\data\ans0001.txt" For Output As #2
Print #2, 인수1, 인수2, 최소도착지코드
Close #2
End Sub
| |
|
|
이전글
다음글
