UPS PROGRA

UPS

NOMBRE: DANILO CAJAS

CURSO: G 261

TEMA: FOR NEXT- WHILE WEND

PROFESORA: ING. MARIA FERNANDA TAPIA BARRENO

FECHA: 26/08/2015
FOR-NEXT
La sentencia For … Next repite una determinada serie desentencias dado un valor inicial y un valor final. Este bucle se utiliza cuando se conoce por anticipado el número de repeticiones requerida por el programa. Si el número de repeticiones no seconoce por anticipado entonces debe utilizar las sentencia While … Wend o Do … Loop en lugar de For.
Su formato es:
A) For variable = valor inicial To valor final
[Sentencias…]
Next variable
B)For variable = valor inicial To valor final Step x
[Sentencias…]
Next variable
Al ejecutarse la sentencia For por primera vez, el valor inicial se asigna a variable que se denomina variable decontrol, y a continuación se ejecuta la sentencia del interior del bucle hasta que la variable de control toma el valor final.










Ejemplos:
1.- En este primer ejercicio utilizaremos un bucleFor…Next para sustituir todos los espacios que contenga una caja de texto por comas.

Dim I As Integer 'Declaro la variable control para el bucle.
Dim C As String 'Variable para almacenar cadacarácter leído de la caja.
For I = 1 To Len(txtContenido.Text) ' Inicio el bucle del 1 hasta la longitud de la caja.
C = Mid(txtContenido.Text, I, 1) 'Se lee carácter por carácter.
‘Seleccionamos uno poruno los caracteres de la caja.
txtContenido.SelStart = I - 1
txtContenido.SelLength = 1
‘Verificamos si el caracter seleccionado es un espacio.
If txtContenido.SelText = Chr(32) ThentxtContenido.SelText = "," ' Si es un espacio se sustituye por una coma.
End If
Next I 'Se repite el bucle

2.- Transformar en código el siguiente planteamiento: queremos generar un programa que pida un número del 1al 10 y nos muestre la “tabla de multiplicar” correspondiente.

Public Class Form1
    Dim T As Integer
    Dim i As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As...