Estructuras de decisión múltiple en Visual Basic .NET

La estructura selectiva si… múltiple permite que el flujo del diagrama se bifurque por varias ramas en el punto de la toma de decisión(es), esto en función del valor que tome el selector. Así si el selector toma el valor 1 se ejecutará la acción 1, si toma el valor 2 se ejecutará la acción 2, si toma el valor N se realizará la acción N, y si toma un valor distinto de los valores comprendidos entre 1 y N se realizará la acción N, y si toma un valor distinto de los valores comprendidos entre 1 y N, se continuará con el flujo normal del diagrama realizándose la acción N+1.

A continuación presentamos el diagrama de flujo que ilustra esta estructura selectiva.

A continuación presentamos el pseudocódigo.
.
.
.
Si selector igual

Valor 1,2: Hacer acción 1 Valor 3,4,5: Hacer acción 2 De otra forma: Hacer acción 3
Fin Si
.
.
.

La instrucción en Visual Basic.NET es la siguiente:
.
.
.

Select Case [expresión] Case [condición 1]

1. Instrucciones a ejecutar si la condición 1 es cierta Case [condición 2]
2. Instrucciones a ejecutar si la condición 2 es cierta Case Else
3. Instrucciones a ejecutar si ninguna condición es cierta

End Select

Ejemplo. Construya un diagrama de flujo, el pseudocódigo y el código tal que dado como datos tres números realice una operación matemática dependiendo del valor del tercero: 1)suma, 2)resta y 3) multiplicación. De no elegir ninguno de los valores permitidos enviar un resultado de cero.

Dato: Num1, Num2 son variables de tipo real y son los números proporcionados. Total es una variable de tipo real y contiene el resultado de la operación. Opciones una variable string y contiene la operación elegida.

OPERACIONES_SELECTIVA_MULTIPLE

{El programa dado como datos tres números realiza u na operación que depende del valor del tercero o manda un valor cero en caso de una elección incorrecta}

1. Leer Num1, Num2 y Opcion
2. Si Opcion igual
   1. Total=Num1+Num2
   2. Total=Num1-Num2
   3. Total=Num1*Num2 De otra forma: Total=0
3. Fin del condicional
4. Escribir Total

El código corresponde a un botón llamado btnCalculay se toma el dato de tres cuadros de texto: txtNum1, txtNum2 y txtOpcion.

Dim Num1, Num2 As Double, Opcion As String

Num1 = cDbl(txtNum1.Text)
Num2 = cDbl(txtNum2.Text)
Opcion = txtOpcion.Text

Select Case Opcion
Case =»1″
Total = Num1 + Num2
Case =»2″
Total = Num1 – Num2
Case =»3″
Total = Num1 * Num2
Case Else
Total = 0
End Select
MsgBox Total