상담문의

ㆍ HOME > 상담문의 > 일반상담
제 목 53내지 5런타임 오류가 자꾸 발생하네요..
글쓴이  신지원 작성일 2005-07-15조회수 667
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

입력 파일명 및 경로 : C:\C_it\data\abc0106.txt















































































거래처번호



담당이메일



직위



단가



수량



분류코드



운송코드



이익포인트



거래처등급



배달거리



거래포인트



숫자



문자



문자



숫자



숫자



문자



문자



숫자



문자



숫자



숫자



6



4



1



3



3



1



1



3



1



3



3



※ 거래처번호는 중복되어 있지 않으며 거래처번호에 대해 오름차순 정렬되어 있다.



문제 1】 (이익포인트 * 거래포인트)에 따라 오름차순 정렬하였을 때 5번째 자료의 (이익포인트 * 거래포인트)의 값을 출력하시오. 동일값 발생시 거래처번호에 대한 오름차순 정렬하시오.(20점)



 



 



 



Option Explicit



Sub main()



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




''핵심변수선언
Dim 이익포인트, 거래포인트, 합계(1000), j, Temp, Num



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




''입력파일처리



Open "c:\c_it\data\abc0106.txt" For Input As #1
       For i = 1 To 인수2
        Line Input #1, 버퍼
        If i >= 인수1 Then
       
        ''변수저장
        이익포인트 = Val(Mid(버퍼, 20, 3))
        거래포인트 = Val(Mid(버퍼, 27, 3))
       
        Num = Num + 1
        합계(Num) = 이익포인트 + 거래포인트
       



       End If
      
       Next i
      
       ''정렬(오름차순)
       For i = 1 To Num
        For j = i To Num
            If 합계(i) > 합계(j) Then
                Temp = 합계(i)
                합계(i) = 합계(j)
                합계(j) = Temp
               
            End If
           
        Next j
       Next i
      
      
Close #1




''출력파일처리
Open "c:\c_it\data\abc0106.txt" For Output As #2
    Print #2, 인수1, 인수2, 합계(5)
Close #2



End Sub



 



 



 



 



 



기출문제 1번을 코딩해봤는데요..



 



 



"53런타임 오류가 발생하였습니다



파일을 찾을수 없습니다"



혹은



''5런타임 오류가 발생했습니다"



 



라고 오류메세지가 뜨네요



 



 



c드라이브안에 생성된 c_it폴더에



텍스트 입력파일 복사해서 넣어놓고 문제 코딩했거든요..



정확한 답이 출력될때도 있고 위와같은 오류메세지가 뜰때도 있어요..



왜그런거죠??

댓글쓰기 :
이전글 53내지 5런타임 오류가 자꾸 발생하네요..
다음글 가산점을 위한 정보처리자격증 강의 사이트를 오픈합니다.
고객지원센터

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