평균 구하는 문제인데요.
본 강의에서는 코딩을 찾을 수 없어서 질문드립니다.
영진 교재에 있는 문제인데 혹시 나올 수도 있잖아요. 불안해서..ㅡㅡ;;

변수 선언하는 부분과 변수 저장하는 부분 등.. 틀린 곳 좀 봐주세요~!! *^^*

Option Explicit

Sub main()

''필수 변수 선언
Dim 인수1, 인수2, K, 버퍼 As Variant

''핵심 변수 선언
Dim 상품분류코드, 수량, 월총판매금액, 합계, 평균, Num As Variant

''인수 처리
인수1 = Val(Left(Command, InStr(Command, " ")))
인수2 = Val(Mid(Command, InStr(Command, " ")))

''입력 파일 처리
Open "c:\c_it\data\abc08.txt" For Input As #1

    For K = 1 To 인수2
        Line Input #1, 버퍼
        If K >= 인수1 Then
       
            ''변수 저장
            상품분류코드 = Trim(Mid(버퍼, 5, 1))
            수량 = Val(Mid(버퍼, 13, 3))
            월총판매금액 = Val(Mid(버퍼, 26, 5))

           
            If 상품분류코드 = "D" And 수량 <= 300 Then
               Num = Num + 1
               합계 = 합계 + 월총판매금액
              
            End If
                   
            ''평균 구하기
            
                
                
        End If
    Next K
              
       
Close #1

''출력 파일 처리
Open "c:\c_it\data\ans2.txt" For Output As #2

    Print #2, 인수1, 인수2, 평균
Close #2
End Sub