Estructura Do Loop aplicado al rango de notas

Estructura Do Loop

Esta estructura es una  de repetición de salida controlada, el cual es  utilizado cuando se desea repetir una serie de instrucciones de manera indefinida, hasta que se logre satisfacer una condición.

Este  permite seleccionar si es que se debe finalizar el bucle usado, tanto si la condición deja de ser verdadera, o si es usada por primera vez; además, tiene como principal ventaja la repetición de las instrucciones mientras se esté cumpliendo la condición o hasta que se logre cumplir.

Ejemplo:

Se creará un programa el cual nos permitirá validar la entrada de una nota que se encuentre en el rango de 0 a 20. Si es que la nota ingresada no se encuentra en ese rango, se mostrará una ventana indicando error y no se podrá salir del programa hasta ingresar un dato válido; en caso contrario, se mostrará un mensaje indicando: Entrada Correcta.

1. Se crea la macro, en este caso llamada NOTA

2. Se digitan los comandos haciendo uso de la estructura Do loop

Sub NOTA()
Dim NOTA As Integer
Do
NOTA = InputBox("ingrese una nota[0,20]:")
If NOTA < 0 Or NOTA > 20 Then
MsgBox "Error"
End If
Loop Until NOTA >= 0 And NOTA <= 20
MsgBox "Entrada Correcta"
End Sub

3. Al ejecutar el programa, aparecerá la siguiente ventana

Si se digita un número válido, entre 0 y 20, por ejemplo 15;

Aparecerá el siguiente mensaje:

En caso contrario, si se ingresa un número fuera del rango mencionado, por ejemplo 25

Aparecerá la siguiente ventana:

Y posteriormente volverá a aparecer la ventana para ingresar un número; esto hasta que se ingrese un número válido.

 

Elaborado por Victor Solórzano Carranza