Reporte de prácticas del capítulo
7
Practica [07.01]
>> Uso de los operadores
aritméticos.
1. Genere un nuevo proyecto EXE
estándar (Ctrl+N).
• Editar código:
Form, Evento: Activate.
Dim sngNumero1 As Single
Dim sngNumero2 As Single
Dim strTexto1 As String * 10
Dim strTexto2 As String * 10
SngNumero1!=5
sngNumero2!
=2
Print
"Número 1: " & sngNumero1!
Print
"Número 2: " & sngNumero2!
Print
"Suma (+):" & sngNumero1! + sngNumero2!
Print
"Resta (-):" & sngNumero1! - sngNumero2!
Print
"Multiplicación (*):" & sngNumero1! * sngNumero2!
Print
"División (/):" & sngNumero1! / sngNumero2!
Print
"División a enteros (\):" & sngNumero1! \ sngNumero2!
Print
"Residuo (mod):" & sngNumero1! Mod sngNumero2!
Print
"Exponenciación (^):" & sngNumero1! ^ sngNumero2!
strTexto1$
= "Visual "
strTexto2$
= "Basic "
Print
"Concatenación (+):" & strTexto1$ + strTexto2$
Print
"Concatenación (&):" & strTexto1$ & strTexto2$
Print
"Concatenación (&):" & Trim(strTexto1$) & _
Trim(strTexto2$)
Print
"Concatenación (&):" & Trim(strTexto1$) & " "
& _ Trim(strTexto2$)
Conclusiones:
Esta
practica nos enseño cuales son los operadores aritméticos, su funcionamiento y
la forma de usarlos correctamente.
Practica [07.02]
>> Cómo se resuelven las
condiciones que incluyen operadores de comparación.
A continuación aprenderá cómo se
resuelven los operadores de comparación. Escriba en la línea si el valor
obtenido es True o False.
1.
"Casa" > "casa" ___false_____
2. vbOKCancel = 1 ____true____
3. 3000 <> 3000.00 ___false_____
4. 2000 >= -2000 _____true_____
Conclusiones:
En la
practica aprendimos como funcionan los operadores de comparación.
Practica [07.03]
>> Cómo especificar la
preferencia al resolver condiciones, mediante el uso de paréntesis.
A continuación aprenderá a manipular la
preferencia de resolución de condiciones utilizando paréntesis. Considere que
la variable Sueldo tiene un valor de 1200.
1. Coloque los paréntesis para que el
resultado siempre sea Verdadero :
30 > 10
OR ("Robles" > "Zaragoza" AND Sueldo = 10000)
2. Coloque los paréntesis para que el
resultado siempre sea Falso :
(30 > 10
OR "Robles" > "Zaragoza") AND Sueldo = 10000
Conclusiones:
Aprendimos
a utilizar los operadores lógicos y a resolver condiciones requeridas
utilizando los paréntesis.
Practica [07.04]
>> Uso de For Next.
A continuación aprenderá a utilizar For Next. Este ejemplo también le ayudará a
practicar otras instrucciones vistas hasta el momento.
El ejemplo consiste en preguntar 6
números enteros, determinar cuál es la suma de todos y cuál fue el número más
grande proporcionado.
1. Genere un nuevo proyecto EXE
estándar (Ctrl+N).
• Editar
código: Form, Evento: Activate
Dim intVentas(1 To 6) As Integer
Dim strMensaje As String * 25
Dim intContador
As Integer
Dim intSuma
As Integer
Dim intMaximo
As Integer
'
Primer proceso iterativo: preguntar datos.
For intContador% = 1 To 6
strMensaje$
= "Captura del número " & _
Format(intContador%,
"##")
intVentas!%(intContador%)
= _
InputBox("Dame
un número entero", strMensaje$)
Next
intContador%
'
Segundo proceso iterativo: desplegar lo capturado-.
Print "Captura---"
For intContador% = 1 To 6
Print
intVentas!%(intContador)
Next
intContador%
'
Tercer, proceso iterativo: sumar cantidades
' y
determinar el número máximo.
intSuma%
=0
IntMaximo%
=0
For
intContador% = 1 To 6
intSuma%
= intSuma% + CInt(intVentas!%(intContador%))
If intVentas!%(intContador%) > intMaximo% Then
IntMaximo%
= intVentas!%(intContador%)
End If
Next intContador%
Print
"Resultados----"
Print
"La suma es " & Format(intSuma%, "###,###,###.##")
Print
"El número máximo fue " & _
Format(intMaximo%,
"###,###,###.##")
Conclusiones:
Esta
practica nos enseño a crear un ciclo por medio de la función For Next.
Practica [07.05]
>> Uso
de Exit For.
A
continuación aprenderá a utilizar Exit
For.
Esta sección
requiere que ya haya realizado la práctica anterior. Si al capturar los números
teclea cero, ya no se capturarán más números.
• Modificar código: Form, Evento: Activate.
For
intContador% = 1 To 6
strMensaje$
= "Captura del número " & _
Format(intContador%,
"##")
intVentas!%(intContador%)
= _
InputBox("Introduzca
un número entero", strMensaje$)
If intVentas!%(intContador%) = 0 then
MsgBox
"No más números"
Exit For
End If
Next
intContador%
Conclusiones :
Se aprendió
a utilizar la función Exit For , y aparte ver los errores que se cometen mas
comunmente.
Practica [07.06]
>> Uso de Do Loop. [07.06]
A continuación aprenderá a utilizar Do Loop. Comprobará que tienen un sentido
opuesto, pero son igualmente útiles.
1.
Genere un nuevo proyecto EXE estándar (Ctrl+N).
• Editar código: Form, Evento: Activate.
Dim intNumero
As Integer
intNumero%
= 0
Print
"Inicia Do While---"
Do
While intNumero% <> 10
intNumero%
= intNumero% + 1
Print
intNumero%
Loop
Print "Fin---"
intNumero% = 0
Print "Inicia Do Until---"
Do Until intNumero% = 10
intNumero%
= intNumero% + 1
Print
intNumero%
Loop
Print "Fin---"
Conclusiones:
Esta
practica nos permitió aprender la utilidad de la función Do Loop en sus dos
facetas.