SENTENCIAS DE CONTROL

Las sentencias de flujo támbien llamadas estructuras de control o ciclos permiten cambiar la secuencia de instrucciones de un programa y ejecutar varias veces y ejecutar un bloque de las mismas sin necesidad de escribirlas tantas veces como se requiera.
Todas las sentencias de control sirven para tomar la desición de ejecutar o no un bloque de instrucciones dependiendo del resultado de la evaluación de una condición o variable.

Una condición es una combinación o expresión de estas asociadas con operadores lógicos (And, Or, Not, Exor, Eqv o Imp ) o relacionales (> <, >= <=, =) que pueden ser evaluadas como verdaderas o falsas.

Sentencias de control en visual:

• If.......then.......else
• For....next
• Do......Loop
• While......wend

Sentencia If

Es utilizada paara ejecutar o no un bloque de instrucciones, deacuerdo con el valor lógico con que fue evaluada.

La condición de su sintaxis de una sola linea es:

• if condición then sentencia1{Else sentencia2}

Sintaxis de forma general:

• if condición then
• sentencia
• Else
• sentencia
• End if

If es quien toma la desición, si la condición es verdadera se ejecutan las sentencias que estan a continuación de then. si es falsa se ejecutan las que estan a continuación de Else.

Sintaxis para varios bloques de sentencias:

• if condición 1 then
• sentencia 1
• elseif condición 2 then
• sentencias 2
• Else
• sentencia-n
• End if
• End if

Si se cumple la condición1 se ejecutan las sentencias1 si no se cumple se revisan las secuencias siguientes hasta Else, ejecutandose la sentencia respectiva al primer Else if cuya condición se cumpla. Si son falsasse ejecutan las sentencias -n correspondientes a else.

Ejemplo

Crear una aplicación que solicite al usuario dos números, los compare y muestre en un cuadro de texto cual es el mayor.

1 Entrada:
num 1
num 2

2 Proceso:
num 1 > num2- num1
num 2 > num1- num2

3 Salida:
numero mayor

4 Diseño la interfax

5 Declaro variables
Dim num1 As Integer
Dim num2 As Integer

6 Asigno variables
Text1_Change ()
if text1.text <> " " then
num1 = Val (text1.text)
End if

Text2.text_Change ()
if text2.text <> " " then
num2 = Val (text2.text)
End if

7 Validar la entrada
Text2_Keypress ()
if Keyascii <> 57 then
Keyascii =0
End if
End sub

8 Voy a códigos
Private sub command1_click ()
if num1 > num2 then
text3.text = num1
Else
Text3.text = num2
End if

Private sub command2_click ()
text1.text = " "
text2.text = " "
text3.text = " "
text1.setfocus
End sub

Private sub command3_click ()
End
End sub