1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
del bucle se repite mientras se cumple una determinada condición. Su sintaxis es la siguiente: While CONDICIÓN Wend SENTENCIAS_REPETITIVAS La estructura While . . . Wend evalúa la CONDICIÓN en cada iteración y si el resultado es verdadero continúa su ejecución. El bucle termina cuando CONDICIÓN es falsa. A manera de ejemplo, considere el siguiente código, el cual imprime en pantalla la suma de los N primeros números naturales, es decir S = 1 + 2 + 3 + 4 + . . . + N Dim N As Integer, S As Integer S = 0 N = InputBox(“Ingrese N?”) While N 0 Wend S = S + N N = N - 1 MsgBox “La suma es S= ” & Str(S) Estructura Do . . . Loop Esta estructura ejecuta un bucle mientras una condición dada sea cierta, o hasta que una condición dada sea cierta. La Pág. 38
condición puede ser verificada antes o después de ejecutarse el cuerpo del bucle. Su sintaxis es: Formato 1: Do [While/Until] CONDICIÓN SENTENCIAS_REPETITIVAS [Exit Do] Loop Formato 2: Do SENTENCIAS_REPETITIVAS [Exit Do] Loop [While/Until] CONDICIÓN Esta estructura (como se puede observar en ambos formatos) permite realizar varias estructuras diferentes dependiendo si la condición de terminación está al principio o al final del cuerpo del bucle. Como ejemplo, consideremos el siguiente programa, el cual calcula el factorial de un entero N ingresado por teclado: Dim N As Integer, FACT As Integer, C As Integer FACT = 1 C = 1 N = InputBox(“Ingrese N?”) Do FACT = FACT * C C = C + 1 Loop While C
- Page 1 and 2: CAPÍTULO 1 FUNDAMENTOS Microsoft V
- Page 3 and 4: En la ventana anterior indicar el t
- Page 5 and 6: Icono Descripción Puntero Cuadro d
- Page 7 and 8: Ventana de propiedades Como veremos
- Page 9 and 10: MI PRIMERA APLICACIÓN Hay tres pas
- Page 11 and 12: Puede cambiar el valor de cualquier
- Page 13 and 14: CAPÍTULO 2 LOS OBJETOS Visual Basi
- Page 15 and 16: Mensajes Un mensaje es una llamada
- Page 17 and 18: aquellas características que son e
- Page 19 and 20: Para aclarar este concepto desarrol
- Page 21 and 22: Gra Gráfico Ctr Control (se utiliz
- Page 23 and 24: IDENTIFICADORES bytes + 1 byte por
- Page 25 and 26: La sentencia anterior le puede indu
- Page 27 and 28: Operadores de cadenas de caracteres
- Page 29 and 30: Como puede observar, el resto de lo
- Page 31 and 32: Para que pueda ejecutar el código
- Page 33 and 34: SENTENCIAS_1 ElseIf CONDICIÓN_2 Th
- Page 35 and 36: En este caso se comprueba el valor
- Page 37: ser conocido de antemano. Su sintax
- Page 41 and 42: Un uso abusivo de la sentencia GoTo
- Page 43 and 44: numeración comience en 1, debe ing
- Page 45 and 46: REGISTROS Un registro es un nuevo t
- Page 47 and 48: Una función es un procedimiento qu
- Page 49 and 50: MsgBox (Str(RESP)) Paso de argument
- Page 51 and 52: palabra reservada ByVal a la declar
- Page 53 and 54: Next End Sub MsgBox “La suma es S
- Page 55 and 56: CONTROLES BÁSICOS Los controles b
- Page 57 and 58: Los eventos asociados a un cuadro d
- Page 59 and 60: 6 cajas de texto 3 botones de coman
- Page 61 and 62: Command2 Command3 Nombre CmdAceptar
- Page 63 and 64: En el código anterior hemos utiliz
- Page 65 and 66: A manera de ejemplo vamos a desarro
- Page 67 and 68: Option3 Check1 Check2 Check3 Check4
- Page 69 and 70: Private Sub ChkSubrayado_Click() If
- Page 71 and 72: Los métodos que se pueden utilizar
- Page 73 and 74: indica: Form1 Label1 Label2 Label3
- Page 75 and 76: End Sub LstSeleccionar.AddItem TxtC
- Page 77 and 78: Para el desarrollo de la presente a
- Page 79 and 80: End Sub Matriz(0, 0) = “Castillo
- Page 81 and 82: Cronómetro Un cronómetro sirve pa
- Page 83 and 84: Seguidamente proceda a ingresar el
- Page 85 and 86: La posición más a la izquierda se
- Page 87 and 88: indica: Form1 Label1 Label2 Label3
condición puede ser verificada antes o después de ejecutarse el<br />
cuerpo del bucle. Su sintaxis es:<br />
Formato 1: Do [While/Until] CONDICIÓN<br />
SENTENCIAS_REPETITIVAS<br />
[Exit Do]<br />
Loop<br />
Formato 2: Do<br />
SENTENCIAS_REPETITIVAS<br />
[Exit Do]<br />
Loop [While/Until] CONDICIÓN<br />
Esta estructura (como se puede observar en ambos formatos)<br />
permite realizar varias estructuras diferentes dependiendo si<br />
la condición de terminación está al principio o al final del<br />
cuerpo del bucle.<br />
Como ejemplo, consideremos el siguiente programa, el cual<br />
calcula el factorial de un entero N ingresado por teclado:<br />
Dim N As Integer, FACT As Integer, C As Integer<br />
FACT = 1<br />
C = 1<br />
N = InputBox(“Ingrese N?”)<br />
Do<br />
FACT = FACT * C<br />
C = C + 1<br />
Loop While C
Change language