새벽 2시네요...어제 자정쯤 한 분과 전화 통화했는데...그 시간에 6문제 더 풀고 시험보러 간다고 하시더군요... 정말 대단하다는 생각이 들었습니다...

그런 분들이 새벽을 지키고(?) 계시니 제가 잠을 잘 수 없군요...시험후기에 합격하신분들의 글을 읽고...힘을 받아....또 답변 들어갑니다.^^

문제:

지역코드에 따른 점수포인트가 아래와 같다. 아래의 표를 참조하여 성취도가 A, B인 자료에 대해 (국어점수 + 점수포인트)가 50 이상인 자료의 건수를 출력하시오(30점)

=> 건수 구하는 문제군요...(Num=Num+1) 생각하셔야죠..그리고 중요한 부분이 성취도가 A, B....실수 많이 하죠...(or 로 처리하셔야 합니다.)

출제될 가능성이 있습니다.

그리고 조영희씨...오일열씨...정확하게 지적해 주셨네요..저는 마물하겠습니다.^^

Option Explicit

Sub main()
   
    ''''''''''''''''필수변수선언
    Dim 인수1, 인수2, 버퍼, i As Variant
   
    ''''''''''''''''핵심변수선언
    Dim 지역코드, 점수포인트, 성취도, 국어점수, 자료건수 As Variant
   
    ''''''''''''''''인수처리
    인수1 = Val(Left(Command, InStr(Command, " ")))
    인수2 = Val(Mid(Command, InStr(Command, " ")))
   
    ''''''''''''''''입력파일처리
    Open "c:\c_it\data\abc06.txt" For Input As #1
        For i = 1 To 인수2
            Line Input #1, 버퍼
           
            If i >= 인수1 Then
               
                ''''''''''''''''변수저장
                지역코드 = Trim(Mid(버퍼, 31, 1))
                성취도 = Trim(Mid(버퍼, 30, 1))
                국어점수 = Val(Mid(버퍼, 11, 3))
                               
                ''''''''''''''''표처리
                Select Case 지역코드
                    Case "A"
                        점수포인트 = 5
                    Case "B"
                        점수포인트 = 10
                    Case "C"
                        점수포인트 = 15
                End Select
                  
                If 성취도 = "A" Or 성취도 = "B" Then
                    If (국어점수 + 점수포인트) >= 50 Then
                       자료건수 = 자료건수 + 1
                    End If
             End If
               
            End If
        Next i
    Close #1
   
    ''''''''''''''''''''''''''''''''출력파일
    Open "c:\c_it\data\ans1.txt" For Output As #2
        Print #2, 인수1, 인수2, 자료건수
    Close #2
   
End Sub