ACTIVIDAD PARA CUARTO SEMESTRE

Martes 3 de Mayo del 2011
Pag.264
TEMA:
EL BUCLE  Do...Loop
Utilice el bucle
El bucle

Do While
Instrucciones…
Loop


Hacer Mientras
Instrucciones…
Repite

Ejemplo:

El siguiente ejemplo convierte todo el contenido de una caja de texto a mayúscula: condición = verdadera condición Do…Loop tiene el siguiente formato: 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 con If...Then, la condición debe ser un valor o una expresión que dé como resultado False (cero) o True (distinto de cero).


'Variable para almacenar el total de los caracteres leídos.
Dim TotalCaracterLeido As Integer
TotalCaracterLeido = 0 'Iniciamos la variable en cero.
 'Repetimos mientras la longitud de la caja de texto es mayor que el total de caracteres leído.
Do While Len(txtContenido.Text) > TotalCaracterLeido
TotalCaracterLeido = TotalCaracterLeido + 1 'Incrementamos el total de carácter leído en 1. 'Colocamos el punto de inserción delante del carácter a leer.
txtContenido.SelStart = TotalCaracterLeido - 1
txtContenido.SelLength = 1 'Seleccionamos el carácter.
'Convertimos el carácter seleccionado a mayúscula.
txtContenido.SelText = UCase(txtContenido.SelText)
Loop 'Volvemos a repetir hasta que se lean todos los caracteres de la caja.