Esta sentencia permite ejecutar una o más sentencias según el valor que tenga determinada variable. A diferencia de la sentencia IF, esta puede presentar muchas opciones del mismo nivel.
Sintaxis
SELECT CASE VarIndice
Case Valor1:
[ Sentencias ]
Case Valor2, Valor3
[ Sentencias ]
……
Case Else
[ Sentencias ]
End Select
Ejemplo 10
El siguiente procedimiento, luego de leer un valor desde el teclado, emite un mensaje.
Sub SelCase()
Dim Indice
Indice = InputBox("Ingrese un número entre 1 y 10")
Numero = 8
Select Case Indice
Case 1 To 4
MsgBox ("Entre 1 y 4")
Case 5, 7, 9
MsgBox ("Entre 5 y 9, pero no 6 ni 8")
Case 6
MsgBox ("Es un número igual a 6")
Case Else
MsgBox ("Es un número 8 ó 10")
End Select
End Sub
Ejemplo 11
El siguiente procedimiento genera dos números aleatorios, los multiplica por una constante y los emite en orden creciente.
Sub PMaxMin()
Dim Num1, Num2, Num3 As Double
Num1 = Rnd() * 8273
Num2 = Rnd() * 8273
MsgBox ("Los datos son: " & Num1 & " y " & Num2)
Select Case Num1
Case Is < Num2
MsgBox (Num1 & " < " & Num2)
Case Else
MsgBox (Num2 & " < " & Num1)
End Select
End Sub
© Ilmer Cóndor Espinoza. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies