Estructura de control  FOR ... NEXT

La estructura For...NEXT da lugar a un lazo o bucle, y permite ejecutar un conjunto de sentencias cierto
número de veces. Este ciclo es uno de los más usados para repetir una secuencia de instrucciones, sobre todo cuando se conoce la cantidad exacta de veces que se quiere que se ejecute una instrucción simple o compuesta.

La estructura del bucle utilizando contador es la siguiente:

For contador = Inicio To Fin [Step Incremento]
[Instrucciones]
Next Contador

Vamos a explicar las diferentes partes de esta estructura:

Contador: Aquí es donde nosotros escribiremos el nombre de la variable que queremos utilizar como contador, la cual casi siempre es una letra por ejemplo la letra i.

Inicio: Valor inicial de la variable. Por lo general es el valor 1.

Fin: Valor final de la variable. Que indica cuántas veces se va a repetir el ciclo, es decir cuando la variable llegue a este valor, el bucle no se volverá a ejecutar. Por ejemplo 10, esto esta indicando que el ciclo o bucle se repetirá 10 veces.

Step: Esta instrucción es opcional. Si no la ponemos el contador irá incrementando de uno en uno. Si especificamos un número detrás de Step hacemos que nuestro contador aumente un número determinado de pasos.

Incremento: Número que marcará los pasos que debe aumentar el contador. Este número puede ser tanto positivo como negativo. Eso sí, siempre hemos de tener cuidado con los valores iniciales y fimales para que no se produzca ningún tipo de error. No podemos hacer, por ejemplo, que el valor incial sea 10 y el final 1 siempre y cuando no pongamos como step un valor negativo.

Instrucciones: Aquí escribiremos lo o las instrucciones que queremos que se repitan.

Next contador: Línea que indica que se termina el bucle y hace que aumente el contador.

Casos Particulares

1.- El ciclo comienza en uno y se incrementa de uno en uno, este es el caso más general.

2.- Pero el valor inicial puede se diferente de uno, ejemplo;
DIM X AS INTEGER
FOR X=5 TO 28
LABEL4.CAPTION=X
NEXT X

3.- Incluso el valor inicial puede ser negativo, ejemplo;
DIM X AS INTEGER
FOR X= -5 TO 18
LABEL4.CAPTION=X
NEXT X

4.- Los incrementos también pueden ser diferentes al de uno en uno, ej.;
DIM X AS INTEGER
FOR X=1 TO 50 STEP 4
LABEL4.CAPTION=X
NEXT X

5.- Incluso pueden ser decrementos, solo que en este caso, recordar; el valor inicial de la variable debe ser mayor que el valor final.
DIM X AS INTEGER
FOR X=100 TO 20 STEP - 5
LABEL4.CAPTION = X
NEXT X

6.- Desplegar los números enteros, comprendidos entre el 1 y el 20.

Se ocupa ahora un componente que pueda almacenar y desplegar un conjunto de los 10 resultados, el único componente visto hasta ahora con esta capacidad es el componente ComboBox, sin embargo existe otro componente llamado ListBox muy similar a ComboBox, excepto que no tiene encabezado y todos sus elementos los mantiene a la vista del usuario, no ocultos como el ComboBox.
Tanto ComboBox como ListBox permiten cargar todos sus elementos o valores, dentro de un programa, usando un método llamado AddItem(valor), como se ve en el siguiente programa ejemplo;
Para este problema se ocupa poner en Form1, un componente Command1 OK que en su evento Click contiene el for y la carga del componente ListBox; Pantalla de diseño

Código

la pantalla de salida es:

Por ejemplo, en este bucle nos va a presentar las 26 letras mayúsculas del alfabeto inglés

            For  N=65 To 90
            Label1.caption = Chr ( N )
            Next N

Este "programa" nos presentará en una caja  (Label) los caracteres cuyo número ASCII vaya desde el 65  (A) al 90  (Z)   Comenzará presentando el correspondiente al número 65, e irá presentando sucesivamente el 66, el 67, etc., hasta llegar al 90, donde se detendrá.