EJERCICIOS DE PROGRAMACION

Ejercicio de la unidad 3

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




Ejercicios de la unidad 4

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

Private Sub Command1_Click ( )
   Datos Personales "Jhonaiker" "Morales" "Altagracia"  
   Datos Personales "Gabriel" "Celis" "Las Mercedes"
   Datos Personales "Denlizmar" "Rubin" "Guayabal"
   Datos Personales "Adrian" "Guerra" "Valle De La Pascua"
   Datos Personales "Wini" "Padrino" "Las Mercedes"
 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) = "Navidad"

             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("B2").Name: Hace referencia al nombre del objeto Range de la celda B2.

Ejemplo 2:

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

Ejemplo 3:

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