상담문의

ㆍ HOME > 상담문의 > 정보처리기사 실기
제 목 인수값2 어떻게 넣어요?
글쓴이  김연남작성일 2005-04-26조회수 512
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

아래 질문 다음과 같이 올렸는데



''''5''''런타임 오류가 발생하였습니다.



프로시저 호출 또는 인수가 잘못되었습니다.



 어떤분이 인수값을 넣으라고 하시더라구요.



아래 코딩이 따라한건데 어디에 넣어요??



아..정말 하루종일 제자리 미치겠어요. 좀 도와주세요ㅠ.ㅜ



아래 질문에 보니 몇분이 인수값2 디버그 생긴다고 질문올리셨던데



다 답변이 없네요.저도 같은 문제인거같은데 실수좀 잡아주세요.



 



 



 



Option Explicit



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))
            이익포인트 = Val(Mid(버퍼, 20, 3))
            거래포인트 = Val(Mid(버퍼, 27, 3))
       
            ''''최대값구하기
            If 단가 >= 50 Then
           
                If 최대값 < 이익포인트 + 거래포인트 Then
                   최대값 = 이익포인트 + 거래포인트
                  
                End If
               
            End If
       
        End If
       
    Next i
   
  
       
       
Close #1



''''출력파일처리
Open "c:\c_it\data\ans1.txt" For Output As #2
    Print #2, 인수1, 인수2, 최대값
Close #2



End Sub

댓글쓰기 :
이전글 인수값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.관리자에게 메일보내기