안녕하세요...
마음이 급해져서 인지.. 실수만 계속하고...
틀린 것은 안 보이고.. ㅠㅠ
물어볼 곳은 여기밖에 없어서, 또 올립니다.
왜 답이 1676이 나올까요... ㅠㅠ
모범답은 1706인데...
--------------------------------------
Option Explicit

Sub main()

''원래
Dim 인수1, 인수2, K, 버퍼 As Variant

''문제
Dim 성취도, 가산점수, 목표점수, 영어점수, 합계 As Variant

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

''입력
Open "C:\c_it\gisa-12\문제풀이(16강~39강)\중급\기사(050506-오전)-중급(정최합건)\res0105.txt" For Input As #1
 
   
    For K = 1 To 인수2
    Line Input #1, 버퍼
    If K >= 인수1 Then
   
    ''변수저장
    성취도 = Trim(Mid(버퍼, 15, 1))
     목표점수 = Val(Mid(버퍼, 11, 3))
    영어점수 = Val(Mid(버퍼, 20, 3))
  
   
    ''표처리
    Select Case 성취도
        Case "A"
        가산점수 = 5
        Case "B''"
        가산점수 = 15
        Case "C"
        가산점수 = 20
   
    End Select
   
    ''합계/최대값
    If 목표점수 >= 300 Then
        합계 = 합계 + 영어점수 + 가산점수
 
       
 
    End If
   
    End If
   

    Next K

Close #1

''출력
Open "C:\c_it\data\ans3.txt" For Output As #2
Print #2, 인수1, 인수2, 합계
Close #2

End Sub