visual basic

Capitulo V

INDICE

CAPITULO V

Procesos Repetitivos

01

For / Next

02

For Each

02

Solución del Ejercicio 19

02

Solución del Ejercicio 20

03

Solución del Ejercicio 21

03

Solución del Ejercicio 22

04

Función Reset

04

Función Exit

04

Solución del Ejercicio 23

05

Estructuras repetitivas

06

While / End While

06

Do / Loop06

Solución del Ejercicio 24

08

Solución del Ejercicio 25

08

Solución del Ejercicio 26

09

Solución del Ejercicio 27

10

Solución del Ejercicio 28

11

Solución del Ejercicio 29

12

Solución Del Problema Propuesto
Solución del Problema A

13
13

Ejercicios

14

Despedida

16

Lenguaje de Programación – Capitulo V
Programando con Visual Basic 2005PROCESOS REPETITIVOS
Los procesos repetitivos o llamados bucles, se utilizan para repetir el o los
códigos, un número determinado de veces, para esto usaremos el For, que nos
permitirá repetir un número determinado de veces el código.

For / Next
Con este tipo de bucle podemos repetir un código un número determinado
de veces.

Sintaxis:
For = To [Step ]
'contenido del bucle, loque se va a repetir
Next

Primera Forma: Una de las formas mas utilizadas.

For i = 1 To 10
'contará de 1 hasta 10
'la variable i tomará los valores 1, 2, 3, etc.
Next
Segunda Forma: Esta forma se utiliza para decirle como va a incrementar, ya sea
como el ejemplo de 2 en 2.

For i = 1 To 100 Step 2
'contará desde 1 hasta 100 (realmente 99) de 2 en 2
'la variable i tomará los valores 1,3, 5, etc.
Next

Tercera Forma: Cuando queremos que un bucle sea en decreciente solo bastará
darle un valor negativo, al número, como en el ejemplo, queremos que en vez que
avance del 1 al 10 queremos que este vaya del 10 al 1.

For i = 10 To 1 Step -1
'contará desde 10 hasta 1
'la variable i tomará los valores 10, 9, 8, etc.
Next

Joel Martin Chuco Marrufo
1

Lenguaje deProgramación – Capitulo V
Programando con Visual Basic 2005

For Each
Este bucle repetirá o iterará por cada uno de los elementos contenidos en
una colección.

Sintaxis:
For Each In
'Lo que se hará mientras se repita el bucle
Next

Ejemplo:

Dim s As String
For Each s In "Hola Mundo"
Console.WriteLine(s)
Next
Console.ReadLine()

Este bucle recorre cada uno de los caracteres de unacadena, en este caso
recorrerá cada carácter de la cadena s (Hola Mundo)., comenzando por la H y de
ahí la o y así hasta la ultima o de la palabra Mundo.

Solución del Ejercicio 19

Module Ejercicio19
'Elabore un algoritmo que contenga los número pares del 1 al 10
Sub Main()
Dim N, K As Integer
N=2
Console.WriteLine(N)
For K = 1 To 4
N=N+2
Console.WriteLine(N)
Next
Console.ReadLine()End Sub
End Module

Joel Martin Chuco Marrufo
2

Lenguaje de Programación – Capitulo V
Programando con Visual Basic 2005

Solución del Ejercicio 20

Module Ejercicio20
'Este algoritmo permite mostrar el sueldo promedio de un grupo de
'empleados.
Sub Main()
Dim SE, NE, K, SS As Integer
Dim SP As Single
Console.Write("Ingrese el Numero de Empleados: ")
NE =CInt(Console.ReadLine)
SS = 0
For K = 1 To NE
Console.Write("Ingrese el Sueldo {0}: ", K)
SE = CInt(Console.ReadLine)
SS = SS + SE
Next
SP = CSng(SS / NE)
Console.WriteLine("El Sueldo Promedio es: {0}", SP)
Console.ReadLine()
End Sub
End Module

Solución del Ejercicio 21

Module Ejercicio21
'Este algoritmo solicita la edad de 200 personas, y muestra
'cuantos son mayores y menores de edad hay.
SubMain()
Dim EP, MAY, MEN, K As Integer
MAY = 0
MEN = 0
For K = 1 To 200
Console.Write("Ingrese la Edad : ")
EP = CInt(Console.ReadLine)
If EP < 18 Then
MEN += 1
Else
MAY += 1
End If
Next
Console.WriteLine("Usted ha Ingresado {0} {1}", MEN, " Menores de Edad")
Console.WriteLine("Usted ha Ingresado {0} {1}", MAY, " Mayores de Edad")
Console.ReadLine()
End Sub
End Module

Joel Martin...