O código é o seguinte:
Copie o código do código da seguinte forma:
/**
*Autor: coração de pássaro preto
*Versão:1.0
*/
Dim IntX As Double 'Variável global usada para armazenar valores calculados
Dim IntOperation As Double 'Marca o tipo de operação
Dim isBegin As Boolean 'Se a tag recebeu um valor atribuído ao IntX
Public Sub Clear() 'Limpa a função de comando
tela.Caption = ""
Finalizar sub
Sub público SavaToIntX()
Selecione Caso IntOperation
Caso 1 'Adição
Se isBegin = Falso então
IntX = Val(tela.Caption)
isBegin = Verdadeiro
Outro
IntX = IntX + Val(tela.Caption)
Terminar se
Caso 2 'Subtração
Se isBegin = Falso então
IntX = Val(tela.Caption)
isBegin = Verdadeiro
Outro
IntX = IntX - Val(tela.Caption)
Terminar se
Caso 3 'Multiplicação
Se isBegin = Falso então
IntX = Val(tela.Caption)
isBegin = Verdadeiro
Outro
IntX = IntX * Val(tela.Caption)
'tela.Caption = IntX
Terminar se
Caso 4 'Divisão
Se isBegin = Falso então
IntX = Val(tela.Caption)
isBegin = Verdadeiro
Outro
IntX = IntX / Val(tela.Caption)
Terminar se
Finalizar seleção
Finalizar sub
Subcomando Privado0_Click()
tela.Caption = tela.Caption & 0
Finalizar sub
Subcomando Privado1_Click()
tela.Caption = tela.Caption & 1
Finalizar sub
Subcomando Privado2_Click()
tela.Caption = tela.Caption & 2
Finalizar sub
Subcomando Privado3_Click()
tela.Caption = tela.Caption & 3
Finalizar sub
Subcomando Privado4_Click()
tela.Caption = tela.Caption & 4
Finalizar sub
Subcomando privado5_Click()
tela.Caption = tela.Caption & 5
Finalizar sub
Subcomando privado6_Click()
tela.Caption = tela.Caption & 6
Finalizar sub
Subcomando Privado7_Click()
tela.Caption = tela.Caption & 7
Finalizar sub
Subcomando Privado8_Click()
tela.Caption = tela.Caption & 8
Finalizar sub
Subcomando Privado9_Click()
tela.Caption = tela.Caption & 9
Finalizar sub
Private Sub CommandClear_Click() 'Comando Limpar
isBegin = Falso
OperaçãoInt = 0
IntX = 0
tela.Caption = ""
Finalizar sub
Private Sub CommandEqual_Click() 'Operação de sinal de igual
If IntOperation <> 0 Then 'Quando há uma marca de operação
ChamarSavaToIntX
OperaçãoInt = 0
isBegin = Falso
tela.Caption = IntX
Terminar se
Finalizar sub
Private Sub CommandMinus_Click() 'Operação de subtração
If IntOperation <> 0 Then 'Quando há uma marca de operação
ChamarSavaToIntX
OperaçãoInt = 2
Chamada clara
Outro
OperaçãoInt = 2
ChamarSavaToIntX
Chamada clara
Terminar se
Finalizar sub
Private Sub CommandMultiple_Click() 'Operação de multiplicação
If IntOperation <> 0 Then 'Quando há uma marca de operação
ChamarSavaToIntX
OperaçãoInt = 3
Chamada clara
Outro
OperaçãoInt = 3
ChamarSavaToIntX
Chamada clara
Terminar se
Finalizar sub
Private Sub CommandPlus_Click() 'Operação de adição
If IntOperation <> 0 Then 'Quando há uma marca de operação
ChamarSavaToIntX
OperaçãoInt = 1
Chamada clara
Outro
OperaçãoInt = 1
ChamarSavaToIntX
Chamada clara
Terminar se
Finalizar sub
Private Sub CommandSlash_Click() 'Operação de divisão
If IntOperation <> 0 Then 'Quando há uma marca de operação
ChamarSavaToIntX
OperaçãoInt = 4
Chamada clara
Outro
OperaçãoInt = 4
ChamarSavaToIntX
Chamada clara
Terminar se
Finalizar sub