시나공

시험에

나오는 것만

공부한다!

정답을 아래와 같이 입력했는데

오답인지 봐주세요!(빨간색부분이 정답과 다른 부분이에요!)

162p 4-2번 문제

Private Sub cmd등록_Click()
    입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
    참조행 = cmb진료과목.ListIndex + 5
   
    Cells(입력행, 2) = txt예약자
    Cells(입력행, 3) = cmb진료과목
    Cells(입력행, 4) = Cells(참조행, 9)
    Cells(입력행, 5) = CDate(txt진료일)
    Cells(입력행, 6) = Format(txt진료시간, "hh시 mm분")
   
    If Hour(txt진료시간) >= 17 Then
    Cells(입력행, 7) = "시간외진료"
    Else
    Cells(입력행, 7) = ""
   
    End If
   
   

End Sub 

185쪽 4-2번 문제

Private Sub cmd등록_Click()
    입력행 = [b4].Row + [b4].CurrentRegion.Rows.Count
   
    Cells(입력행, 2) = cmb구분.Column(0)
    Cells(입력행, 3) = txt아동명
   
    If opt유 = True Then
    Cells(입력행, 4) = "유"
    Else
    Cells(입력행, 4) = "무"
    End If
   
    Cells(입력행, 5) = cmb구분.Column(1)
    Cells(입력행, 6) = txt입장시간
    Cells(입력행, 7) = txt퇴장시간
    Cells(입력행, 8) = (Hour(txt퇴장시간) - Hour(txt입장시간)) * cmb구분.Column(1)  
End Sub

195쪽
Private Sub cmd등록_Click()
    입력행 = [b4].Row + [b4].CurrentRegion.Rows.Count
   
    Cells(입력행, 2) = cmb수강자.Column(0)
    Cells(입력행, 3) = cmb수강자.Column(1)
   
    Cells(입력행, 4) = Val(txt결석)
    Cells(입력행, 5) = Val(txt지각)
    Cells(입력행, 6) = Val(20 - (txt결석 * 2 + txt지각 * 1))
    Cells(입력행, 7) = Val(txt과제)
    Cells(입력행, 8) = Val(txt평가)
   
    If Cells(입력행, 6) < 12 Then
    Cells(입력행, 9) = "출석미달"
    End If
   
End Sub