Instrucciones IF, FOR y WHILE

IF

La instrucción IF ejecuta ciertas instrucciones cuando se da una condición específica.

Su sintaxis es:

If (condición) then

(intrucciones)

Else

(otras instrucciones)

End if

Ejemplos

if hours > 12 then
hours = hours - 12
amOrPm$ = " PM"
else
if hours = 0 then hours = 12
end if

if n = 1 then
factorial = n
else
factorial = n * factorial(n-1)
end if

FOR

La instrucción FOR repite un grupo de instrucciones un número de veces especificado.

Su sintaxis es:

For contador = principio To fin [Step incremento]

(instrucciones)

[Exit For]

(instrucciones)

Next [contador]

Ejemplos

for index = 1 to len(entry$)

result$ = result$ + str$(asc(mid$(entry$,index,1))) + chr$(13)

next index

for x = 1 to 100
if x = 50 then exit for
print x
next x

WHILE

La instrucción WHILE ejecuta una serie de instrucciones mientras una condición dada sea True.

Su sintaxis es:

While (condición)
(intrucciones)
Wend

Ejemplo

Dim Contador

Contador = 0   ' Inicializa la variable.

While Contador < class="cfe">

           Contador = Contador + 1  ' Incrementa el contador.

           Alert contador

Wend   ' Termina el bucle While cuando Contador > 19.