Page 221 - 3-3

' 태그값이 g 면
ElseIf Mid(rtbError.Text, 2, 1) = "g" Then
' 통신 30201 라이언
student = "330201 라이언"

' 태그값이 h 면
ElseIf Mid(rtbError.Text, 2, 1) = "h" Then
' 회로 10101 피카츄
student = "210101 피카츄"

' 태그값이 면i
ElseIf Mid(rtbError.Text, 2, 1) = "i" Then
' 회로 20101 강백호
student = "220101 강백호"

' 태그값이 면j
ElseIf Mid(rtbError.Text, 2, 1) = "j" Then
' 회로 30101 코난
student = "230101 코난"

' 태그값이 k 면
ElseIf Mid(rtbError.Text, 2, 1) = "k" Then
' 제어 10101 가오나시
student = "110101 가오나시"

' 태그값이 면l
ElseIf Mid(rtbError.Text, 2, 1) = "l" Then
' 제어 20101 마리오
student = "120101 마리오"

' 태그값이 m 면
ElseIf Mid(rtbError.Text, 2, 1) = "m" Then
' 제어 30101 케로로
student = "130101 케로로"

Else ' 어떤 조건에도 부합하지 않으면
' 다시입력 출력
student = " 다시 입력"
End If

' 에러 박스 텍스트 지우기
rtbError.Text = ""
End Sub

- 221 -