기능사 기출문제 4-4

 코딩한거 올릴께요.. 머가문젠지좀 봐주세요 ㅠㅠ

 _--------------------

 Sub Main()
    ''''필수입력변수
     Dim 인수1, 인수2, i, 버퍼 As Variant
    
    ''''핵심입력변수
     Dim 고객종류, 당월잔액, 평균, num, 합계 As Variant
    
   
    ''''인수처리
     인수1 = Val(Left(Command, InStr(Command, " ")))
     인수2 = Val(Mid(Command, InStr(Command, " ")))
    
    ''''입력파일처리
     Open "c:/c_it/data/abc0004.txt" For Input As #1
     
       
        For i = 1 To 인수2
            Line Input #1, 버퍼
                If i >= 인수1 Then
                    ''''변수저장
                     고객종류 = Trim(Mid(버퍼, 30, 1))
                     당월잔액 = Val(Mid(버퍼, 23, 5))
                   
                   
                      If 고객종류 = "B" Then
                      
                         합계 = 합계 + 당월잔액
                           num = num + 1
                      End If
                End If
                  
                    
        Next i
                    ''''평균구하기
                     평균 = 합계 / num
     Close #1
    
    ''''출력파일처리
     Open "c:/c_it/data/ans4.txt" For Output As #2
        Print #2, 인수1, 인수2, Round(합계)
     Close #2
    
   
End Sub