상담문의

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



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

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

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

sub main()
>>
>>



''''''''''''''''''''''''''''''''필수변수선언
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
                합계(Num) = 판매량 + 제조포인트
            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 #2, 인수1, 인수2, 합계(5)
   
Close #2


>>
>>



end sub
 

전 결과값은 잘모르지만 위분이 설명한것 좀 붙여 봤습니다 양해해주세요
제가 고친부분은 파랑색입니다
위에분이 설명은 잘해주셨지만 한가지 빠뜨린 부분이 있어요 바로 출력파일 처리에서
한줄로 처리해야 할부분을 #1로 지정해 줬더라구요 #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.관리자에게 메일보내기