Condicional multiple "SELECT CASE"

La estructura condicional multiple SELECT CASE (si multiple), nos permite que el flujo del pograma se bifurque en varias ramas y no solo en dos como en las estructuras If/Then. Asi, si se tiene un valor 1, se ejecuta la accion1, si se tiene un valor 2, se ejecuta la accion 2, si toma un valor N, se ejecuta una accion N. y despues se continua con el resto del programa.

Seudocodigo

01 SI [CONDICION] TOMA
02  Valor 1: Hacer accion 1
03  Valor 2: Hacer accion 2
04  Valor 3: Hacer accion 2
05  ...
06  Valor N: Hacer accion N
07 FIN 

La estructura selectiva es muy flexible, lo que permite aplicarla de diferentes formas

1. Esta aplicacion pide un numero por consola y si este se encuentra entre 1,2,3 ó 4, escribe en pantalla su valor en formato String, si el numero no se encuentra dentro de ese rango, escribe "fuera de rango"

01 Module Module1
02 
03     Sub Main()
04         Dim numero As Integer
05         numero = Val(Console.ReadLine)
06         Select Case numero
07             Case 1
08                 Console.WriteLine("UNO")
09             Case 2
10                 Console.WriteLine("DOS")
11             Case 3
12                 Console.WriteLine("TRES")
13             Case 4
14                 Console.WriteLine("CUATRO")
15             Case Else
16                 Console.WriteLine("FUERA DE RANGO")
17         End Select
18         Console.ReadLine()
19     End Sub
20 
21 End Module

2. Este programa pide un numero por consola, despues evalua el numero introducido, si el numero es "0", escribe "el numero es cero", si el numero esta entre el rango de 1 a 10, escribe "el numero se encuentra entre 1 y 10", si el numero es mayor a 10 pero menor a 20, escribe "el numero es mayor a 10 pero menor a 20", si el numero tiene uno de los valores 20, 30, 40, escribe "el numero es 20, 30 ó 40", si el numero no entra en ninguno de esos rangos, el programa escribe "no se que numero es..."

01 Module Module1
02 
03     Sub Main()
04         Dim numero As Integer
05         numero = Val(Console.ReadLine)
06         Select Case numero
07             Case 0
08                 Console.WriteLine("el numero es Cero")
09             Case 1 To 10
10                 Console.WriteLine("el numero se encuentra entre 1 y 10")
11             Case Is > 10, Is < 20
12                 Console.WriteLine("el numero es mayor a 10 pero menor a 20")
13             Case 20, 30, 40
14                 Console.WriteLine("el numero es 20, 30 ó 40")
15             Case Else
16                 Console.WriteLine("no se que numero es...")
17         End Select
18         Console.ReadLine()
19     End Sub
20 
21 End Module

En este ejemplo hacemos uso de SELECT CASE y para evaluar correctamente el numero ingresado hacemos uso de Case 1 to 10, esto quiere decir que ejecutara la accion si el numero esta en el rango de 1 a 10 , es equivalente a escribir 1,2,3,4,5,6,7,8,9,10.
Tambien se hace uso de "Case Is > 10, Is <20" , esto quiere decir que ejecutara la accion SI el numero es mayor a 10 Y menor a 20.

Posted in: Estructuras de Control,Visual Basic