PDF de programación - Capítulo 4 Estructuras de control

enunciado

Capítulo 4
Estructuras de control

Estructuras de control
Capítulo 4

V B A A c ce ss 2 0 1 3Duración: 2 horas
Palabras clave
condición, elección, comprobación, alternativa, salto condicional, contador, iteración, bucle,
incrementar, decrementar, salida
Objetivos
Dominar las estructuras de decisión para comprobar condiciones y seguidamente realizar dife-
rentes acciones según el resultado obtenido. Dominar las estructuras de bucle que, asociadas
a las instrucciones condicionales, permiten escribir código Visual Basic para la toma de deci-
siones y la repetición de acciones. Encontrará todas estas estructuras en los capítulos que tra-
tan la programación por eventos y de objeto. En este capítulo, nos limitamos al uso de cuadros
de diálogo ya vistos con anterioridad.

Requisitos
Para comprobar los requisitos necesarios antes de iniciar esta práctica técnica, responda a las
siguientes preguntas (algunas preguntas admiten más de una respuesta):

1.

2.

If ... Then ... Else ... End If

Do ... Loop

Para realizar un salto condicional, se utiliza:
a.
b.
c.
¿Qué devuelve la variable blnCondición en el siguiente ejemplo?

Select Case ... Case ... End Select

Dim blnCondición as Boolean
Dim intA as Integer, Dim intB as Integer
intA=5
intB=9
blnCondición = IIf(intA=intB, True, False)

73

VBA Access 2013

Prácticas Técnicas

3.

4.

5.

True
False
Null

Case A, B, C

Case 1 to 10

Case Nombre, Is > 50

a.
b.
c.
De entre las instrucciones siguientes, pertenecientes cada una de ellas a una estructura
de control distinta, ¿cuáles son correctas?
a.
b.
c.
d.
La palabra clave ElseIf:
a.
b.
c.
¿Qué bucle de instrucciones itera mientras que la condición no devuelva el valor True?
a.
b.
c.
d.
e.

Puede aparecer a continuación de una cláusula Else.
Es opcional en una condición.
Puede utilizarse varias veces en un bloque If.

For Each . . . Next

Case If N1 > N2

For ... Next

Do Until ... Loop

While ... Wend

With ... End With

Observación

Para las siguientes tres preguntas, las opciones son idénticas a las de la pregunta cinco.

6.

7.

8.

¿Qué iterador se debería utilizar para ejecutar instrucciones un cierto número de veces
conocido de antemano?
¿Con cuál se debería repetir un grupo de instrucciones para cada elemento de una tabla
o de una colección?
¿Con cuál se debería ejecutar una serie de instrucciones aplicadas a un solo objeto de un
tipo predefinido por el usuario?

74

enunciado

Estructuras de control
Capítulo 4

Aplicación Estructuras de control.accdb

Solución

pág. 241

Enunciado 4.1 Controlar la entrada de datos
Duración estimada: 10 minutos
4.1.1 - Comprobar que la entrada es un número
Escriba el procedimiento ControlEntrada que muestre un cuadro de diálogo con un campo de
texto y compruebe que se trate de un número. En caso afirmativo, realice la operación de mul-
tiplicarlo por sí mismo. En caso contrario, muestre un mensaje.
Ejemplo:

75

VBA Access 2013

Prácticas Técnicas

sino:

Observación
Las funciones Is permiten comprobar el tipo de una variable o de una entrada.
4.1.2 - Multiplicar dos números introducidos por el usuario
Escriba un procedimiento que permita al usuario multiplicar dos números.
Pista

Compruebe los valores introducidos por el usuario.

Solución

pág. 242

Enunciado 4.2 Decir adiós
Duración estimada: 10 minutos
Complete el procedimiento Adiós. Éste muestra una sucesión de cuadros de diálogo con el
objetivo de mostrar el mensaje “Adiós, que vaya bien.” mostrado a continuación en función de
las elecciones del usuario.

Observación
La ayuda en línea permite conocer mejor los distintos valores que pueden adquirir los botones
de los cuadros de diálogo.

76

enunciado

Pista

Estructuras de control
Capítulo 4

Sub Adiós()
Dim strStyle
Dim intElección As Integer
strStyle = vbOKCancel + vbDefaultButton1
...= MsgBox("¿Desea visualizar el siguiente cuadro de diálogo?", strStyle)
If ...= vbOK Then
...= vbYesNoCancel + vbDefaultButton1 + vbQuestion
...= MsgBox("Ha visualizado un cuadro de diálogo de pregunta, ¿desea
seguir?", strStyle)
If intElección = ... Then
... = vbOKOnly + vbExclamation
...
ElseIf intElección = ... Then
strStyle = vbOKOnly + vbCritical
intElección = MsgBox("¡Oh no!", strStyle)
Else
strStyle = ...
intElección = MsgBox("Ha pulsado en cancelar", strStyle)
End If
Else
strStyle = vbOKOnly + vbCritical
intElección = ...
End If
End sub

Solución

pág. 244

77

VBA Access 2013

Prácticas Técnicas

Enunciado 4.3 Identificar si es consonante o vocal
Duración estimada: 10 minutos
Escriba el procedimiento ConsonanteVocal que solicita la introducción de una letra. Muestre
según el tipo detectado: "Vocal", "Consonante" y un mensaje apropiado en caso de error.
Ejemplo:

sino:

Pista

Compruebe la letra en mayúscula.

Solución

pág. 244

78