11월4일 오후 4번 문제여,,
아무리봐도 모르겠어여..ㅠ.ㅠ

문제 4】

담임코드에 따른 점수포인트

담임코드
점수포인트

A
10

B
15

C
20


위의 표를 참조하여 지역코드가 B인 자료의 (국어점수 + 점수포인트)가 50 이상인 자료의 건수 출력하시오(30점)

(※ 결과 값은 수검자 PC의 C:\C_it\data\Ans4.txt 파일에 출력되도록 프로그램을 작성할 것)




확인답안 1차 (실제 데이터를 사용한 답안)


문제 4】 100 200 21



----------------------------------------------------------------------

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\Abc1115.txt" For Input As #1
For i = 1 To 인수2
Line Input #1, 버퍼
If i >= 인수1 Then

''변수저장
담임코드 = Trim(Mid(버퍼, 29, 1))
지역코드 = Trim(Mid(버퍼, 31, 1))
국어점수 = Val(Mid(버퍼, 11, 3))

''표처리
Select Case 담임코드
Case "A"
점수포인트 = 10
Case "B"
점수포인트 = 15
Case "C"
점수포인트 = 20
End Select

End If
Next i

''Num구하기
If 지역코드 = "B" And (국어점수 + 점수포인트) >= 50 Then
Num = Num + 1
End If

Close #1


''출력파일처리
Open "c:\c_it\data\ans4.txt" For Output As #2
Print #2, 인수1, 인수2, Num
Close #2

End Sub