Estructuras de decisión doble en Visual Basic .NET

La estructura selectiva si… entonces… sino permite que el flujo del diagrama se bifurque por dos ramas diferentes en el punto de la toma de decisión(es). Si al evaluar la condición (o condiciones) el resultado es verdadero, entonces se sigue por un camino específico y se ejecuta(n) cierta(s) operación(es).

Por otra parte, si el resultado es falso entonces se sigue por otro camino y se ejecuta(n) otra(s) operación(es). En ambos casos, luego de ejecutarse la(s) operación(es) indicada(s), se continúa con la secuencia normal del diagrama. A continuación presentamos el diagrama de flujo que ilustra esta estructura selectiva.

A continuación mostramos el pseudocódigo para la estructura si… entonces… sino.

Si condición entonces Hacer operación 1
Sino
Hacer operación 2
Fin Si
.
.
. 
Las instrucciones en Visual Basic.NET para la estructura si… entonces… sino se muestra a continuación.
.
.
.
If [condición] Then
‘ Instrucciones a ejecutar si se cumple la condición
Else
‘Instrucciones a ejecutar cuando no se cumple la condición.
End If
.
.
.

Ejemplo. Construya un diagrama de flujo, el pseudocódigo y el código tal que dado como dato la calificación de un alumno en un examen, escriba «aprobado» en caso de que esa calificación sea mayor o igual que 8 y «reprobado» en caso contrario.

Dato: Cal es la variable de tipo real que representa la calificación del alumno).

El pseudocódigo correspondiente.

EXAMEN_SELECTIVA_DOBLE

{El programa dado como dato la calificación de un alumno en un examen, escribe «aprobado» si la calificación es igual o superior a 8 y «reprobado» en caso contrario}

{Cal es una variable de tipo real}

1. Leer Cal
2. Si Cal > =8 entonces

Escribir «Aprobado»
Sino

Escribir «Reprobado»
3. Fin Si

El código corresponde a un botón llamado btnClasifica y se toma el dato de un cuadro de texto llamado txtDato.

Dim Cal As Double

Cal = cDbl(txtDato.Text)
If Cal >= 8 Then
MsgBox «Aprobado»
Else
MsgBox «Reprobado»
End If

Posiblemente, habrás observado que insistimos en da rle cierto acomodo al código. Para Visual Basic es lo mismo si escribimos el código anterior de la siguiente manera:

Dim Cal As Double
Cal = cDbl(txtDato.Text)
If Cal >= 8 Then
MsgBox «Aprobado»
Else
MsgBox «Reprobado»
End If

Como dijimos hace algunos capítulos, el acomodo es para el programador porque vuelve más legible el código.