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 = 1000b = 30msgbox a / b当然也可以不要变量直接忽略前面的所有，直接msgbox 1000 / 30
6、运行看看效果
7、为了让它更人性化，我们鸬钟召蜗才采用变量的。试想下，我们让用户设置运算符，然后让用户输入要运算的数据。这样是不是更人性化呢？那么我们可以这样dim a,b,c'c保存用户的运算符dim temp'temp保存计算结果doa = inputbox("请输入数值1：","输入数值")'获得第一个数值 if a = "" then '如果变量a里面没有数据 msgbox "您没有输入数值",,"错误" else exit do end ifloopdo'开始循环c = inputbox("请输入运算符(+ - * /)","输入运算符","+")'获得运算符数据 if c = "+" or c = "-" or c = "*" or c = "/" then '如果用户输入的运算符是+或者-或者*或者/ exit do '退出循环 else '否则 msgbox "运算符错误，未知的运算符"&c,,"错误" '报错end if'if结尾处loop'循环结尾处dob = inputbox("请输入数值2：","输入数值")'获得第一个数值 if b = "" then '如果变量b里面没有数据 msgbox "您没有输入数值",,"错误" else exit do end ifloopselect 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和inputbo垓矗梅吒x的相关信息可以去看我的另两篇经验。msgbox是http://jingyan.baidu.com/article/22fe7cedd478133002617f23.htmlinputbox是http://jingyan.baidu.com/article/86112f136dfd3d27379787ce.html
