rock

kdjkfjakljidjfikqjeijfjñdikddddddddddddddddddddddddddddddddddddddddddddddddddddkkkkk-
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaooooooooooooooooooooooooooo-
oooooooooooooooooooooooooooooooooo
Las estructuras de bucle que acepta Visual Basic son:
Do...Loop
For...Next
ForEach...Next
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ónnumérica para determinar si continúa la ejecución, la condición debe ser un valor o una expresión que dé como resultado False (cero) o True (distinto de cero).

En el ejemplo de Do...Loopsiguiente, las instrucciones se ejecutan siempre y cuando condición sea True:
Do While condición
instrucciones
Loop

Cuando Visual Basic ejecuta este bucle Do, primero evalúa condición. Si condiciónes 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 prueba la condición de nuevo.
Ejemplo,este procedimiento cuenta las veces que se repite una cadena de destino dentro de otra cadena repitiendo el bucle tantas veces como se encuentre la cadena de destino:

Function ContarCadenas(cadenalarga, destino)
Dim posición, contador
posición = 1
Do While InStr(posición, cadenalarga, destino)
posición = InStr(posición, cadenalarga, destino) _
+ 1
contador = contador + 1
LoopContarCadenas = contador
End Function

Si la cadena de destino no está en la otra cadena, InStr devuelve 0 y no se ejecuta el bucle.

Otra variante de la instrucción Do...Loop ejecuta lasinstrucciones primero y prueba condición después de cada ejecución. Esta variación garantiza al menos una ejecución de instrucciones:

Do
instrucciones
Loop While condición

Hay otras dos...