
Crea un formulario con cuatro etiquetas, tres cajas de texto, una caja de combo, tres botones y escribe el siguiente código:
Private Sub Form_Load()
Combo1.AddItem "Dividir"
Combo1.AddItem "Multiplicar"
Combo1.AddItem "Restar"
Combo1.AddItem "Sumar"
End Sub
El botón Nuevo Cálculo
Private Sub Command1_Click()
text1 = ""
text2 = ""
text3 = ""
text1.SetFocus
End Sub
El botón Calcular
Private Sub Command2_Click()
If Combo1 = "Sumar" Then
Text3 = Val(Text1) + Val(Text2)
ElseIf Combo1 = "Restar" Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Combo1 = "Multiplicar" Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Combo1 = "Dividir" Then
Text3 = Val(Text1) / Val(Text2)
End If
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 | |
|---|---|---|---|---|
|
Autocad. Dibujo en 2d y 3d (1/4) Autocad. Este curso está diseñado, para que cualquier persona sin ningún conocimiento de Autocad pueda seguirlo y pueda divertirse dibujando[09/06/09] |
|
3.476 | ||
|
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.864 | ||
|
Cómo eliminar los ojos rojos con PhotoShop En esta práctica conoceremos los pasos necesarios para poder eliminar los ojos rojos de una fotografía.... [26/05/08] |
|
2.122 |
|
|
Publicar en
del.icio.us
digg
meneame