| | | 제 목 | 제 저는 안아려주십니까.급해요 | | | 글쓴이 | 김성훈 | 작성일 | 2005-05-07 | 조회수 | 574 | | | 글공유 | |
| | | 정보처리산업기사(2004년 11월 01일-오후)
■ 입력 파일명 및 경로 : C:\C_it\data\s10261.txt (2004/7/4오전, 2003/10/26 오전, 2002/10/27 오전 동일)
예약번호 예약일자 투숙기간 고객구분코드 숙박요금 부대시설이용요금 할인금액 지불코드 예약방법코드 예약실구분코드 누적점수
숫자 문자 숫자 문자 숫자 숫자 숫자 문자 문자 문자 숫자
6 8 2 2 6 5 4 2 2 2 5
※ 예약번호는 중복되어 있지 않으며 예약번호에 대해 오름차순 정렬되어 있다.
[문제3] 예약일자는 YYYYMMDD로 구성되어있다. 월일(MMDD)과 상관없이 2001년에 예약한 자료의 (부대시설이용요금 * 투숙기간)의 합계를 구하여 출력하시오.(30점)
(※ 결과 값은 수검자 PC의 C:\C_it\data\Ans3.txt 파일에 출력) 100 200 10433550
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\s10261.txt" For Input As #1
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
''변수저장
예약일자 = Val(Mid(버퍼, 7, 4))
부대시설이용요금 = Val(Mid(버퍼, 25, 5))
투숙기간 = Val(Mid(버퍼, 15, 2))
''합계구하기
If 예약일자 = 2001 Then
합계 = 부대시설이용요금 * 투숙기간
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
306000이 계속 나와요 빨간색 부분이 틀린거 같은데..제발 알려주세요 | |
|
|
이전글
다음글
