필기 점수와 실기 점수를 입력받아 평균이 60점 이상이면 "축하합니다.합격입니다.", 50점에서 59점이면, "안타깝게 떨어졌네요.", 50점 미만이면 "열심히 공부해야겠네요"를 각각 메시지 박스로 출력하는 프로그램을 Select Case문을 이용하여 작성하시오.
 

   1) Select ∼ Case문 : 여러 가지 명령문 가운데 조건을 만족하는 명령문을 수행하는 조건문
   * 여러 가지 조건을 비교할 때 적합하다.
   * 다중 If문을 사용해도 되지만 프로그램 소스가 길어지고, 복잡해진다.
 

Private Sub Com합격여부_Click()
Dim x, y, hap As Integer
x = Val(Text_필기.Text)                '필기 점수를 숫자로 변환
y = Val(Text_실기.Text)                '실기 점수를 숫자로 변환
hap = (x + y) / 2                      '필기와 실기 점수의 평균 구하기   
Select Case hap
Case 60 To 100                       '평균이 60-100인 경우
MsgBox "축하합니다. 합격입니다."
Case 50 To 59                        '평균이 50에서 59인 경우
MsgBox "안타깝게 떨어졌네요."
Case Else                            '평균이 50미만인 경우
MsgBox "아주 열심히 공부해야겠네요."
End Select
End Sub