教你用怎么vbs写一个简易的计算器

1、首先我们需要先创建一个文本文档。

右键桌面空白区域，新建 -> 文本文档

2、名字随意，我这里就取为计算器.vbs 记得是.vbs或者.vbe为扩展名结尾才行。

记得扩展名，扩展名没有显示的可以先去看我的另外一篇经验，它会教你怎么显示扩展名。

http://jingyan.baidu.com/article/574c52190770906c8d9dc123.html

3、选中文件后，右键 -> 用记事本打开该文件

4、先制作一个超级简单的计算器。

我们需要先定义两个变量。

dim a,b

定义变量a和变量b

5、怎么计算假如是1000除于30

那么我们就把1000赋给a，30赋给b。

让a除于b，最终显示我们要的结果

a = 1000

b = 30

msgbox a / b

当然也可以不要变量

直接忽略前面的所有，直接msgbox 1000 / 30

6、运行看看效果

7、为了让它更人性化，我们才采用变量的。

试想下，我们让用户设置运算符，然后让用户输入要运算的数据。这样是不是更人性化呢？

那么我们可以这样

dim a,b,c

'c保存用户的运算符

dim temp

'temp保存计算结果

do

a = inputbox("请输入数值1：","输入数值")

'获得第一个数值

if a = "" then

'如果变量a里面没有数据

msgbox "您没有输入数值",,"错误"

else

exit do

end if

loop

do

'开始循环

c = inputbox("请输入运算符(+ - * /)","输入运算符","+")

'获得运算符数据

if c = "+" or c = "-" or c = "*" or c = "/" then

'如果用户输入的运算符是+或者-或者*或者/

exit do

'退出循环

else

'否则

msgbox "运算符错误，未知的运算符"&c,,"错误"

'报错

end if

'if结尾处

loop

'循环结尾处

do

b = inputbox("请输入数值2：","输入数值")

'获得第一个数值

if b = "" then

'如果变量b里面没有数据

msgbox "您没有输入数值",,"错误"

else

exit do

end if

loop

select case c

case "+"

temp = int(a) + int(b)

'数值1 + 数值2

msgbox a&"+"&b&"="&temp,,"计算结果"

case "-"

temp = int(a) - int(b)

'数值1 - 数值2

msgbox a&"-"&b&"="&temp,,"计算结果"

case "*"

temp = int(a) * int(b)

'数值1 * 数值2

msgbox a&"*"&b&"="&temp,,"计算结果"

case "/"

temp = int(a) / int(b)

'数值1 * 数值2

msgbox a&"/"&b&"="&temp,,"计算结果"

end select

8、运行试试看？

9、msgbox和inputbox的相关信息可以去看我的另两篇经验。

msgbox是http://jingyan.baidu.com/article/22fe7cedd478133002617f23.html

inputbox是http://jingyan.baidu.com/article/86112f136dfd3d27379787ce.html