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

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

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"

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>

comequ.Enabled = True

End If

End Sub

Sub privado comnum7_Click()

If a3 = 1 Entonces

labdis.Caption = ""

a3 = 0

compoi.Enabled = True

Finalizar si

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

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