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