- Botón Nuevo Cálculo:
Text 1 = " "
Text 2 = " "
Text 3 = " "
Text 1,Setfocus
End Sub
- Botón Sumar:
Text 3 = Val (Text 1) + Val (Text 2)
End Sub
- Botón Restar:
Text 3 = Val (Text 1) - Val (Text 2)
End Sub
- Botón Multiplicar:
Text 3 = Val (Text 1) * Val (Text 2)
End Sub
- Botón Dividir:
Text 3 = Val (Text 1) / Val (Text 2)
End Sub
2- Realice un vector que contenga los siguientes elementos: Nombre, apellido, dirección, sección y semestre de 5 estudiantes.
Private Sub Command1_Click ( )
Datos Personales "José" "Rodríguez" "Chaguaramas" "P-D-01" "4S"
Datos Personales "Ana" "Jiménez" " Tucupido" "C-D-03" "1S"
Datos Personales "Luisa" "Torres" "Altagracia de Orituco" "M-D-05" "8S"
Datos Personales "Alirio" "López" "Las Mercedes" "M-D-02" "3S"
Datos Personales "Alonso" "Fernández" "Tucupido" "P-D-01" "4S"
End
No hay comentarios.:
Publicar un comentario