상담문의

ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 이상해요.
글쓴이  허현숙작성일 2005-06-30조회수 478
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

25강 1번 문제인데요..
자꾸 컴파일 오류입니다. 외부프로시저가 잘못되었다고 하는데 무엇이 문제인가요?

그리고 다운로그한 수업 첨부파일을 열으면 자꾸 못 찾는다는 창만 뜨고 소스는 보이지도 않습니다..어떻게 된건가요??

25강 1번(확인 좀해주세요..ㅡㅡ)
Option Explicit



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



''핵심 변수 선언
Dim 제조등급, 매출액, 판매량, 제조포인트, 합계(1000), p, temp, num As Variant



''인수처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))



''입력 파일처리
Open "c:\c_it\data\abc05.txt" For Input As #1



    For k = 1 To 인수2
        Line Input #1, 버퍼
        If k >= 인수1 Then
       
       
        ''변수 저장
        제조등급 = Trim(Mid(버퍼, 29, 1))
        매출액 = Val(Mid(버퍼, 26, 3))
        판매량 = Val(Mid(버퍼, 15, 3))
        제조포인트 = Val(Mid(버퍼, 20, 3))
       
   
       
            ''합계 구하기
            If 제조등급 = "C" And 매출액 >= 80 Then
            num = num + 1
                합계 = 판매량 + 제조포인트
            End If
           
        End If
       
    Next k
   
    ''정렬(내림차순)
    For k = 1 To num
        For p = k To num
        If 합계(k) < 합계(p) Then
            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 인수1, 인수2, 합계(5)
   
Close #2

댓글쓰기 :
이전글 박석주,이태윤님 고맙습니다.^^
다음글 문제가 안 풀려여..ㅠ.ㅠ
고객지원센터

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