책 내용 질문하기
2017년 상시 1급 엑셀
도서
2019 시나공 컴퓨터활용능력 1급 실기
페이지
172
조회수
549
작성일
2019-04-04
작성자
탈퇴*원
첨부파일

문제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) 이 같은 결과라 상관없을꺼라고 생각했는데

이 부분 때문에 오답이 되는게 맞는건가요??

 

답변
2019-04-05 20:21:53

안녕하세요.

 

코드 실행 중에 시간이 흘러 1초 차이가 난 것입니다.

 

채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.

하지만 실제 시험에서는 문제의 지시사항을 모두 만족하고 결과값이 맞게 나왔다면 모두 맞는 것으로 채점됩니다.

 

의미상 차이가 없으므로 정답으로 인정될 것 같습니다.

 

좋은 하루 보내세요.

 

 

  • 관리자
    2019-04-05 20:21:53

    안녕하세요.

     

    코드 실행 중에 시간이 흘러 1초 차이가 난 것입니다.

     

    채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.

    하지만 실제 시험에서는 문제의 지시사항을 모두 만족하고 결과값이 맞게 나왔다면 모두 맞는 것으로 채점됩니다.

     

    의미상 차이가 없으므로 정답으로 인정될 것 같습니다.

     

    좋은 하루 보내세요.

     

     

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.