EJERCICIOS DE PROGRAMACION

Ejercicio de la Unidad 3

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

Nuevo Botón

Private Sub Command5_Click ( )

    

     Text1= "         "

     Text2= "         "

     Text3= "         "

     Text1, set focus

 End Sub

Boton Adicción

Private Sub Command1_Click()

     Text3= Val (Text1) + Val (Text2)

 End Sub

Boton Sustracción

Private Sub Command2_Click()

     Text3= Val (Text1) - Val (Text2)

 End Sub

Boton Multiplicación

Private Sub Command3_Click()

     Text3= Val (Text1) * Val (Text2)

 End Sub

Boton División

Private Sub Command4_Click()

     Text3= Val (Text1) / Val (Text2)

 End Sub

 

Ejercicio de la Unidad 4 

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

Private Sub Command1_Click ( )
   Datos Personales "Pablo" "Gomez" "Las Acacias"  
   Datos Personales "Frank" "Arevalo" "Calle Paraiso"
   Datos Personales "Denlizmar" "Rubin" "Banco Obrero"
   Datos Personales "Adrian" "Gamarra" "La Romana"
   Datos Personales "Enmary" "Escalona" "El Palmar"
 Print
End

Ejecicio de la Unidad 5

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

Ejercicio de la Unidad 6

1. Análisis de diversas expresiones presentadas a continuación:

·           Range ("D8").Select 

          Este expresa que en la celda "D8" se esta utilizando el Método Select el cual se selecciona esa celda para que este disponible para cualquier operación.

•  Range ("D1:H6").Formato

           Este expresa que desde la celda D1 hasta H6 se utiliza el método Formato, dejando la celda disponible.Se supone que el método Formato ya está definido previamente

• Range ("E6").Name

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