2026_최신기출유형_03회
-3. 프로시저 작업 10/15
-폼 실행 결과 X
Private Sub cmd입력_Click()
Dim i As Integer
i = Range("a4").CurrentRegion.Rows.Count + 4
Cells(i, 1) = txt고객명
If opt고급 = True Then
Cells(i, 2) = "고급"
ElseIf opt실버 = True Then
Cells(i, 2) = "실버"
Else
Cells(i, 2) = "일반"
End If
Cells(i, 3) = txt매출금액
Cells(i, 4) = lst결제방식
If Cells(i, 4) = "현금" Then
Cells(i, 5) = txt매출금액 * 0.1
ElseIf Cells(i, 4) = "카드" Then
Cells(i, 5) = txt매출금액 * 0.05
Else
Cells(i, 5) = 0
End If
안녕하세요.
작업하신 파일에서 실행이 정상적으로 수행된다면, 실제 시험에서는 맞게 채점됩니다.
교재 채점 프로그램이 정답 파일과 비교하는 방식이라 동일한 결과가 산출되어도 비교 대상 값이 다르면 틀리게 채점되는 경우가 있습니다.
실제 시험장에서는 작업용과 채점용이 동일하여 프로그램 버전도 관계없으며, 지시사항에 맞게 처리하여 결과가 맞게 산출되면, 맞게 채점되니 이점 학습에 참고하세요.
즐거운 하루 되세요.
-
관리자2026-01-21 20:04:37
안녕하세요.
작업하신 파일에서 실행이 정상적으로 수행된다면, 실제 시험에서는 맞게 채점됩니다.
교재 채점 프로그램이 정답 파일과 비교하는 방식이라 동일한 결과가 산출되어도 비교 대상 값이 다르면 틀리게 채점되는 경우가 있습니다.
실제 시험장에서는 작업용과 채점용이 동일하여 프로그램 버전도 관계없으며, 지시사항에 맞게 처리하여 결과가 맞게 산출되면, 맞게 채점되니 이점 학습에 참고하세요.
즐거운 하루 되세요.