效果如下图:
制作步骤:
1.新建一个文本文档或打开代码编辑器。
2.写入以下代码:
msgbox"欢迎使用vbs计算机",,"欢迎使用"
dim a,b,c
a=cdbl(inputbox("请输入第一个数字"))
c=inputbox("请输入字符")
b=cdbl(inputbox("请输入第二个数字"))
if c="+" then m=a+b
if c="-" then m=a-b
if c="*" then m=a*b
if c="/" then m=a/b
if a="" then
magbox"未输入",,"错误"
elseif b="" then
magbox"未输入",,"错误"
elseif c="" then
magbox"未输入",,"错误"
else
msgbox a&c&b&"="&m,,"计算完毕"
end if
3.保存并将后缀名改为 .vbs 即可