VBScriptでの四則電卓

質問

VBScriptで四則計算のみの電卓を作成することは可能でしょうか？

回答No.2

takepon256 · ベストアンサー

正直見てらんない。
メニューはともかく、せめてこんな風にしてほしかった。
----------------------------------------------------------------
a = inputbox("数値(1)",TITLE)
a = CDbl(a)
b = inputbox("数値(2)",TITLE)
b = CDbl(b)

select case arithmetic
　case "1"
　　c = a + b
　case "2"
　　c = a - b
　case "3"
　　c = a * b
　case "4"
　　c = a / b
　case "5"
　　c = a ^ b
end select

msgbox "計算結果は「" & c & "」です。"
----------------------------------------------------------------

お礼

なるほど！
非常に助かりました。
ありがとうございます。

回答No.3

celtis

Visual Basicの解説ですが、アルゴリズムの参考になると思います。
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard4.htm
http://www.seosoft.net/labo/vbprog/default.asp

回答No.1

takepon256

可能か不可能か　と言われると　可能。

数字ボタンなどGUI形式にはできないので、
・メニュー番号を入力する形式
・式を入力して文字列を識別させて計算する形式
とかになるでしょうけど。

補足

以下のようなものを作っていました。

意見をお願いします。
↓　↓　↓
Option Explicit

Dim arithmetic
Dim a
Dim b
Dim c
Dim d
Dim e
Dim f
Dim g
Dim h
Dim i
Dim j
Dim k
Dim l
Dim m
Dim n
Dim o

Const TITLE = "電卓"
arithmetic = InputBox("計算したい四則を選択" _
& VbCrLf & "【１】足し算" _
& VbCrLf & "【２】引き算" _
& VbCrLf & "【３】掛け算" _
& VbCrLf & "【４】割り算" _
& VbCrLf & "【５】べき乗",TITLE)

If arithmetic = "1" Then
a = inputbox("数値(1)",TITLE)
a = CDbl(a)
b = inputbox("数値(2)",TITLE)
b = CDbl(b)
c = a + b
msgbox "計算結果は「" & c & "」です。"
ElseIf arithmetic = "2" Then
d = inputbox("数値(1)",TITLE)
d = CDbl(d)
e = inputbox("数値(2)",TITLE)
e = CDbl(e)
f = d - e
msgbox f
ElseIf arithmetic = "3" Then
g = inputbox("数値(1)",TITLE)
g = CDbl(g)
h = inputbox("数値(2)",TITLE)
h = CDbl(h)
i = g * h
msgbox i
ElseIf arithmetic = "4" Then
j = inputbox("数値(1)",TITLE)
j = CDbl(j)
k = inputbox("数値(2)",TITLE)
k = CDbl(k)
l = j / k
msgbox l
ElseIf arithmetic = "5" Then
m = inputbox("数値(1)",TITLE)
m = CDbl(m)
n = inputbox("数値(2)",TITLE)
n = CDbl(n)
o = m ^ n
msgbox o
Else
End If