상담문의

ㆍ HOME > 상담문의 > 일반상담
제 목 질문입니다.
글쓴이  박곡지작성일 2005-07-12조회수 555
글공유
게시글을 twitter로 보내기게시글을 facebook으로 보내기게시글을 Me2Day로 보내기게시글을 요즘으로 보내기

1. Open "C:\C_iT\data\abc0001.txt" For Input As #1
에서 따옴표안의 C는 소문자입니까? 대문자입니까?
T도 마찬가지로 알려주세요.

2. 저장
A드라이브에 저장했는데 data에 저장하라고 해서 그렇게 했습니다.
그럼 A디스캣을 나눠주는 의미가 없지 않을까요?
data에 저장하는것이 맞나요?
궁금...

3.모의고사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\abc0001.txt" For Input As #1
    For K = 1 To 인수2
    Line Input #1, 버퍼
    If K > 인수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 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

뭐가 잘못일까요?

댓글쓰기 :
이전글 질문입니다.
다음글 가산점을 위한 정보처리자격증 강의 사이트를 오픈합니다.
고객지원센터

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