
Crea un formulario con dos etiquetas, dos cajas de texto y tres botones, escribe el siguiente código:
El botón Calcular la Edad
Private Sub Command1_Click()
Dim fecnac As Date, edad As Integer
fecnac = CDate(Text1)
edad = CInt((Date - fecnac) / 365)
Text2 = Str(edad) & " años"
End Sub
El botón Nuevo Cálculo
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
Hay 19 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Manual de estilo de páginas Web En este curso se quiere dar una guía muy amplia para todos aquellos que están interesados en crear una página Web. Dando explicaciones de como crear un buen diseño tanto ... [05/05/05] |
|
14.226 | ||
|
Metodología del diseño Con este curso queremos tratar sobre el desarrollo de una metodología que nos permita identificar los procesos necesarios para la generación de ideas de diseño.... [09/03/05] |
|
17.986 | ||
|
Diseño: composición y tipografía Estos dos elementos son clave para la creación de un buen diseño, ya sea publicitario como en páginas web. Por eso, consideramos de sumo interés dedicar un curso a foment... [02/09/03] |
|
25.042 | ||
Publicar en
del.icio.us
digg
meneame