Le code est le suivant :
Copiez le code comme suit :
/**
*Auteur : coeur d'oiseau noir
*Version : 1.0
*/
Dim IntX As Double 'Variable globale utilisée pour stocker les valeurs calculées
Dim IntOperation As Double 'Marquer le type d'opération
Dim isBegin As Boolean 'Si la balise a reçu une valeur pour IntX
Public Sub Clear() 'Fonction de commande Effacer
écran.Caption = ""
Fin du sous-marin
Sous-public SavaToIntX()
Sélectionner une opération en cas de cas
Cas 1 'Ajout
Si isBegin = False Alors
IntX = Val(écran.Caption)
estBegin = Vrai
Autre
IntX = IntX + Val(écran.Caption)
Fin si
Cas 2 'Soustraction
Si isBegin = False Alors
IntX = Val(écran.Caption)
estBegin = Vrai
Autre
IntX = IntX - Val(écran.Caption)
Fin si
Cas 3 'Multiplication
Si isBegin = False Alors
IntX = Val(écran.Caption)
estBegin = Vrai
Autre
IntX = IntX * Val(écran.Caption)
'écran.Caption = IntX
Fin si
Cas 4 'Division
Si isBegin = False Alors
IntX = Val(écran.Caption)
estBegin = Vrai
Autre
IntX = IntX / Val(écran.Caption)
Fin si
Fin de la sélection
Fin du sous-marin
Sous-commande privée0_Click()
écran.Caption = écran.Caption & 0
Fin du sous-marin
Sous-commande privé1_Click()
écran.Caption = écran.Caption & 1
Fin du sous-marin
Sous-commande privé_Click()
écran.Caption = écran.Caption & 2
Fin du sous-marin
Sous-commande privé3_Click()
écran.Caption = écran.Caption & 3
Fin du sous-marin
Sous-commande privé4_Click()
écran.Caption = écran.Caption & 4
Fin du sous-marin
Sous-commande privé5_Click()
écran.Caption = écran.Caption & 5
Fin du sous-marin
Sous-commande privé6_Click()
écran.Caption = écran.Caption & 6
Fin du sous-marin
Sous-commande privé7_Click()
écran.Caption = écran.Caption & 7
Fin du sous-marin
Sous-commande privé8_Click()
écran.Caption = écran.Caption & 8
Fin du sous-marin
Sous-commande privé9_Click()
écran.Caption = écran.Caption & 9
Fin du sous-marin
Private Sub CommandClear_Click() 'Effacer la commande
estBegin = Faux
IntOpération = 0
IntX = 0
écran.Caption = ""
Fin du sous-marin
Private Sub CommandEqual_Click() 'Opération de signe égal
If IntOperation <> 0 Then 'Lorsqu'il y a une marque d'opération
AppelSavaVersIntX
IntOpération = 0
estBegin = Faux
screen.Caption = IntX
Fin si
Fin du sous-marin
Private Sub CommandMinus_Click() 'Opération de soustraction
If IntOperation <> 0 Then 'Lorsqu'il y a une marque d'opération
AppelSavaVersIntX
IntOpération = 2
Appel clair
Autre
IntOpération = 2
AppelSavaVersIntX
Appel clair
Fin si
Fin du sous-marin
Private Sub CommandMultiple_Click() 'Opération de multiplication
If IntOperation <> 0 Then 'Lorsqu'il y a une marque d'opération
AppelSavaVersIntX
IntOpération = 3
Appel clair
Autre
IntOpération = 3
AppelSavaVersIntX
Appel clair
Fin si
Fin du sous-marin
Private Sub CommandPlus_Click() 'Opération d'addition
If IntOperation <> 0 Then 'Lorsqu'il y a une marque d'opération
AppelSavaVersIntX
IntOpération = 1
Appel clair
Autre
IntOpération = 1
AppelSavaVersIntX
Appel clair
Fin si
Fin du sous-marin
Private Sub CommandSlash_Click() 'Opération de division
If IntOperation <> 0 Then 'Lorsqu'il y a une marque d'opération
AppelSavaVersIntX
IntOpération = 4
Appel clair
Autre
IntOpération = 4
AppelSavaVersIntX
Appel clair
Fin si
Fin du sous-marin