2026_최신기출문제_08회_2024년상시04
-3. 프로시저 작성 10/15
-폼 실행 X 마지막 행에 데이터가 입력되지 않았습니다.
이 채점 결과의 의미가 이해되지 않습니다.
코드는 동일하게 작성된 걸로 보이는데, 어떤 문제인가요?
[정답코드]
Private Sub cmd등록_Click()
입력행 = [A2].Row + [A2].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt구매자명.Value
Cells(입력행, 2) = cmb상품명.Value
Cells(입력행, 3) = txt상품상태.Value
Cells(입력행, 4) = txt맛.Value
Cells(입력행, 5) = txt포장상태.Value
If Cells(입력행, 3) + Cells(입력행, 4) + Cells(입력행, 5) >= 25 Then
Cells(입력행, 6) = "매우좋음"
ElseIf Cells(입력행, 3) + Cells(입력행, 4) + Cells(입력행, 5) >= 20 Then
Cells(입력행, 6) = "좋음"
ElseIf Cells(입력행, 3) + Cells(입력행, 4) + Cells(입력행, 5) >= 15 Then
Cells(입력행, 6) = "보통"
Else
Cells(입력행, 6) = "나쁨"
End If
End Sub
[작성 코드]
Private Sub cmd등록_Click()
입력행 = [A2].Row + [A2].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt구매자명.Value
Cells(입력행, 2) = cmb상품명.Value
Cells(입력행, 3) = txt상품상태.Value
Cells(입력행, 4) = txt맛.Value
Cells(입력행, 5) = txt포장상태.Value
If Cells(입력행, 3) + Cells(입력행, 4) + Cells(입력행, 5) >= 25 Then
Cells(입력행, 6) = "매우좋음"
ElseIf Cells(입력행, 3) + Cells(입력행, 4) + Cells(입력행, 5) >= 20 Then
Cells(입력행, 6) = "좋음"
ElseIf Cells(입력행, 3) + Cells(입력행, 4) + Cells(입력행, 5) >= 15 Then
Cells(입력행, 6) = "보통"
Else
Cells(입력행, 6) = "나쁨"
End If
End Sub
안녕하세요.
폼 프로시저를 실행해서 데이터의 입력 여부를 확인하지 않아도, 제시된 조건을 모두 적용하여 코드가 맞게 작성되었다면, 실제 시험에서는 맞게 채점됩니다.
교재 채점 프로그램이 정답 파일과 비교하는 방식이라 동일한 결과가 산출되어도 비교 대상 값이 다르면 틀리게 채점되는 경우가 있습니다.
실제 시험장에서는 작업용과 채점용이 동일하여 프로그램 버전도 관계없으며, 지시사항에 맞게 처리하여 결과가 맞게 산출되면, 맞게 채점되니 이점 학습에 참고하세요.
즐거운 하루 되세요.
-
관리자2026-04-15 17:26:35
안녕하세요.
폼 프로시저를 실행해서 데이터의 입력 여부를 확인하지 않아도, 제시된 조건을 모두 적용하여 코드가 맞게 작성되었다면, 실제 시험에서는 맞게 채점됩니다.
교재 채점 프로그램이 정답 파일과 비교하는 방식이라 동일한 결과가 산출되어도 비교 대상 값이 다르면 틀리게 채점되는 경우가 있습니다.
실제 시험장에서는 작업용과 채점용이 동일하여 프로그램 버전도 관계없으며, 지시사항에 맞게 처리하여 결과가 맞게 산출되면, 맞게 채점되니 이점 학습에 참고하세요.
즐거운 하루 되세요.