상담문의

ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 출력파일
글쓴이  권해원작성일 2005-04-18조회수 641
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

1. 예를 들어 변수저장에서 단가=val(mid(버퍼,13,3))에서 버퍼에서 단가를 불러와야 하니까 버퍼를 쓴다고 하셨는데, 그 말뜻이 잘 이해가 안갑니다




2.제34강 회원별예약관리(고급) 문제 1에서 배열변수 예약번호(num)=trim(mid(버퍼,1,7))




이라고 쓰는데 이것을 변수저장에 쓰면 안되나요 ?




또다른 배열변수 합계(num)과는 어떤 관계가 있는건지...




 




3. 거래처(초급)문제 표처리 4번문제를 풀어보니까 아무런 에러없이 인수값에 대한 답이 나오긴했는데, 답이 틀립니다




무엇이 잘못된 건지 모르겠습니다




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\abc0001.txt" For Input As #1
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''''''''''''''''''''''''''''''''변수저장
                단가 = Val(Mid(버퍼, 12, 3))
                거래처등급 = Trim(Mid(버퍼, 23, 1))
                운송코드 = Trim(Mid(버퍼, 19, 1))
               
                ''''''''''''''''''''''''''''''''표처리
                Select Case 운송코드
               
                    Case "A"
                        할인포인트 = 5
                    Case "B"
                        할인포인트 = 15
                    Case "C"
                        할인포인트 = 20
               
               End Select
              
              
               ''''''''''''''''''''''''''''''''합계 구하기
               If 거래처등급 = "B" Then
              
                    합계 = 합계 + 단가 + 할인포인트
               End If
              
            End If
           
        Next i
       
     
       
       
    Close #1
   
    ''''''''''''''''''''''''''''''''출력파일처리
   
    Open "c:\c_it\data\ans4.txt" For Output As #2
   
        Print #2, 인수1, 인수2, 합계
       
    Close #2
   
   
    End Sub

댓글쓰기 :
이전글 답변 부탁드리겠습니다.
다음글 문제가 안 풀려여..ㅠ.ㅠ
고객지원센터

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.관리자에게 메일보내기