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.

1