현재 커서가 위치한 텍스트의 배경색이 바뀌는 프로그램을 작성하시오.

1) 이름 입력 상자에 커서가 위치하면 텍스트 배경색 파란색

2) 학교 입력 상자에 커서가 위치하면 텍스트 배경색은 노란색

2) 지우기 단추를 클릭하면 레이블의 내용이 지워진다.

Private Sub Text_이름_GotFocus()                  '커서가 위치했을 때

Text_이름.BackColor = vbBlue                      '텍스트 배경색을 파란색으로 설정

End Sub

Private Sub Text_이름_LostFocus()                 '커서가 위치하지 않았을 때

Text_이름.BackColor = vbWhite                    '텍스트 배경색을 흰색으로 설정

End Sub

Private Sub Text_학교_GotFocus()                 '커서가 위치했을 때

Text_학교.BackColor = vbYellow                   '텍스트 배경색을 노란색으로 설정

End Sub                       

Private Sub Text_학교_LostFocus()                '커서가 위치하지 않았을 때

Text_학교.BackColor = vbWhite                   '텍스트 배경색을 흰색으로 설정

End Sub