Decisiones Anidadas en Visual Basic .NET

Supongamos que se solicita un programa que dado como dato la calificación de un alumno en un examen, escriba «aprobado» cuando la calificación sea mayor que 8, pero si la calificación es mayor a 9.5 debe escribir «excelente».

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

El pseudocódigo correspondiente.

EXAMEN_SELECTIVA_ANIDADA

{El programa dado como dato la calificación de un alumno en un examen, escribe aprobado si la calificación es superior a 8 y excelente si es superior a 9.5}

{Cal es una variable de tipo real}

• Leer Cal
• Si Cal > 8 entonces
• Si Cal > 9.5 entonces

Escribir «Excelente»
Sino
Escribir «Aprobado»

• Fin Si
• 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

End If

El programa anterior debe escribir además «Reprobado» si no cumple la condición Cal > 8.

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

El pseudocódigo correspondiente.

EXAMEN_SELECTIVA_ANIDADA

{El programa dado como dato la calificación de un alumno en un examen, escribe reprobado si la calificación no es superior a 8, aprobado si la calificación es superior a 8 y excelente si es superior a 9.5}

{Cal es una variable de tipo real}

• Leer Cal
• Si Cal > 8 entonces
• Si Cal > 9.5 entonces

Escribir «Excelente»
Sino
Escribir «Aprobado»

• Fin Si
• Sino
• Escribir «Reprobado»
• 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

Else                                                              ‘Este Else corresponde al If exterior.
MsgBox «Reprobado»
End If