Utilice el lenguaje vb para escribir un programa para implementar la función de calculadora
Atenuar num1, num2 como doble
Atenuar a1, a2, a3 como entero
Subcoma privadadd_Click()
a2 = 1
Si a3 = 0 Entonces
num2 = num1
Finalizar si
a1 = 10
labdis. Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = Falso
compoi.Enabled = Falso
num1 = 0
a3 = 0
Fin Sub
Sub privado comcls_Click()
num1 = 0
num2 = 0
a1 = 10
a2 = 0
a3 = 0
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul .Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
End Sub
Sub privado comdiv_Click()
a2 = 4
Si a3 = 0 Entonces
num2 = num1
Finalizar si
a1 = 10
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
num1 = 0
a3 = 0
End Sub
Sub privado comequ_Click()
Seleccione caso a2
Caso 1
num2 = num1 + num2
Caso 2
num2 = num2 - num1
Caso 3
num2 = num2 * num1
Caso 4
num2 = num2 / num1
Fin de selección
labdis.Caption = Str$(num2)
Si num2 < 1 y num2 > 0 entonces
labdis.Caption = "0" + Mid$(Str$(num2), 2)
End If
Si num2 < 0 y num2 > -1 Entonces
labdis.Caption = "-0" + Mid$(Str$(num2), 2)
End If
com
equ.Enabled = False
a2 = 0
comadd.Enabled = True
comsub.Enabled = True
commul.Enabled = Verdadero
comdiv.Enabled = Verdadero
compoi.Enabled = Falso
num1 = 0
a3 = 1
a1 = 10
End Sub
Sub privado commul_Click()
a2 = 3
Si a3 = 0 entonces p>
num2 = num1
Finalizar si
a1 = 10
labdis.Caption = ""
comadd.Enabled = Falso
comsub.Enabled = Falso
commul.Enabled = Falso
comdiv.Enabled = Falso
compoi.Enabled = Falso
num1 = 0
a3 = 0
Sub final
Sub privado comnum0_Click()
Si a3 = 1 Entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si
labdis.Caption = labdis.Caption + "0"
Si a1 <> 10 entonces
num1 = num1 + a1 * 0
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 0
Finalizar si
Si a2 = 0 Entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
Finalizar si
Si a2 = 4 y num1 = 0 Entonces
comequ.Enabled = False
Finalizar si
Finalizar sub
Sub privado comnum1_Click()
Si a3 = 1 Entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si
labdis.Caption = labdis.Caption + "1"
Si a1 <> 10 entonces
num1 = num1 + a1 * 1
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 1
Finalizar si
<p>Si a2 = 0 Entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
End If
End Sub
Sub privado comnum2_Click()
Si a3 = 1 entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = Verdadero
Finalizar si
labdis.Caption = labdis.Caption + "2"
Si a1 <> 10 Entonces
num1 = num1 + a1 * 2
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 2
Finalizar si
Si a2 = 0 Entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
Finalizar si
End Sub
Sub privado comnum3_Click()
Si a3 = 1 entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si
labdis.Caption = labdis.Caption + "3"
Si a1 <> 10 Entonces
num1 = num1 + a1 * 3
a1 = a1 / 10
Si no
compoi .Enabled = True
num1 = num1 * a1 + 3
Finalizar si
Si a2 = 0 Entonces
comadd.Enabled = Verdadero
commul.Enabled = Verdadero
comsub.Enabled = Verdadero
comdiv.Enabled = Verdadero
Else
comequ.Enabled = True
Fin si
End Sub
Sub privado comnum4_Click()
Si a3 = 1 entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si
labdis.Caption = labdis.Caption + "4"
Si a1 <> 10 entonces
num1 = num1 + a1 * 4
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 4
Finalizar si p>
Si a2 = 0 Entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
Fin si
Fin Sub
Sub privado comnum5_Click()
Si a3 = 1 entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Fin si
labdis.Caption = labdis.Caption + "5"
Si a1 <> 10 entonces
num1 = num1 + a1 * 5
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 5
Fin si
Si a2 = 0 entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
Finalizar si
End Sub
Sub privado comnum6_Click()
Si a3 = 1 Entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si
labdis.Caption = labdis.Caption + "6" p>
Si a1 <> 10 Entonces
num1 = num1 + a1 * 6
a1 = a1 / 10
Si no
compoi.Enabled = True
num1 = num1 * a1 + 6
Finalizar si
Si a2 = 0 Entonces
comadd .Enabled = Verdadero
commul.Enabled = Verdadero
comsub.Enabled = Verdadero
comdiv.Enabled = Verdadero
Else p> p>
comequ.Enabled = True
End If
End Sub
Sub privado comnum7_Click()
If a3 = 1 Entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si p>
laboratorio
is.Caption = labdis.Caption + "7"
Si a1 <> 10 entonces
num1 = num1 + a1 * 7
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 7
Finalizar si
Si a2 = 0 Entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv. Habilitado = Verdadero
Else
comequ.Enabled = Verdadero
Finalizar si
Fin Sub
Sub privado comnum8_Click()
Si a3 = 1 Entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
Finalizar si
labdis.Caption = labdis.Caption + "8"
Si a1 <> 10 entonces
num1 = num1 + a1 * 8
a1 = a1 / 10
Else
compoi.Enabled = True
num1 = num1 * a1 + 8
Finalizar si
Si a2 = 0 Entonces
comadd.Enabled = True
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
Finalizar si p>
End Sub
Sub privado comnum9_Click()
Si a3 = 1 entonces
labdis.Caption = ""
a3 = 0
compoi.Enabled = True
End If
labdis.Caption = labdis.Caption + "9"
Si a1 <> 10 Entonces
num1 = num1 + a1 * 9
a1 = a1 / 10
De lo contrario
compoi.Enabled = Verdadero
num1 = num1 * a1 + 9
Fin si
Si a2 = 0 Entonces
comadd.Enabled = Verdadero
commul.Enabled = True
comsub.Enabled = True
comdiv.Enabled = True
Else
comequ.Enabled = True
Finalizar si
Finalizar sub
Sub privado comoff_Click()
Descargarme<
/p>
Sub final
Sub privado compoi_Click()
a1 = 0.1
compoi.Enabled = False
labdis .Caption = labdis.Caption + "."
comequ.Enabled = False
comadd.Enabled = False
commul.Enabled = False
comsub.Enabled = False
comdiv.Enabled = False
End Sub
Sub privado comsub_Click()
a2 = 2
Si a3 = 0 Entonces
num2 = num1
Finalizar si
a1 = 10
labdis .Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv. Habilitado = Falso
compoi.Enabled = Falso
num1 = 0
a3 = 0
End Sub
Sub privado Form_Load()
num1 = 0
num2 = 0
a1 = 10
a2 = 0
a3 = 0
labdis.Caption = ""
comadd.Enabled = False
comsub.Enabled = False
commul.Enabled = False
comdiv.Enabled = False
compoi.Enabled = False
End Sub