For Loop – Se utiliza cuando hay una repetición un número determinado de veces.

Ejemplo – En un proyecto nuevo, añadir a la forma un botón de comando. En el código del comando debe escribir lo siguiente:

Private Sub Command1_Click()

Dim cuenta as Integer

For cuenta = 1 to 10

Form1.Print “El contador es: ” & cuenta

Next cuenta

End Sub

En este ejemplo, la variable cuenta está declarada como entero y es la variable que controla el For Loop. Cuando la computadora entra al For, la variable cuenta adquiere el valor de 1. Como 1 no es mayor que 10 (el segundo límite), la computadora realiza las instrucciones que están dentro del For Loop (en este caso, imprimir El contador es: y el valor de cuenta). Al llegar a la instrucción Next cuenta, se aumenta el valor de cuenta por 1 (ahora cuenta es igual a 2) y se regresa a la oración For. Se vuelve a comparar el valor de cuenta con el límite superior y si no es mayor, se ejecutan las instrucciones dentro del For Loop. Este ciclo se repite hasta que cuenta sea mayor que el límite superior, o sea, en este caso, mayor de 10.

Ejemplo 2:

Private Sub Command1_Click()

Dim cuenta as Integer

For cuenta = 1 to 10 Step 2

Form1.Print “El contador es: ” & cuenta

Next cuenta

End Sub

En el ejemplo 2, se añade la cláusula Step 2, que le indica a la computadora cuánto tiene que aumentar el contador al llegar a la oración Next. Cuando esta cláusula no se escribe, significa que el contador se aumentará de 1 en 1.

Ejemplo 3:

Private Sub Command1_Click()

Dim cuenta as Integer

For cuenta = 12 to 1 Step -2

Form1.Print “El contador es: ” & cuenta

Next cuenta

End Sub

En el ejemplo 3, el valor del primer límite es mayor que el valor del segundo límite y la cláusula Step está seguida por un número negativo. Estas instrucciones se utilizan para que el valor del contador vaya decreciendo según se ejecuta el For Loop. Cuenta comienza con valor 12, como 12 no es menor que 1, se realiza la instrucción dentro del loop y pasa al Next. En el Next, se resta 2 al valor de cuenta y se regresa a la oración del For Loop para realizar la comparación. El ciclo continúa hasta que el valor de cuenta sea menor que 1 (el valor del segundo límite).