CICLOS

Los ciclos For/Next le permiten evaluar una secuencia de enunciados varias veces. Esto es diferente a los enunciados If y Select, donde el programa pasa por cada enunciado al menos una vez durante la evaluación de la fórmula.

Los ciclos For/Next funcionan mejor cuando conoce de antemano la cantidad de veces que es necesario evaluar un enunciado.

Sintaxis del ciclo For

Ejemplo

Suponga que desea invertir la cadena {Cliente.Nombre del cliente}. Por ejemplo, la compañía "City Cyclists" pasa a ser "stsilcyC ytiC".

Rem Reverse a string version 1
formula = " "
Dim strLen
strLen = Len ({Customer.Customer Name})
Dim i
For i = 1 To strLen
Dim charPos
charPos = strLen - i + 1
formula = formula & _
Mid({Customer.Customer Name}, charPos, 1)
Next i

Examine cómo funciona esta fórmula asumiendo que el valor actual del campo {Customer.Customer Name} es "Clean Air". La variable strLen se asigna como longitud de “Clean Air”, es decir, 9. En este momento también se escribe para que sea una variable numérica. La variable i se conoce como variable de contador ya que su valor cambia con cada iteración del ciclo For. Es decir, se usa para contar las iteraciones del ciclo. El ciclo For se repetirá 9 veces; la primera vez, i es 1, luego, i es 2, después, i es 3 y así sucesivamente hasta que, finalmente, i es 9. Durante la primera repetición, el noveno carácter de {Customer.Customer Name} se anexa a la fórmula de variable especial vacía. Como resultado la fórmula es igual a "r" después de la primera iteración. Durante la segunda iteración, el octavo carácter de {Customer.Customer Name}se anexa a la fórmula y de este modo la fórmula es igual a "ri". Esto continúa hasta después de la novena iteración, la fórmula es igual a "riA naelC", que es la cadena invertida.