vbs计算器

最新推荐文章于 2022-11-10 08:26:26 发布

oocoolie123

最新推荐文章于 2022-11-10 08:26:26 发布

阅读量1k

点赞数

文章标签：蓝桥杯

本文链接：https://blog.csdn.net/oocoolie123/article/details/127018889

版权

用vbs写一个+-×÷计算器

先说一下，×、÷符号分别用"*"、"/"代替

复制以下代码：

dim a,b,op,c
a=inputbox("输入第一个数字")
op=inputbox("输入符号")
b=inputbox("输入第二个数字")
c="="
a=CDbl(a)
b=CDbl(b)
if op="+" then msgbox a&op&b&c&a+b,64,"结果"
if op="-" then msgbox a&op&b&c&a-b,64,"结果"
if op="*" then msgbox a&op&b&c&a*b,64,"结果"
if op="/" then msgbox a&op&b&c&a/b,64,"结果"

dim a,b,op,c
a=inputbox("输入第一个数字")
op=inputbox("输入符号")
b=inputbox("输入第二个数字")
c="="
a=CDbl(a)
b=CDbl(b)
if op="+" then msgbox a&op&b&c&a+b,64,"结果"
if op="-" then msgbox a&op&b&c&a-b,64,"结果"
if op="*" then msgbox a&op&b&c&a*b,64,"结果"
if op="/" then msgbox a&op&b&c&a/b,64,"结果"