Excel VBA 17 Caseを使った加減乗除冪計算のシンプルな流れ

Caseを使った加減乗除冪計算のシンプルな流れを整理してみました。

--------------------

Sub 簡易電卓()
   Dim first As Double
   Dim second_num As Double
   Dim formula As String
   Dim results As Double
  
   '最初の数字を入力
   first_num = InputBox("最初の数字入力")
  
   '演算子を入力
   formula = InputBox ("演算子半角入力"& vbCrLf & _
   "加算（＋）減算（−）乗算（＊）除算（/）べき乗（^）")
  
   '2番目の数字を入力
   second_num = InputBox("2番目の数字入力")
  
   '計算
   Select Case formula

   '加減乗除冪の処理を選択
       Case "+"
           results = first_num + second_num

   'resultsに最初の数値＋2番目の数値の結果を入れる
       Case "-"
           results = first_num - second_num

   'resultsに最初の数値−2番目の数値の結果を入れる
       Case "*"
           results = first_num * second_num

   'resultsに最初の数値×2番目の数値の結果を入れる
       Case "/"
           results = first_num / second_num

   'resultsに最初の数値÷2番目の数値の結果を入れる
       Case "^"
           results = first_num ^ second_num

   'resultsに最初の数値^2番目の数値の結果を入れる
   End Select
   '選択終了
   MsgBox "計算結果は" & results & "です。"
   '結果をメッセージボックスに表示  
End Sub

--------------------

加算の流れと結果

減算の流れと結果

乗算の流れと結果

除算の流れと結果

冪算の流れと結果