강의에서 실기코딩 맨처음거 다시 해보았습니다. 거래처관리 3번 수업 들으면서요.
선생님 하시는대로 그대로 따라했거든요. 한줄한줄..
그런데 5번오류처음에 나오고, 그다음에 76번이 아니고 저는 53번 오류더라구요.
오류장소는 똑같이 파일을 찾을수 없어서라고 나오고..
그래서 경로에 입력파일 저장하고 실행~!! 짜짠..
근데 왜
합계값(5)이 저는 18이 나올까요.
변수 저장부분도 맞는데...
저는 도저히 모르겠어요 ㅠ_ㅠ
울고싶네요.. 제일 기초부분인데
도와주세요~ 선생님 (자료실 05년 기사 입력파일 묶음에서 abc0001 사용했어요. ) 


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 = 1 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