VB2008 강좌-Select Case문

Select 문
Select 문은 하나의 식을 검사하여 여러 개의 실행 블록 중 하나를 선택하여 분기한다.

1.1 형식

Select Case 비교대상

Case 비교값 1

  처리코드 1

Case 비교값 2

  처리코드 2

…

Case Else

  처리코드

           End Select

1.2 예제

Select Case Val(TextBox1.Text)

 

                Case 91 To 100

                    MsgBox("아주 영어를 잘하는군요..수")

                Case 81 To 90

                    MsgBox("영어를 잘하는군요..우")

                Case 71 To 80

                    MsgBox("영어가 조금 부족합니다..미")

                Case 61 To 70

                    MsgBox("영어가 많이 부족하군요..양")

                Case Else

                    MsgBox("영어를 너무 못하는군요..가")

 

      End Select

이번에는 실제 예제를 볼까요?

                                                 폼 디자인

                                       값이 입력되지 않았을 때

                                  숫자가 아닌 값이 입력되었을 때


사용된 함수 및 기능
Public Function IsNumeric(ByVal Expression As Object) As Boolean

Expression이 숫자형이면 참(True)을 숫자형이 아니면 거짓(False)을 나타낸다.

 

TextBox.Focus
텍스트박스의 입력창에 입력이 가능하도록 포인터를 위치시킨다.

If문 테스트 클릭시 코딩된 부분
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

        'TextBox1에 값이 입력되어 있지 않으면 표시해주는 부분

        If TextBox1.Text = "" Then

            MsgBox("TextBox에 값이 입력되지 않았습니다. 값을 입력해주세요.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

            TextBox1.Focus()

 

            '입력된 값이 숫자형인지 파악해서 숫자입력 요청

        ElseIf IsNumeric(TextBox1.Text) = False Then

            MsgBox("TextBox에 0~100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

 

            'TextBox1에 0 ~ 100 사이의 값을 입력 요청 조건문

        ElseIf Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0에서 100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

 

        ElseIf Val(TextBox1.Text) < 90 Then

            MsgBox("당신은 공부를 더 열심히 해야겠군요.!!")

        End If

 

End Sub


Select문 테스트 클릭시 코딩된 부분
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

 

        'TextBox1에 값이 입력되어 있지 않으면 표시해주는 부분

        If TextBox1.Text = "" Then

            MsgBox("TextBox에 값이 입력되지 않았습니다. 값을 입력해주세요.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

            TextBox1.Focus()

 

            '입력된 값이 숫자형인지 파악해서 숫자입력 요청

        ElseIf IsNumeric(TextBox1.Text) = False Then

            MsgBox("TextBox에 0~100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

 

            'TextBox1에 0 ~ 100 사이의 값을 입력 요청 조건문

        ElseIf Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0에서 100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

        End If

 

 

        If TextBox1.Text <> "" Then

            Select Case Val(TextBox1.Text)

 

                Case 91 To 100

                    MsgBox("아주 영어를 잘하는군요..수")

                Case 81 To 90

                    MsgBox("영어를 잘하는군요..우")

                Case 71 To 80

                    MsgBox("영어가 조금 부족합니다..미")

                Case 61 To 70

                    MsgBox("영어가 많이 부족하군요..양")

                Case Else

                    MsgBox("영어를 너무 못하는군요. 가")

 

            End Select

        End If

 

End Sub