회원가입  l   고객센터  l   이벤트  l   사이트맵

커뮤니티

    상담문의

 ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 05년1회 기출분석 답이 이상한거 같아요-_-
글쓴이  손유진작성일 2005-07-01조회수 508
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기
Sub main()
    ''필수변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''핵심변수선언
    Dim 예약방법코드, 누적점수, 예약일자, 추가사용점수, 합계 As Variant
   
   
    ''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''입력파일처리
    Open "c:\c_it\data\abc0002.txt" For Input As #1
      
        For K = 1 To 인수2
            Line Input #1, 버퍼
            If K >= 인수1 Then
           
            ''변수저장
            예약방법코드 = Trim(Mid(버퍼, 36, 2))
            누적점수 = Val(Mid(버퍼, 40, 5))
            예약일자 = Val(Mid(버퍼, 11, 2))
           
            ''표처리
            Select Case 예약방법코드
            Case "LG"
                추가사용점수 = 3910
            Case "TE"
                추가사용점수 = 2970
                Case "FA"
               추가사용점수 = 7930
                Case "HU"
                추가사용점수 = 6360
                End Select
               
            ''합계구하기
            If (예약일자 Mod 2) = 1 Then
               합계 = 합계 + 누적점수 + 추가사용점수
            End If
           
            End If
           
        Next K
       
    Close #1
   
  
   
   
    ''출력파일처리
   Open "c:\c_it\data\0501.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계
   Close #2
  
   
End Sub

====================
정답은 1164745라고 나와있는데
(위에처럼)제가 코딩한거로는 1104754가 나오거든요-

몇번을 다시봐도 어디가 틀렸는지 모르겠어요..
알려주세요~~~^^
댓글쓰기 :
이전글 05년1회 기출분석 답이 이상한거 같아요-_-
다음글 문제가 안 풀려여..ㅠ.ㅠ
고객지원센터

02-556-3650

평일 9:00~18:00

일요일 공휴일 휴무

계좌번호안내

농협은행 724-01-173541

국민은행 633601-04-044665

예금주 (주)조은캠프

상호명 : (주)조은캠프 ㅣ 대표이사 : 이유락 ㅣ 대구광역시 북구 대학로80 경북대학교 IT융합산업빌딩 11층
사업자번호 : 504-81-62507 ㅣ 본사 : 053-954-0030 ㅣ 기술지원 : 070-7019-1144 ㅣ 팩스 : 050-7711-2200 ㅣ 
원격평생교육시설13호 ㅣ 출판사 : 345-2005-00013 ㅣ 통신판매업 : 2005-대구북구-00158 ㅣ 정보보호책임자 : 김창연  
기사친구는 SSL보안방식의 암호화구간을 적용하여 사이트를 안전하게 이용하실 수 있습니다.
COPYRIGHT 2005 (주)조은캠프 ALL RIGHTS RESERVED.관리자에게 메일보내기