25강 1번 문제인데요.. 자꾸 컴파일 오류입니다. 외부프로시저가 잘못되었다고 하는데 무엇이 문제인가요?
그리고 다운로그한 수업 첨부파일을 열으면 자꾸 못 찾는다는 창만 뜨고 소스는 보이지도 않습니다..어떻게 된건가요??
25강 1번(확인 좀해주세요..ㅡㅡ) Option Explicit
''필수변수선언 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 합계 = 판매량 + 제조포인트 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 인수1, 인수2, 합계(5) Close #2 |