El código es el siguiente:
Copie el código de código de la siguiente manera:
/**
*Autor: corazón de pájaro negro
*Versión:1.0
*/
Dim IntX As Double 'Variable global utilizada para almacenar valores calculados
Dim IntOperation como tipo de operación de marca doble
Dim isBegin As Boolean 'Si a la etiqueta se le ha asignado un valor a IntX
Public Sub Clear() 'Borrar función de comando
pantalla.Caption = ""
Subtítulo final
Sub público SavaToIntX()
Seleccionar caso en operación
Caso 1 'Adición
Si isBegin = False Entonces
IntX = Val(pantalla.Caption)
isBegin = Verdadero
Demás
IntX = IntX + Val(pantalla.Caption)
Terminar si
Caso 2 'Resta
Si isBegin = False Entonces
IntX = Val(pantalla.Caption)
isBegin = Verdadero
Demás
IntX = IntX - Val(pantalla.Caption)
Terminar si
Caso 3 'Multiplicación
Si isBegin = False Entonces
IntX = Val(pantalla.Caption)
isBegin = Verdadero
Demás
IntX = IntX * Val(pantalla.Caption)
'pantalla.Caption = IntX
Terminar si
Caso 4' División
Si isBegin = False Entonces
IntX = Val(pantalla.Caption)
isBegin = Verdadero
Demás
IntX = IntX / Val(pantalla.Caption)
Terminar si
Seleccionar fin
Subtítulo final
Subcomando privado0_Click()
pantalla.Caption = pantalla.Caption & 0
Subtítulo final
Subcomando privado1_Click()
pantalla.Caption = pantalla.Caption & 1
Subtítulo final
Subcomando privado2_Click()
pantalla.Caption = pantalla.Caption & 2
Subtítulo final
Subcomando privado3_Click()
pantalla.Caption = pantalla.Caption & 3
Subtítulo final
Subcomando privado4_Click()
pantalla.Caption = pantalla.Caption & 4
Subtítulo final
Subcomando privado5_Click()
pantalla.Caption = pantalla.Caption & 5
Subtítulo final
Subcomando privado6_Click()
pantalla.Caption = pantalla.Caption & 6
Subtítulo final
Subcomando privado7_Click()
pantalla.Caption = pantalla.Caption & 7
Subtítulo final
Subcomando privado8_Click()
pantalla.Caption = pantalla.Caption & 8
Subtítulo final
Subcomando privado9_Click()
pantalla.Caption = pantalla.Caption & 9
Subtítulo final
Subcomando privadoClear_Click() 'Borrar comando
isBegin = Falso
IntOperación = 0
IntX = 0
pantalla.Caption = ""
Subtítulo final
Private Sub CommandEqual_Click() 'Operación de signo igual
Si IntOperation <> 0 Entonces 'Cuando hay una marca de operación
LlamarSavaToIntX
IntOperación = 0
isBegin = Falso
pantalla.Caption = IntX
Terminar si
Subtítulo final
Private Sub CommandMinus_Click() 'Operación de resta
Si IntOperation <> 0 Entonces 'Cuando hay una marca de operación
LlamarSavaToIntX
IntOperación = 2
Borrar llamada
Demás
IntOperación = 2
LlamarSavaToIntX
Borrar llamada
Terminar si
Subtítulo final
Private Sub CommandMultiple_Click() 'Operación de multiplicación
Si IntOperation <> 0 Entonces 'Cuando hay una marca de operación
LlamarSavaToIntX
IntOperación = 3
Borrar llamada
Demás
IntOperación = 3
LlamarSavaToIntX
Borrar llamada
Terminar si
Subtítulo final
Private Sub CommandPlus_Click() 'Operación de suma
Si IntOperation <> 0 Entonces 'Cuando hay una marca de operación
LlamarSavaToIntX
IntOperación = 1
Borrar llamada
Demás
IntOperación = 1
LlamarSavaToIntX
Borrar llamada
Terminar si
Subtítulo final
Private Sub CommandSlash_Click() 'Operación de división
Si IntOperation <> 0 Entonces 'Cuando hay una marca de operación
LlamarSavaToIntX
IntOperación = 4
Borrar llamada
Demás
IntOperación = 4
LlamarSavaToIntX
Llamada clara
Terminar si
Subtítulo final