
Crea un formulario con tres etiquetas, tres cajas de texto, un marco, cuatro botones de opción, tres botones y escribe el siguiente código:
El botón Calcular
Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)
ElseIf Option2 = True Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Option3 = True Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Option4 = True Then
Text3 = Val(Text1) + Val(Text2)
End If
End Sub
El botón Otra Operación
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
Unload Me
End
End Sub
Hay 34 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Guía para crear tarjetas de presentación ¿Cuántas veces te has encontrado en una situación en la cuál te piden tus datos de contacto y has tenido que escribirlo en una servilleta o en un papel usado que se termi... [03/07/07] |
|
2.404 | ||
|
Diseño de ambientes de aprendizaje Este curso ofrece un conjunto de pautas y lineamientos para el diseño de ambientes que promuevan el aprendizaje asignificativo.... [06/04/06] |
|
1.852 | ||
|
Diseño. Solid edge Diseño. Solid edge, este curso pretende abarcar el programa de SOLID EDGE, el cual es uno de los programas CAD más utilizados para el diseño en 3D... [03/03/09] |
|
1.845 | ||
Publicar en
del.icio.us
digg
meneame