ESTRUCTURAS DE CONTROL- VISUAL BASIC

ESTRUCTURAS DE CONTROL

PARA QUE SIRVEN EN GENERAL LAS ESTRUCTURAS DE CONTROL EN VISUAL BASIC

 Se utilizan para controlar el flujo del programa en una rutina o función. Estas estructuras permiten controlar, mediante una condición, la ejecución o no de una línea o conjunto de líneas de código.

CUAL ES LA SINTAXIS DE LAS SIGUIENTES ESTRUCTURAS DE CONTROL Y PARA QUE SIRVE CADA UNA DE ELLAS, DE UN EJEMPLO DE SU USO

IF THEN ELSE

Permite, mediante una condición, que se ejecute o no determinada tarea o línea de código.

SINTAXIS

If condición Then 

Sentencia o grupo de sentencias 

Else 

Sentencia o grupo de sentencias 

End If 

EJEMPLO

                                   

SELECT CASE

 Se suele utilizar para evitar el uso de muchas cláusulas If y de esta manera no tener que anidarlas. La cláusula Select evalúa una condición y las cláusulas case contienen valores. Si el valor que contiene la cláusula case es igual a la condición que se evaluó, ejecutarán las instrucciones en dicho case.

SINTAXIS

Select Case variable_control 

Case Valor_1 

Sentencia o grupo de sentencias

Case Valor_2 

Sentencia o grupo de sentencias 

Case Valor_3 

Sentencia o grupo de sentencias 

End Select 

EJEMPLO

WHILD WEND

Esta estructura repetirá, sin detenerse, determinado código mientras se cumpla una condición. While condición Sentencia o grupo de sentencias Wend 

SINTAXIS

wild 

condicion sentencia o grupo de sentencias

wend

EJEMPLO

                  

FOR NEXT

Es utilizada para generar una repetición de instrucciones o bucle entre un número inicial y un número final que se le debe indicar al mismo.

SINTAXIS

For variable_contador =

 valor_inicial To 

valor_final Sentencia o grupo de sentencias

Next variable_contador 

EJEMPLO

DO LOOP

Do loop se utiliza en Visual Basic o VBS para realizar una serie de pasos mientras se cumpla una condición.

SINTAXIS

s=0
l=1
Do while s<10 then 'Hacer mientras s sea < que 10
l=l*s
s=s+1
loop 'Cierra el bucle si se cumple la condicion


EJEMPLO

option explicit 
dim cont 
dim respuesta 
cont = 0 
DO 
cont = cont +1 
respuesta = msgbox (cont,69,"Variable del bucle, con valor 6 se sale") 
if (respuesta = 2) then 
msgbox "Cuenta Cancelada",16,"Cancelaste!" 
exit do 
end if 
LOOP UNTIL (cont = 6)