Ejercicios unidades 3 y 4    

1) Realice un vector que contenga los siguientes elementos: nombres, apellido, edad y lugar de nacimiento de 4 personas..

Private Sub Vector1_Click()

Datos Personales "Juan" "Lopez" 25 "Valencia"  

Datos Personales "Manuel" "Medina" 30 "Maracaibol"

 Datos Personales "Maria" "Hernandez" 20 "Valle de la pascua"   

 Datos Personales "Karla" "Alvarez"18 "Pto la cruz"  

     Print 

     End Sub

2) 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