Select Case 문

Select Case 문

식의 값에 따라 문의 여러 그룹 중 한 그룹을 실행합니다.

Select Case testexpression
  [Case expressionlist-n
     [statement-n]] . . .
  [Case Else expressionlist-n
     [elsestatements-n]]
End Select

인수

testexpression

수식 또는 문자식입니다.

expressionlist-n

Case가 있는 경우의 필수적인 요소. 하나 이상의 식에 대해 구분된 목록입니다.

statement-n

testexpression이 expressionlist-n의 일부와 일치할 경우에 실행되는 하나 이상의 문입니다.

elsestatements-n

testexpression이 어느 Case 절과도 일치하지 않을 경우에 실행되는 하나 이상의 문입니다.

참고

testexpression식이 Case expressionlist식과 일치하면 해당 Case 절 뒤에 나오는 문이 다음 Case 절에 이를 때까지 또는 마지막 절인 End Select 문에 이를 때까지 실행됩니다. 그런 다음 End Select 문 뒤에 나오는 문으로 제어를 전달합니다. testexpression식이 둘 이상의 Case절에 있는 expressionlist식과 일치하면 처음 일치한 Case절 뒤에 있는 문만 실행됩니다.

Case Else절은 testexpression식과 그 밖의 다른 Case 선택문에 있는 expressionlist식과 일치하지 않는 경우 elsestatements가 실행되도록 하는 데 사용합니다. Case Else 문은 반드시 필요하지는 않지만 Select Case 블록문에 삽입하여 예기치 않은 testexpression 값을 처리하는 데 사용하는 것이 좋습니다. testexpression식에 일치하는 Case expressionlist식이 없고 Case Else 문이 없는 경우 End Select 문 뒤에 오는 문으로 계속 실행됩니다.

Select Case 문은 중첩될 수 있으며 중첩되는 각 Select Case 문에는 그와 짝을 이루는 End Select 문이 있어야 합니다.

아래 예제는 Select Case 문의 사용법을 보여줍니다.

Dim Color, MyVar
Sub ChangeBackground (Color)
   MyVar = lcase (Color)
   Select Case MyVar
      Case "빨강"     document.bgColor = "빨강"
      Case "녹색"   document.bgColor = "녹색"
      Case "파랑"    document.bgColor = "파랑"
      Case Else      MsgBox "다른 색을 고르십시오."
   End Select
End Sub