Make your own free website on Tripod.com
Ir a Objeto Sahpe
La estructura For - Next permite controlar la cantidad de veces que las instrucciones se ejecutan dentro del bucle. Esta estructura está formada por un valor de inicio, un valor final y un valor de incremento. Se indica una variable de ciclo que tomará desde el valor incial hasta el valor final con un incremento predeterminado de 1. Para variar el valor de incremento se utiliza Step seguido del valor de incremento.
Si el valor incial del bucle es mayor que el valor final, el ciclo no se ejecutará, salvo que esté especificado en Step un valor negativo.
Un ciclo finito
repite un grupo de sentencias un número limitado de veces. Para ello se indica una variable del ciclo que tomará desde el valor incial hasta el valor final con un incremento predeterminado de 1.
0
2
4
6
8
10
Ejemplo:
For I = 1 to 3
Print I
Next
Ejemplo:
For I = 0 To 10 Step 2
Print I
Next
1
2
3
Para variar el incremento se utiliza Step, indicando en cuanto será el incremento.
5
4
3
2
1
Para que cuente en forma inversa:
For I = 5 to 1
Print I
Next
Veamos algunos Ejercicios:
Private Sub btnmostrar_Click()
For = 1 To 4
Print "Hola"
Next
End Sub

En este ejercicio vamos a poner en práctica lo aprendido respecto al bucle FOR.
Un cuadro de texto llamado "inicio" ( I) nos permite colocar el valor inicial, otro cuadro de texto llamado "fin" ( F) nos deja indicar el valor final. Habrá todavía un cuadro de texto más en el que podremos escribir el valor del incremento ( S). Finalmente colocamos un botón llamado "borrar" (btnborrar) y otro más para activar el evento llamado "mostrar" (btnmostrar)

Private Sub btnmostrar_Click()
For x = Val(I.Text) To Val(F.Text) Step Val(S.Text)
Print x
Next
End Sub

Private Sub btnborrar_Click()
Cls
End Sub

Ahora un ejemplo muy particular: ¡nos movemos! con el objeto Shape

Ir a objeto Shape