Ejercicios

Ejercicio de la Unidad 6

1. Analice las siguientes expresiones:

• Range ("A10").Select 

          Este expresa que en la celda "A10" se esta utilizando el Método Select el cual se selecciona esa celda para que este disponible

•  Range ("C4:G6").Formato

           Este expresa que desde la celda C4 hasta G6 se utiliza el método Formato, dejando la celda disponible

• Range ("B5").Name

          Este hace referencia al nombre del objeto Range de la celda A5

Ejercicios

Ejercicio de la Unidad 5

1. Ejemplifique varias diagonales sucesivas a través de la acumulación de texto, con datos introducidos por teclado.

     Private Sub CommandButton1_Click ()

     Dim i As Integer

     Dim j As Integer

     Hoja1.Cells (1, 1) = "BIENVENIDO"

             For i = 2 to 8

                   For j = 1 to i

                         If ( (i + j) Mod 2) = 0 Then

                              Hoja1.Cells (i, j) = Hoja1.Cells (1, 1)

                        End If

                   Next j

             Next i

     End Sub

     2.  Graficar 

Ejercicios

Ejercicios de las Unidades 3 y 4

Realice un vector que contenga los siguientes elementos: nombres, apellidos, dirección, sección y semestre de 5 alumnos de su sección.

Private Sub Vector1_Click()

     Datos Personales "Emily" "Belisario" "Las Garcitas" 1 "cuarto" As String 

     'Es Soltera

     Datos Personales "Wini" "Padrino" "Guamachal" 1 "cuarto" As Srting

     'Es Soltera

     Datos Personales "Blanca" "Moreno" "Los Ilustres" 1 "cuarto" As String 

     'Es Soltera

     Datos Personales "Adrian" "Guerra" "Los Olivos" 1 "cuarto" As String 

     'Es Soltero

     Datos Personales "Erimar" "Figueroa" "Padre Chacín" 1 "cuarto" As String

     'Es Soltera

End Sub

Realice y diseñe un vector que muestre por pantalla los botones de una calculadora (adición, sustracción, multiplicación y división) 

Nuevo Botón

Private Sub Command5_Click()

    

     Text1= "         "

     Text2= "         "

     Text3= "         "

     Text1, set focus

 End Sub

Adición

Private Sub Command1_Click()

     Text3= Val (Text1) + Val (Text2)

 End Sub

Sustracción

Private Sub Command2_Click()

     Text3= Val (Text1) - Val (Text2)

 End Sub

Multiplicación

Private Sub Command3_Click()

     Text3= Val (Text1) x Val (Text2)

 End Sub

División

Private Sub Command4_Click()

     Text3= Val (Text1) / Val (Text2)

 End Sub

Calculadora