Red de conocimiento informático - Descarga de software - Utilice el lenguaje vb para escribir un programa para implementar la función de calculadora

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