Decisiones y Ciclos Anidados 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 para un número indeterminado de alumnos. Para indicar el final de la captura se dará una calificación negativa.
Dato: Cal es la variable de tipo real que representa la calificación del alumno).
El pseudocódigo correspondiente.
EXAMEN_SELECTIVA_CONDICION_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
- Hacer Mientras Cal >=0
- Si Cal > 8 entonces
Escribir «Aprobado»
- Fin Si
- Fin Ciclo
‘ El código corresponde a un botón llamado btnClasifica.
Dim Cal As Double
Cal = cDbl(txtDato.Text) Do While Cal >=0
Cal = cDbl(InputBox(«Dame Calificación»))
Loop