VBScriptでの四則電卓

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

No.2 ベストアンサー 回答者： takepon256 回答日時： 2008/08/09 18:22

正直見てらんない。

メニューはともかく、せめてこんな風にしてほしかった。
----------------------------------------------------------------
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 & "」です。"
----------------------------------------------------------------

この回答へのお礼

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

お礼日時：2008/08/11 09:57

No.3 回答者： celtis 回答日時： 2008/08/10 13:26

Visual Basicの解説ですが、アルゴリズムの参考になると思います。

http://homepage1.nifty.com/rucio/main/dotnet/sho …
http://www.seosoft.net/labo/vbprog/default.asp

No.1 回答者： takepon256 回答日時： 2008/08/09 16:33

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

数字ボタンなど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

補足日時：2008/08/09 16:52