LECCION 15
Visual Basic 2015 Lección 15: Hacer un lazo para trabajos repetitivos
En Visual Basic 2015, la estructura de un bucle For ... Next es como se muestra a continuación:
Para contador = NúmeroInicio a endNumber (incremento Paso)
Uno o más de Visual Basic 2015 declaraciones
Siguiente
Ejemplo 15.1 una
contador de atenuación como entero
Para contador = 1 al 10
ListBox1.Items.Add (contador)
Siguiente
* El programa entrará en número de 1 a 10 en el cuadro de lista.
ejemplo 15.1b
El siguiente programa calculará la suma de los números 0 + 10 + 20 + 30 + 40 + ...... + 100
contador de atenuación, suma como número entero
Para contador = 1 a 100 paso 10
suma + = Contador
ListBox1.Items.Add (suma)
Siguiente
ejemplo 15.1c
Este programa va a calcular una serie de sustracciones de la siguiente manera:
1000-100-95-90- ......... -5. En este caso incremento es negativo.
contador de atenuación, suma como número entero
sum = 1000
Para contador = 100 a 5 Paso -5
suma - = Contador
ListBox1.Items.Add (suma)
Siguiente
ejemplo 15.1d
Este programa utiliza la salida ... Para escapar del bucle cuando n es mayor que 6.
n tenue como entero
Para n = 1 a 10
Si n> 6 a continuación,
Para Salir
Terminara si
Más
ListBox1.Items.Add (n)
Siguiente
Terminara si
Siguiente
15.2 Do Loop
En Visual Basic 2015, hay varias estructuras de bucle Do, como se muestra a continuación:
a) Hacer mientras que la condición
Bloque de uno o más estados básicos Visuales 2015
Lazo
b) Hacer
Bloque de uno o más estados básicos Visuales 2015
Mientras que la condición de bucle
c) Hacer hasta la condición
Bloque de uno o más visual 2012 enunciados básicos
Lazo
d) Hacer
Bloque de uno o más estados básicos Visuales 2015
Bucle hasta que la condición
* Al salir del bucle
También podemos utilizar la salida Do para escapar del bucle.
Vamos 's examinar los siguientes ejemplos:
Ejemplo 15.2 (a)
En este ejemplo, el procedimiento va a seguir sumando el número inicial para el 1 hasta que excede 1000.
Hacer mientras el contador <= 1000
TextBox1.Text = Contador
contador + 1 =
Lazo
Podemos reescribir el procedimiento anterior y conseguir el mismo resultado. El código se muestra como sigue:
Hacer
TextBox1.Text = Contador
contador + 1 =
Bucle hasta que el contador> 1000
Ejemplo 15.2 (b)
En este ejemplo, el procedimiento seguirá añadiendo un número por 1 y mostrar los resultados en un cuadro de lista. El proceso se detiene cuando se ha repetido 100 veces.
Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click
dim sum, n As Integer
ListBox1.Items.Add ( "n" y vbTab y "Sum")
ListBox1.Items.Add ( "--------")
Hacer
n + 1 =
suma + = n
ListBox1.Items.Add (N & vbTab y suma)
Si n = 100 Entonces
Salir Do
Terminara si
Lazo
End Sub
* El bucle en el ejemplo anterior puede ser sustituido por el siguiente bucle:
Hacer hasta n = 10
n + 1 =
suma + = n
ListBox1.Items.Add (N & vbTab y suma)
Lazo
La salida es como se muestra en la Figura 15.1
vb2013_figure15.1
Figura 15.1
15.3 Mientras ... .End While
En Visual Basic 2015, la estructura de un tiempo ... .End ciclo Mientras es muy similar a la del Do Loop. que toma la forma siguiente:
Si bien las condiciones
2015 instrucciones de Visual Basic
Mientras End
ejemplo 15.3
Private Sub Button1_Click (remitente como objeto, e como EventArgs) Maneja Button1.Click
dim sum, n As Integer
ListBox1.Items.Add ( "n" y vbTab y "suma")
ListBox1.Items.Add ( "--------")
Mientras que n <> 10
n + 1 =
suma + = n
ListBox1.Items.Add (N & vbTab y suma)
Mientras End
End Sub
En Visual Basic 2015, looping es un proceso que implica un procedimiento que se ejecuta repetidamente hasta que se cumpla una determinada condición. Por ejemplo, podemos diseñar un programa que agrega una serie de números hasta que la suma supera un determinado valor, o un programa que pide al usuario que introduzca los datos varias veces hasta que él o ella entra en la palabra 'Finalizar'.
Hay tres tipos de bucles en Visual Basic 2015, a saber,
el bucle For ... ..Next,
el bucle Do y el tiempo ... ..End While
15.1 Para ... .A continuación Loop
Para contador = NúmeroInicio a endNumber (incremento Paso)
Uno o más de Visual Basic 2015 declaraciones
Siguiente
Con el fin de salir de un bucle For ... ..Next, es necesario colocar la instrucción Exit For dentro del bucle. Normalmente se usa junto con la instrucción If ... .A continuación. Para su aplicación, se puede hacer referencia al ejemplo 15.1 d.
Ejemplo 15.1 una
contador de atenuación como entero
Para contador = 1 al 10
ListBox1.Items.Add (contador)
Siguiente
* El programa entrará en número de 1 a 10 en el cuadro de lista.
ejemplo 15.1b
El siguiente programa calculará la suma de los números 0 + 10 + 20 + 30 + 40 + ...... + 100
contador de atenuación, suma como número entero
Para contador = 1 a 100 paso 10
suma + = Contador
ListBox1.Items.Add (suma)
Siguiente
ejemplo 15.1c
Este programa va a calcular una serie de sustracciones de la siguiente manera:
1000-100-95-90- ......... -5. En este caso incremento es negativo.
contador de atenuación, suma como número entero
sum = 1000
Para contador = 100 a 5 Paso -5
suma - = Contador
ListBox1.Items.Add (suma)
Siguiente
ejemplo 15.1d
Este programa utiliza la salida ... Para escapar del bucle cuando n es mayor que 6.
n tenue como entero
Para n = 1 a 10
Si n> 6 a continuación,
Para Salir
Terminara si
Más
ListBox1.Items.Add (n)
Siguiente
Terminara si
Siguiente
15.2 Do Loop
En Visual Basic 2015, hay varias estructuras de bucle Do, como se muestra a continuación:
a) Hacer mientras que la condición
Bloque de uno o más estados básicos Visuales 2015
Lazo
b) Hacer
Bloque de uno o más estados básicos Visuales 2015
Mientras que la condición de bucle
c) Hacer hasta la condición
Bloque de uno o más visual 2012 enunciados básicos
Lazo
d) Hacer
Bloque de uno o más estados básicos Visuales 2015
Bucle hasta que la condición
* Al salir del bucle
También podemos utilizar la salida Do para escapar del bucle.
Vamos 's examinar los siguientes ejemplos:
Ejemplo 15.2 (a)
En este ejemplo, el procedimiento va a seguir sumando el número inicial para el 1 hasta que excede 1000.
Hacer mientras el contador <= 1000
TextBox1.Text = Contador
contador + 1 =
Lazo
Podemos reescribir el procedimiento anterior y conseguir el mismo resultado. El código se muestra como sigue:
Hacer
TextBox1.Text = Contador
contador + 1 =
Bucle hasta que el contador> 1000
Ejemplo 15.2 (b)
En este ejemplo, el procedimiento seguirá añadiendo un número por 1 y mostrar los resultados en un cuadro de lista. El proceso se detiene cuando se ha repetido 100 veces.
Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click
dim sum, n As Integer
ListBox1.Items.Add ( "n" y vbTab y "Sum")
ListBox1.Items.Add ( "--------")
Hacer
n + 1 =
suma + = n
ListBox1.Items.Add (N & vbTab y suma)
Si n = 100 Entonces
Salir Do
Terminara si
Lazo
End Sub
* El bucle en el ejemplo anterior puede ser sustituido por el siguiente bucle:
Hacer hasta n = 10
n + 1 =
suma + = n
ListBox1.Items.Add (N & vbTab y suma)
Lazo
La salida es como se muestra en la Figura 15.1
vb2013_figure15.1
Figura 15.1
15.3 Mientras ... .End While
En Visual Basic 2015, la estructura de un tiempo ... .End ciclo Mientras es muy similar a la del Do Loop. que toma la forma siguiente:
Si bien las condiciones
2015 instrucciones de Visual Basic
Mientras End
ejemplo 15.3
Private Sub Button1_Click (remitente como objeto, e como EventArgs) Maneja Button1.Click
dim sum, n As Integer
ListBox1.Items.Add ( "n" y vbTab y "suma")
ListBox1.Items.Add ( "--------")
Mientras que n <> 10
n + 1 =
suma + = n
ListBox1.Items.Add (N & vbTab y suma)
Mientras End
End Sub
Comentarios
Publicar un comentario