상담문의

ㆍ HOME > 상담문의 > 일반상담
제 목 질문있습니다..모르겠어요..ㅠㅠ
글쓴이  최희성 작성일 2005-05-07조회수 588
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

교수님.. 안녕하세요..



휴.. 문법을 다 듣고. 초급 기출문제를 풀려고 하는데.. 23강입니다.



교수님께서는 결과값을 탐색기에서 확인할수 있던데.. 저는 안되더라구요..



코딩을 했지만...  그후에 어떻게 해야 하는지... 무엇을 다운받아야 되는지요..



지금 진도 하나도 못빼고 있습니다..



계속해서 오류가 뜨는데 경로를 찾을수 없다고 나와요..그리고 파일도 찾을 수 없다고 나오구요,,



에궁... 답변 부탁드려요..ㅠㅠ



제 소스..무엇이틀렸나요?



계속해서 인수가 잘못되었다고 오류가 떠요..



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