ejemplo de vb

Atenuar palabras, caracteres, MyString

Para palabras = 10 a 1 Paso -1 ' Crea un bucle 10 veces.

For Chars = 0 To 9 ' Crea un bucle 10 veces.

MyString = MyString & Chars ' Agrega números a una cadena.

Siguientes caracteres ' Contador de incremento

MyString = MyString amp;

Palabras siguientes

2.

Ejemplo de declaración Do....Loop

Este ejemplo demuestra cómo utilizar la declaración Do .Loop . Declaración de bucle. La instrucción interna Do...Loop se repite por décima vez, establece el indicador en False y usa la instrucción Exit Do para forzar la salida del bucle interno. El bucle exterior sale inmediatamente después de comprobar que la bandera es False.

Dim Check, Counter

Check = True: Counter = 0 ' Establece el valor inicial de la variable.

Hacer 'bucle exterior.

Do While Counter lt;20' Bucle interior.

Contador = Contador 1 ' Cuenta más uno.

Si Contador = 10 Entonces ' Si la condición es verdadera.

Check = False ' Establece el valor del indicador en False.

Salir Do 'Salir del bucle interno.

Finalizar si

Bucle

Bucle hasta Check = False ' Sale del bucle exterior.

3.

Ejemplo de declaración While....Wend

Este ejemplo utiliza la declaración While....Wend para incrementar el valor de una variable de conteo. . Si la condición se evalúa como Verdadera, las declaraciones del bucle continuarán ejecutándose.

Dim Counter

Contador = 0 ' Establece el valor inicial de la variable.

Mientras Counter lt; 20' Prueba el valor del contador.

Contador = Contador 1 ' Incrementa el valor del contador en uno.

Wend ' Termina el ciclo cuando Counter gt;

Debug.Print Counter ' Muestra el número 20 en la ventana inmediata.

Ejemplo de declaración de caso de selección

Este ejemplo utiliza la declaración de caso de selección para determinar el valor de una variable. La segunda cláusula Case del ejemplo contiene el valor de la variable, por lo que solo se completan las declaraciones de ese bloque.

Número Dim

Número = 8 ' Establece el valor inicial de la variable.

Seleccionar Número de Caso ' Determinar el valor de Número.

Caso 1 a 5 ' El número tiene un valor entre 1 y 5, inclusive.

Debug.Print "Entre 1 y 5"

' La siguiente cláusula Case es la única en este ejemplo que se evalúa como Verdadera.

Caso 6, 7, 8' El valor del número está entre 6 y 8.

Debug.Print "Entre 6 y 8"

Caso 9 a 10 ' El valor del número es 9 o 10.

Debug.Print "Mayor que 8"

Case Else ' Otros valores.

Depurar.Imprimir "No entre 1 y 10"

Finalizar selección