简易计算器的vbs脚本（2） 此代码由 风儿  提供

msgbox "欢迎使用VBS简易计算机"

dim a,b,c,d

a=inputbox("请输入第一个数")

b=inputbox("请输入运算符")

c=inputbox("请输入第二个数")

a=int(a) '将a和c转换为整数 c=int(c) ' if b="+" then d=a + c ' if b="-" then d=a - c if b="*" then d=a * c if b="/" then d=a / c if a="" then '进行报错判定

 msgbox "缺少参数",64,"Error" elseif b="" then msgbox "缺少运算符",64,"Error" elseif c="" then msgbox "缺少参数",64,"Error" else ' msgbox a&b&c&"="&d,,"计算完毕" End if

举例脚本（可直接复制至你的vbs文件）

msgbox "欢迎使用VBS简易计算机"

dim a,b,c,d

a=inputbox("请输入第一个数")

b=inputbox("请输入运算符")

c=inputbox("请输入第二个数")

a=int(a) '将a和c转换为整数 c=int(c) ' if b="+" then d=a + c ' if b="-" then d=a - c if b="*" then d=a * c if b="/" then d=a / c if a="" then '进行报错判定 

msgbox "缺少参数",64,"Error" elseif b="" then msgbox "缺少运算符",64,"Error" elseif c="" then msgbox "缺少参数",64,"Error" else ' msgbox a&b&c&"="&d,,"计算完毕" End if