문제 4】지역코드에 따른 점수포인트가 아래와 같다
위의 표를 참조하여 성취도가 A, B인 자료에 대해 (국어점수 + 점수포인트)의 50 이상인 자료의 건수를 출력하시오(30점) (※ 결과 값은 수검자 PC의 C:\C_it\data\Ans4.txt 파일에 출력되도록 프로그램을 작성할 것) =====================================================================
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(버퍼, 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" And (국어점수 + 점수포인트) >= 50 Then Num = Num + 1 End If End If Next i Close #1 ''''출력파일처리 Open "c:\c_it\data\Ans4.txt" For Output As #2 Print #2, 인수1, 인수2, Num Close #2 End Sub
================
멜을 보내기도 햇는데 정말 궁금해서 다시 상담실에 남김니다..
위에 처럼 코딩시 답이 47이 나오고 빨간 부분을
If 성취도 = "A" Or 성취도 = "B" Then If (국어점수 + 점수포인트) >= 50 Then
처럼 이중 if 문을 쓰면 답이 맞게(33) 이 나옵니다
두개의 차이가 무엇인가여??
|