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

커뮤니티

    상담문의

 ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 거래처 관리 1번 문제 코딩.
글쓴이  이경화작성일 2005-05-07조회수 403
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기
강의 24,25 듣고 있습니다.
코딩을 시키고 저장하는 과정을 하려고 하는데요.
실행이 되지 않습니다.
''53런타임 오류''가 계속 발생합니다.

계속 확인하고 다시 해봐도 오류가 발생합니다.

그래서 다음 단계로 넘어갈수가 없어요.

Sub main()

Dim 인수1, 인수2, i, 버퍼 As Variant

Dim 단가, 이익포인트, 거래포인트, 합계(1000), j, Temp, Num 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))
이익포인트 = Val(Mid(버퍼, 20, 3))
거래포인트 = Val(Mid(버퍼, 27, 3))

If 단가 >= 50 Then
Num = Num + 1
합계(Num) = 이익포인트 + 거래포인트

End If

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\ans1.txt" For Output As #2

Print #2, 인수1, 인수2, 합계(5)
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.관리자에게 메일보내기