EJERCICIOS

Ejercicios de la unidad 3 y 4:

1)     Realice y diseñe un vector que muestra por pantalla los botones de una calculadora:
 
 

2)     Realice un vector que contenga los siguientes elementos: Nombre, apellido, dirección y sexo de 5 personas.

Private Sub Command1_Click ( )
   Datos Personales "María" "Rodríguez" "Anzoátegui" "Femenino”
   Datos Personales "Miguel" "Celis" "Valencia" "Masculino"
   Datos Personales "Luisana" "Carrillo" "Caracas" "Femenino"
   Datos Personales "Aarón" "Vega" "Maracaibo" "Masculino"
   Datos Personales "Carlos" "Rivas" "Ciudad Bolívar" "Masculino"
 Print
End

  

Ejercicios de la unidad 5:

1)Ejemplifique varias diagonales sucesivas a través de la acumulación de textos por datos introducidos por teclado.

Private Sub CommandButton1_Click ()

     Dim i As Integer

     Dim j As Integer

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

             For i = 1 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

Ejercicio de la Unidad 6:

Ejemplo 1:

Range("B7").Name: Hace referencia al nombre del objeto Range de la celda B7.

Ejemplo 2:

Range("H8").Select:  Permite activar la celda H8 y ponerla disponible para cualquier otra operación.

Ejemplo 3:

Range("A3:J9").Formato: En este se ejecuta el método Formato sobre el rango A3:J9. Suponiendo que el formato ha sido previamente definido.