'変数初期化
kotae  = 0
hyouji = ""


for i=0 to 10 step 0
  getmsg = inputbox(  "式：" & hyouji & vbCrLf & _
            vbCrLf & _
            "-------------- 使用方法 --------------" & vbCrLf & _
            "数値→[OK]→符号→[OK]→数値…　というように交互に入力してください。" & vbCrLf & _
            "何も入力しないで[OK]を押すと計算結果を出力します。", _
            "超簡易電卓")
  
  if (getmsg="") then
    '何も入力がなければ計算終了(for文を抜ける)
    exit for
    
  elseif (getmsg="+" or getmsg="-" or getmsg="*" or getmsg="/") then
    '符号が入力された場合は保持する
    hugou = getmsg
    
  else
    '数値が入力された場合、保持されていた符号情報を元に計算する
    '符号が設定されていない場合(一番最初)はkotaeに値を代入するだけ
    
    if (hugou="+") then
      kotae = kotae + cdbl(getmsg)
    elseif (hugou="-") then
      kotae = kotae - cdbl(getmsg)
    elseif (hugou="*") then
      kotae = kotae * cdbl(getmsg)
    elseif (hugou="/") then
      kotae = kotae / cdbl(getmsg)
    elseif (hugou="") then
      kotae = cdbl(getmsg)
    end if
    
  end if
  
  '画面表示用の式を作る
  hyouji = hyouji & getmsg
next

'計算結果表示
msgbox "計算結果：" & kotae
msgbox"斎藤　仁志",33+2,"著者権"
'計算結果表示
msgbox "計算結果：" & kotae