Do...While y Do...Until permite repetir un bloque de código mientras cierta condición sea true, o hasta que cierta condición sea True.
Por ejemplo, imagine que dispone de un programa para agregar una serie de números, pero desea que la suma de dichos números nunca sea mayor que 100. Podría utilizar la instrucción Do...While para realizar la suma del siguiente modo:
Código:
En el código anterior, la línea Do While evalúa la variable de suma (sum) para comprobar si es inferior a 100: De ser así, se ejecuta la siguiente línea de código; en caso contrario, se desplaza a la siguiente línea de después de Loop. La palabra clave Loop indica al código que retrocedimilar pero con Do Until.
Estos ejemplos serían de Do While ahora podemos tomar un ejemplo similar pero con Do Until.
Instrucción ly: 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif; font-size: 13px; line-height: 16px;">
sum2 = sum2 + CInt(Textbox1.Text)
Do While sum < 100
sum = sum + 10
Loop
En el código anterior, la línea Do While evalúa la variable de suma (sum) para comprobar si es inferior a 100: De ser así, se ejecuta la siguiente línea de código; en caso contrario, se desplaza a la siguiente línea de después de Loop. La palabra clave Loop indica al código que retrocedimilar pero con Do Until.
Instrucción Do Until
La instrucción Do While repite un bucle mientras se cumpla una condición permanece True, aunque es posible que algunas veces desee que el código se repita a sí mismo hasta que la condición se convierta en True. La instrucción Do Until se puede utilizar de siguiente modo:
Código:
Dim x As Integer = 0
Do While x < 10
ListView.Items.Add(x); //Aquí los podemos agregar a una lista
Loop
Estos ejemplos serían de Do While ahora podemos tomar un ejemplo similar pero con Do Until.
Instrucción ly: 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif; font-size: 13px; line-height: 16px;">
sum2 = sum2 + CInt(Textbox1.Text)
counter2 = conuter2 + 1
Loop
MsgBox(f"¡El buc3; font-family: 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif; font-size: 13px; line-height: 16px;">
MsgBox(f"¡El buc3; font-family: 'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif; font-size: 13px; line-height: 16px;">
Código:
Dim sum2 As Integer = 0
Dim counter2 As Integer = 0
Dim counter2 As Integer = 0
Do While sum2 >= 100
Código:
El otro ejemplo quedaría más simple seria así:
Código:
Dim x As InOtro ejemplo muy sencillo sería:
Dim x As Integer = 0
Do While x > 10
ListView.Items.Add(x); //Aquí los podemos agregar a una lista
Loop
0 comentarios:
Publicar un comentario