다음카페 라기의 ~ 에서 구한 문제와

제가 코딩한거 같이 올릴게요..꼭 좀 보시고 도와주세요..

모레 시험이라..

그런데, 자료 올릴데가 없네요..일단 코딩한것만 여기 복사 해서 놓을게요..

53 런타임오류 나오고요.. open"c:\~" 부분이 노랗게 나오네요..

txt 가 없어서 그러네요..고쳤거든요..

그래서 실행해보니 되는거 같던데, 결과물을 보니 내용이 아무것도 없네요..

뭐가 틀린건지..인수값도 없고, 결과도 없고..


Option Explicit

Sub main()

    ''''''''변수선언
    Dim 인수1, 인수2, K, 버퍼 As Variant
   
    ''''''''인수
    Dim 주유량, 단가, 거래포인트, 합계(1000), P, temp, num As Variant
   
    ''''''''입력
    Open "c:\c_it\data\abc0107" For Input As #1
   
        For K = 1 To 인수2
            Line Input #1, 버퍼
           
            ''''''''변수저장
            주유량 = Val(Mid(버퍼, 11, 3))
            단가 = Val(Mid(버퍼, 14, 4))
            거래포인트 = Val(Mid(버퍼, 23, 4))
            ''''''''합계
            num = num + 1
            합계(num) = 합계(num) + 단가 + 거래포인트
           
           
        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, 합계(7)
    Close #2

End Sub