Option Explicit

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\abc0015.txt" For Input As #1

For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then
        ''변수 저장
        회원수 = Val(Mid(버퍼, 21, 6))
       사이트구분 = Val(Mid(버퍼, 10, 1))
       할당용량 = Val(Mid(버퍼, 29, 4))
       회선수 = Val(Mid(버퍼, 19, 2))
      
       Select Case 사이트구분
       Case "A"
       사용료 = 15000
       Case "B"
       사용료 = 10000
      
       Case "C"
       사용료 = 7500
       Case "D"
       사용료 = 5000
       End Select
      
      
        If 회원수 >= 3000 Then
           num = num + 1
           합계 = 합계 + 사용료 * 할당용량 * 회선수
          
        End If
       

End If

Next i
''평균
If num = 0 Then
평균 = 0
Else
평균 = Round(합계 / num)
End If

Close
''출력파일퍼리
Open "c:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 평균

Close
End Sub

머가 틀린거죠?? 값이 0나오는데...ㅠ.ㅠ