En este tema aremos un simple contador que cuente desde uno hasta cinco con el Bucle For, para comprender como funciona, empecemos.
En el diseño del formulario creamos un button y en la propiedad text escribir Contar.
Después le damos double click al Button y dentro de la función Button1_click:
Declaramos una variable tipo integer y la llamaremos letra.
Dim letra As Integer
Escribimos un For para la variable -letra- que leera desde uno hasta cinco y lo mostrara en un Msgbox.
Escribimos For letra = 1 To 5 y le damos a enter y se creara el For.
Dentro del For e añadido un If para que vean que interesante es combinar un For con un If. El If lo que hara es que si –letra- no es igual a tres muestre el msgbox.
Dentro del For escribimos Msgbox(Letra).
Esto lo que ba a hacer es sumar uno a letra. Para enterlo mejor decimos;
1 = 1 + 1
2 = 2 + 1
3 = 3 + 1
4 = 4 + 1
la primera linea vale uno y al sumarle uno la variable va a valer dos, entonces en la segunda linea la variable vale dos y le suma uno, asi sucesivamente.
For letra = 1 To 5
If Not letra = 3 Then
MsgBox(letra)
End If
Next
No hay comentarios:
Publicar un comentario