문제4 기타작업 -2번-(2번)
저는 문제의 답 코드로
Private Sub cmd입력_Click()
입력셀 = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(입력셀, 2) = cmb담당자
Cells(입력셀, 3) = TimeValue(txt시간)
★ If Cells(입력셀, 3) >= 0.5 Then ★
Cells(입력셀, 4) = "오후"
Else
Cells(입력셀, 4) = "오전"
End If
Cells(입력셀, 5) = cmb지역
Cells(입력셀, 6) = Val(txt계획)
Cells(입력셀, 7) = Val(txt실적)
If 실적 >= 계획 Then
Cells(입력셀, 8) = "달성"
Else
Cells(입력셀, 8) = "노력"
End If
cmb담당자 = ""
txt시간 = ""
cmb지역 = ""
txt계획 = ""
txt실적 = ""
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
cmb담당자.RowSource = "j5:j8"
txt시간 = Time()
cmb지역.AddItem "서울"
cmb지역.AddItem "경기"
cmb지역.AddItem "대전"
cmb지역.AddItem "부산"
End Sub
이렇게 입력했는데,
txt시간 컨트롤의 값(오후 6:10:52)이 정답(오후 6:10:51)과 다릅니다. 라고 오답이 뜹니다.
답지를 비교해본 결과 위에 별표친 부분이 틀린거같은데
이미 위에서 치환했기 때문에 timevalue(txt시간) 이랑 cells(입력행,3) 이 같은 결과라 상관없을꺼라고 생각했는데
이 부분 때문에 오답이 되는게 맞는건가요??
안녕하세요.
코드 실행 중에 시간이 흘러 1초 차이가 난 것입니다.
채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.
하지만 실제 시험에서는 문제의 지시사항을 모두 만족하고 결과값이 맞게 나왔다면 모두 맞는 것으로 채점됩니다.
의미상 차이가 없으므로 정답으로 인정될 것 같습니다.
좋은 하루 보내세요.
-
관리자2019-04-05 20:21:53
안녕하세요.
코드 실행 중에 시간이 흘러 1초 차이가 난 것입니다.
채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.
하지만 실제 시험에서는 문제의 지시사항을 모두 만족하고 결과값이 맞게 나왔다면 모두 맞는 것으로 채점됩니다.
의미상 차이가 없으므로 정답으로 인정될 것 같습니다.
좋은 하루 보내세요.