>>>> >>
25강 1번 문제인데요.. 자꾸 컴파일 오류입니다. 외부프로시저가 잘못되었다고 하는데 무엇이 문제인가요?
그리고 다운로그한 수업 첨부파일을 열으면 자꾸 못 찾는다는 창만 뜨고 소스는 보이지도 않습니다..어떻게 된건가요??
25강 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\abc05.txt" For Input As #1 >> >>
For k = 1 To 인수2 Line Input #1, 버퍼 If k >= 인수1 Then ''''''''''''''''''''''''''''''''변수 저장 제조등급 = Trim(Mid(버퍼, 29, 1)) 매출액 = Val(Mid(버퍼, 26, 3)) 판매량 = Val(Mid(버퍼, 15, 3)) 제조포인트 = Val(Mid(버퍼, 20, 3)) ''''''''''''''''''''''''''''''''합계 구하기 If 제조등급 = "C" And 매출액 >= 80 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
전 결과값은 잘모르지만 위분이 설명한것 좀 붙여 봤습니다 양해해주세요 제가 고친부분은 파랑색입니다 위에분이 설명은 잘해주셨지만 한가지 빠뜨린 부분이 있어요 바로 출력파일 처리에서 한줄로 처리해야 할부분을 #1로 지정해 줬더라구요 #2로 해야하는데 실수라고 생각 되지만... 또 참고로 변수선언 할때는 대문자로 해주는게 좋아요 왜냐하면 자동적으로 뒤에 코딩할때 대문자로 되거든요 그럼 시험 보는날까지 합격 신화 이룹시다 홧팅!!요 |