Bucles de repetición: For…next

Los bucles de repetición nos permite efectuar varias veces una serie de instrucciones incluidas en un procedimiento.

El primero que vamos a analizar es el bucle For…next. Su sintáxis sería la siguiente:

For variable = inicio To fin salto

Next variable

Ejemplo vamos a realizar un ejercicio que nos presente por pantalla los cuadrados de los números 1 al 5.

Sub cuadrado()
‘Ejemplo de bucle for..next
‘definimos la variable contador
On Error Resume NextDim x, y As Byte

‘Iniciamos el bucle desde 1 hasta 5
For x = 1 To 5
y = x * x
MsgBox «El cuadrado de » & x & » es » & y

Next

End Sub

Si no se dice nada, la variable comienza en el número que le hallamos maracado como inicio e ira recorriendo el bucle de 1 en 1. Si deseamos que lo haga por ejemplo de dos en dos, tenemos que especificarlo con la expresión step. En el ejemplo citado supongamos que deseamos hacer el mismo cálculo pero con los números pares del 1 al 12:

Sub cuadrado_par()
Dim x, y As Byte
For x = 2 To 12 Step 2
y = x * x
MsgBox «El cuadrado de » & x & » es » & yNext
End Sub

Por cierto se habrá percatado de la presencia de una línea de código al comienzo del bucle On Error Resume Next. Con esta sentencia evitamos que el programa se «cuelge» ante la presencia de errores más o menos viene a decir: en presencia de error salta al siguiente paso.

En su momento trabajaremos el tema referente al tratamiento de errores.