コードは次のとおりです。
次のようにコードをコピーします。
/**
※作者：黒鳥ハート
*バージョン:1.0
*/
Dim IntX As Double '計算値を格納するために使用されるグローバル変数
Dim IntOperation As Double '操作タイプをマークします
Dim isBegin As Boolean 'タグに値が IntX に割り当てられているかどうか
Public Sub Clear() 'クリアコマンド関数
screen.Caption = ""
エンドサブ
Public Sub SavaToIntX()
Case IntOperation を選択してください
事例1「追加」
isBegin = False の場合
IntX = Val(screen.Caption)
isBegin = True
それ以外
IntX = IntX + Val(screen.Caption)
終了の場合
事例2「引き算」
isBegin = False の場合
IntX = Val(screen.Caption)
isBegin = True
それ以外
IntX = IntX - Val(screen.Caption)
終了の場合
ケース3「掛け算」
isBegin = False の場合
IntX = Val(screen.Caption)
isBegin = True
それ以外
IntX = IntX * Val(screen.Caption)
'screen.Caption = IntX
終了の場合
Case 4「部門」
isBegin = False の場合
IntX = Val(screen.Caption)
isBegin = True
それ以外
IntX = IntX / Val(screen.Caption)
終了の場合
エンドセレクト
エンドサブ
プライベートサブコマンド0_Click()
スクリーン.キャプション = スクリーン.キャプション & 0
エンドサブ
プライベートサブコマンド1_Click()
スクリーン.キャプション = スクリーン.キャプション & 1
エンドサブ
プライベートサブコマンド2_Click()
スクリーン.キャプション = スクリーン.キャプション & 2
エンドサブ
プライベートサブコマンド3_Click()
スクリーン.キャプション = スクリーン.キャプション & 3
エンドサブ
プライベートサブコマンド4_Click()
スクリーン.キャプション = スクリーン.キャプション & 4
エンドサブ
プライベートサブコマンド5_Click()
スクリーン.キャプション = スクリーン.キャプション & 5
エンドサブ
プライベートサブコマンド6_Click()
スクリーン.キャプション = スクリーン.キャプション & 6
エンドサブ
プライベートサブコマンド7_Click()
スクリーン.キャプション = スクリーン.キャプション & 7
エンドサブ
プライベートサブコマンド8_Click()
スクリーン.キャプション = スクリーン.キャプション & 8
エンドサブ
プライベートサブコマンド9_Click()
スクリーン.キャプション = スクリーン.キャプション & 9
エンドサブ
Private Sub CommandClear_Click() 'コマンドをクリア
isBegin = False
IntOperation = 0
IntX = 0
screen.Caption = ""
エンドサブ
Private Sub CommandEqual_Click() '等号演算
If IntOperation <> 0 then '演算マークがある場合
CallSavaToIntX
IntOperation = 0
isBegin = False
screen.Caption = IntX
終了の場合
エンドサブ
Private Sub CommandMinus_Click() '減算演算
If IntOperation <> 0 then '演算マークがある場合
CallSavaToIntX
IntOperation = 2
コールクリア
それ以外
IntOperation = 2
CallSavaToIntX
コールクリア
終了の場合
エンドサブ
Private Sub CommandMultiple_Click() '乗算演算
If IntOperation <> 0 then '演算マークがある場合
CallSavaToIntX
IntOperation = 3
コールクリア
それ以外
IntOperation = 3
CallSavaToIntX
コールクリア
終了の場合
エンドサブ
Private Sub CommandPlus_Click() '加算操作
If IntOperation <> 0 then '演算マークがある場合
CallSavaToIntX
IntOperation = 1
コールクリア
それ以外
IntOperation = 1
CallSavaToIntX
コールクリア
終了の場合
エンドサブ
Private Sub CommandSlash_Click() '除算演算
If IntOperation <> 0 then '演算マークがある場合
CallSavaToIntX
IntOperation = 4
コールクリア
それ以外
IntOperation = 4
CallSavaToIntX
コールクリア
終了の場合
エンドサブ