Bucles Do While...Loop y Do Until...Loop

3.4.2.- Bucles Do While…Loop y Do Until…Loop

El uso del bucle Do While...Loop es realmente útil en el caso de querer realizar una o varias tareas mientras se cumpla una determinada condición. De esta manera, este bucle se utiliza de la forma:

Do While <condición>

… Loop

Un ejemplo práctico que nos aleccione en el uso de este bucle sería el siguiente:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

Dim intValor As Byte = 5

Dim intResultado As Byte

Do While intValor > 0

intResultado += intValor

intValor -= 1

Loop

MessageBox.Show(intResultado)

End Sub

Nuestro ejemplo en ejecución es el que puede verse en la figura 3.17.

Figura 3.17: ejecución de un ejemplo de uso del bucle Do While.

Otra particularidad de este bucle es el uso del mismo mediante la siguiente forma:

Do

… Loop While <condición>

De hecho, nuestro ejemplo anterior, quedaría de la forma:

30

Jorge Serrano Pérez

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

Dim intValor As Byte = 5

Dim intResultado As Byte

Do

intResultado += intValor

intValor -= 1

Loop While intValor > 0

MessageBox.Show(intResultado)

End Sub

Pero también podemos utilizar otro bucle, el bucle Do Until...Loop que nos permite ejecutar una o más sentencias de código, hasta que se cumpla una determinada condición. En este caso, la estructura del bucle sería de la forma:

Do Until <condición>

… Loop

Un ejemplo práctico del uso de este tipo de bucles sería el que se detalla a continuación:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

Dim intValor As Byte = 5

Dim intResultado As Byte

Do Until intValor < 1

intResultado += intValor

intValor -= 1

Loop

MessageBox.Show(intResultado)

End Sub

De igual manera, podemos hacer uso de este bucle utilizándolo de la forma:

Do

… Loop Until <condición>

En este caso, el ejemplo práctico del uso de este bucle sería de la forma:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

Dim intValor As Byte = 5

Dim intResultado As Byte

Do

intResultado += intValor

intValor -= 1

Loop Until intValor < 1

MessageBox.Show(intResultado)

End Sub

3.5.- Estructuras

Las estructuras están formadas por uno ó más miembros y cada miembro puede ser de un tipo de datos determinado, pudiendo tener una estructura con varios miembros de diferentes tipos de datos.

Por otro lado, las estructuras se definen de la forma siguiente:

Structure <nombre>

Public <nombre> As <tipo>

End Structure

31

Jorge Serrano Pérez

...