sábado, 29 de noviembre de 2014

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 As Integer
     Dim 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.