Fibra optica

COMANDO GENERAL DEL EJÉRCITO
ESCUELA MILITAR DE INGENIERIA
“MCAL. ANTONIO JOSE DE SUCRE”
BOLIVIA

Las Estructuras de Control Repetitivas llamadas también Bucles, son aquellas que nos permiten
repetir un determinado bloque de código mientras se cumple una determinada condición. Los
Bucles están compuestos por una condición o expresión que se puede evaluar a falso o verdadero.
Mientrasla condición se evalué a verdadero (true), el cuerpo de bucle se ejecutará.
En Visual Basic existen cuatro tipos de bucles que son: For…Next, Do…Loop, While…Wend y For Each…Next.

1.- El Bucle For…Next
La sentencia For … Next repite una determinada serie de sentencias dado un valor inicial y un valor final. Este bucle se utiliza cuando se conoce por anticipado el número de repeticionesrequerida por el programa. Si el número de repeticiones no se conoce por anticipado entonces debe utilizar las sentencia While … Wend o Do … Loop en lugar de For.

Su formato es:
a) For variable = valor inicial To valor final [Sentencias…] Next variable
b) For variable = valor inicial To valor final Step x [Sentencias…] Next variable
251
Al ejecutarse la sentencia For por primera vez, el valorinicial se asigna a variable que se denomina variable de control, y a continuación se ejecuta la sentencia del interior del bucle hasta que la variable de control toma el valor final.

Ejemplo:

For I = 1 To 6
MsgBox (“El valor de I ahora es: “ & I)
Next I
En el segundo formato vemos la cláusula Step x. Esta indica que el bucle se decrementa o
incrementa en x.
Ejemplo:
For I = 6 To 1Step - 1
MsgBox (“El valor de I ahora es: “ & I)
Next I
En este caso I tomará valores comenzando desde 6 hasta llegar a 1 (6, 5, 4, 3, 2, 1). Si en caso de
haber especificado -2 en vez de -1, entonces, se decrementa de dos en dos (6, 4, 2, 0).
Al usar la cláusula Step debe tener en cuenta, que el valor inicial del bucle es menor que el valor
final del bucle cuando se decrementa.
Ejercicio1:

En este primer ejercicio mostramos los números del 1 al 200 en una caja de texto utilizando un
bucle For…Next.
_ Abra un nuevo proyecto.
_ Inserte una caja de texto y un botón de comando, tal y como se muestra en la siguiente imagen:
252
Variable control. Puede
tomar los valores 1, 2, 3,
4, 5 ó 6
Valor inicial. Indica el
valor donde comenzará
el intervalo del bucle.
Valor final.Indica el valor final
del bucle, es decir, donde
terminará el bucle.
Cuerpo del bucle.
Hace que el bucle se repita hasta
que se obtenga el valor final.
Establezca los siguientes valores en las propiedades indicadas en cada uno de los controles
mostrados en la siguiente tabla:

Control Propiedad Valor

Text Name
MultiLine
ScrollBars
Text
txtNumeros
True
2 – Vertical
Command1 NameCaption
cmdMostrar
&Mostrar
_ En el evento Click del botón de comando escriba:
_ Corra la aplicación y haga clic en el botón Mostrar.
Podrá observar como los números del 1 al 200 se muestran sobre la caja de texto, tal y como se
muestra en la siguiente imagen:
Puede hacer que los números se muestren uno de bajo del otro haciendo un salto de línea. Para
hacer un salto de línea solodebe combinar los valores ASCII 13 y 10. Ejemplo:
txtNumeros.Text = txtNumeros.Text & I & Chr(13) & Chr(10)

2.- El Bucle Do...Loop

Utilice el bucle Do para ejecutar un bloque de instrucciones un número indefinido de veces. Hay algunas variantes en la instrucción Do...Loop, pero cada una evalúa una condición numérica para determinar si continúa la ejecución. Como ocurre conIf...Then, la condición debe ser un valor o una expresión que dé como resultado False (cero) o True (distinto de cero).
El bucle Do…Loop tiene el siguiente formato:
Cuando Visual Basic ejecuta este bucle Do, primero evalúa condición. Si condición es False (cero), se salta todas las instrucciones. Si es True (distinto de cero), Visual Basic ejecuta las instrucciones, vuelve a la instrucción Do While y...