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\abc0012.txt" For Input As #1
   
        For i = 1 To 인수2
            Line Input #1, 버퍼
            If i >= 인수1 Then
           
                ''변수 저장
                아이템코드 = Trim(Mid(버퍼, 30, 1))
                경험치 = Val(Mid(버퍼, 15, 3))
                체력 = Val(Mid(버퍼, 18, 3))
                지력 = Val(Mid(버퍼, 21, 3))
                마법력 = Val(Mid(버퍼, 24, 3))
                캐릭터타입 = Trim(Mid(버퍼, 29, 1))
               
                ''표처리
                Select Case 아이템코드
                    Case "A"
                        체력 = 체력 + 10
                    Case "B"
                        지력 = 지력 + 10
                    Case "C"
                        마법력 = 마법력 + 10
                    Case "D"
                        체력 = 체력 + 5
                        지력 = 지력 + 5
                        마법력 = 마법력 + 5
                End Select
               
                ''합계 구하기
                If 캐릭터타입 = "W" Then
               
                    Num = Num + 1
                    합계 = 합계 + 경험치 + 체력 * 2 + 지력 * 2 + 마법력 * 3
                   
                End If
               
            End If
        Next i
       
        ''평균 반올림 구하기
        If Num = 0 Then
            평균 = 0
        Else
            평균 = Round(합계 / Num)
        End If
       
    Close #1
   
    ''출력 파일 처리
    Open "c:\c_it\data\ans3.txt" For Output As #2
       
        Print #2, 인수1, 인수2, 평균
       
    Close #2
End Sub