Ejecuta uno o varios grupos de instrucciones, según el valor de una expresión.

Select Case expresiónprueba
    [Case listaexpresiones-n
        [instrucciones-n]] . . .
    [Case Else listaexpresiones-n
        [instruccioneselse-n]]
End Select

Argumentos

expresiónprueba

Cualquier expresión de cadena o numérica.

listaexpresiones-n

Necesario si aparece Case. Lista delimitada de una o más expresiones.

instrucciones-n

Una o más instrucciones ejecutadas si expresiónprueba coincide con cualquier parte de listaexpresiones-n.

instruccioneselse-n

Una o varias instrucciones ejecutadas si expresiónprueba no coincide con ninguna de las claúsulas Case.

Comentarios

Si expresiónprueba coincide con cualquier expresión Case de listaexpresiones, las instrucciones que siguen a dicha claúsula Case se ejecutan hasta la siguiente claúsula Case, o para la última claúsula, hasta End Select. Entonces se pasa el control a la instrucción End Select siguiente. Si expresiónprueba coincide con una expresión de listaexpresiones en más de una claúsula Case, sólo se ejecutan las instrucciones que siguen a la primera coincidencia.

La claúsula Case Else se utiliza para indicar las instruccioneselse que se van a ejecutar si no se encuentra ninguna coincidencia entre la expresiónprueba y una listaexpresiones en cualquier de las otras selecciones Case. Aunque no es necesario, es una buena idea tener una instrucción Case Else en su bloque Select Case para controlar los valores de expresiónprueba imprevistos. Si ninguna instrucción Case con listaexpresiones coincide con expresiónprueba y no existe ninguna instrucción Case Else, la ejecución continúa en la instrucción que sigue a End Select.

Las instrucciones Select Case se pueden anidar. Cada instrucción Select Case anidada debe tener una instrucción End Select coincidente.

El siguiente ejemplo ilustra el uso de la instrucción Select Case.

Dim Color, MiVar
Sub CambiarFondo (Color)
   MiVar = lcase (Color)
   Select Case MiVar
      Case "rojo     document.bgColor = "red"
      Case "verde"   document.bgColor = "green"
      Case "azul"    document.bgColor = "blue"
      Case Else      MsgBox "Elija otro color"
   End Select
End Sub

Requisitos

Versión 1

Consulte también

Instrucción If...Then...Else