VBS语言基础教程ppt课件

VBS语言,主讲人：许卫明,1,2020/4/26,一、概述,VBScript(MicrosoftVisualBasicScriptEditon).，微软公司可视化BASIC脚本版).正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于VisualBasic的脚本语言.我进一步解释一下,MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成.exe,而是直接给用户发送.vbs的源程序,用户就能执行了,2,2020/4/26,一、概述,基本分为3大类应用：1、vbs可以做网页控制脚本，做页面特效，但是只支持ie浏览器。2、vbs可以写ASP，在服务器端运行。查询数据库，输出ASP网页3、WindowsScriptHost，一个文本文件，后缀命名成.vbs是可以直接在windows里运行的，常被病毒作者做成恶意代码。也可以写一些小的应用，比如一级考试系统安装，一切傻瓜化完成。,3,2020/4/26,一、概述,优点：编写简单功能强大,4,2020/4/26,二、变量,盛放数据的容器。占用一定的内存空间。a=12b=“你好！”可事先定义变量，如：dimc,5,2020/4/26,三、对话框,1、输入框a=inputbox(“请输入第一条边的边长”,”第一条边”)2、输出框Msgbox(“输入错误！”),6,2020/4/26,四、运算符,1、加、减、乘、除、商取整、模（取余数）运算+-*/mod2、连接运算符&+3、逻辑运算符=100)thenMsgbox(“成绩出错”)Endif,2、If(条件)then执行语句1else执行语句2endif,11,2020/4/26,练习2,1、制作一个成绩判断程序：弹出一个输入框，输出该成绩等级。（成绩大于85分为优秀，否则为不优秀）2、制作一个三角形判断程序：分别弹出三个输入框，分别输入三条边的长度，弹出对话框显示该三角形是否为三角形。（任意两边之和大于第三边）,12,2020/4/26,五、多重条件语句,语法：If(条件1)then执行语句1Elseif(条件2)then执行语句2*Else执行语句nEndif,13,2020/4/26,练习2,1、制作一个成绩判断程序：弹出一个输入框，输出该成绩等级。（成绩小于0分或大于100分，出错；成绩大于或等于85分为优秀；成绩在059分之间的为不及格；6070为及格；7184分的为良）测试数据为-20，0，59，60，61，70，71，84，85，100，120查看结果是否满足程序要求,14,2020/4/26,六、循环语句,某一语句需要执行许多次的时候使用例如，产生五个对话框，对这五个对话框的数求和a=int(inputbox(请输入数字)s=s+aA=int(inputbox(请输入数字)s=s+aa=int(inputbox(请输入数字)S=s+aa=int(inputbox(请输入数字)s=s+aa=int(inputbox(请输入数字)s=s+amsgbox(这几个数的和为&s),15,2020/4/26,六、循环语句,从上面的程序总结如下：1、大小写无所谓（有语言不行，如C、C#、java等）2、变量第一次使用时值为空3、变量赋值多次时，其值为最后一次赋的值。4、s=s+a表示，s在原值的基础上加上a的值。,16,2020/4/26,六、循环语句,Fori=1to5a=int(inputbox(“请输入数据”)s=s+anext(分析程序运行过程及最后i的值)注意问题：死循环,17,2020/4/26,六、循环语句,思考：Fori=1to5a=int(inputbox(“请输入第n个数据”)s=s+anext,18,2020/4/26,练习3,1)水仙花数是指一个n位数(n3)，它的每个位上的数字的n次幂之和等于它本身。（例如：13+53+33=153）提示：153个位数为3十位数为5百位数为1236个位数为6十位数为3百位数为2复习运算符,19,2020/4/26,六、循环语句,dowhile条件执行语句loop例：s=1+2+3+*+n，问到当s=50时，n的值是多少？while(条件)执行语句wend,20,2020/4/26,六、循环语句,循环嵌套：fori=1to10forj=1to5msgbox(“i的值为”&i&”j的值为”&j)nextnext,21,2020/4/26,练习4,在我国的数学经典著作“九章算术”中有这样一道题:百钱买百鸡,公鸡5钱一只,母鸡3钱一只,小鸡1钱3只)求得是能有多少种办法买这些鸡.如果看不懂的话我用大白话说说:有人要去买鸡,用100块钱正好买了100只鸡,价格如下:公:5$,母:3$,小:1$3只,让你求一共多少种卖法(公母小怎么搭配).请用循环解决这个问题.提示：设公鸡数量为a，则a的范围为？设母鸡数量为b，则b的范围为？,22,2020/4/26,七、数组,一系列有规则的变量，可以使用数字下标来表示。先定义数组dima(9)数组就是a(0)、a(1)、*、a(9)共10个变量也可不指定数组的个数，则如下定义：dima()ubound(a)取数组a()的下标例如：产生10个对话框输入10个数字，并将这10个数字倒序显示出来。思考下，如何编程,23,2020/4/26,七、数组,dima(9)Fori=0to9a(i)=inputbox(请输入第&i&个数据)NextFori=9to0step-1msgbox(a(i)Next,24,2020/4/26,练习5,1、现有字符串“10123423453545”，根据字符“”分割字符，计算各字符的总和。提示：split函数传回数组=Split(原始字串,要找的字串,拆成几个数组)t=“10123423453545”a=split(t,”)相当于a(0)=10a(1)=12*,25,2020/4/26,八、VBS对文件的读写操作,1、打开文件使用opentextfile方法setfs=createobject(“scripting.filesystemobject”)setts=fs.opentextfile(“c:1.txt”,1,true)注意这里需要填入文件的完整路径，后面一个参数为访问模式；也可不输入路径，则打开当前目录下文件1为forreading2为forwriting8为appending第三个参数指定如果指定文件不存在，是否创建。,26,2020/4/26,八、VBS对文件的读写操作,2、读取文件读取文件的方法有三个read(x)读取x个字符readline读取一行readall全部读取例如：setfs=createobject(“scripting.filesystemobject”)setts=fs.opentextfile(“c:1.txt”,1,true)value=ts.read(20)line=ts.readlinecontents=ts.readall,27,2020/4/26,八、VBS对文件的读写操作,textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾。例如：setfs=createobject(“scripting.filesystemobject”)setf=fs.getfile(“c:1.txt”,1,false)setts=f.openastextstream(1,0)dowhilets.atendofstreamtruef.read(1)loop,28,2020/4/26,八、VBS对文件的读写操作,skip(x)跳过x个字符skipline跳过一行,29,2020/4/26,八、VBS对文件的读写操作,3、写文件可以用forwriting和forappending方式来写写有3各方法：write(x),该方法输出不换行，需要使用chr(13)换行writeline,该方法自动换行writeblanklines(n)写入n个空行,30,2020/4/26,八、VBS对文件的读写操作,data=”hello,Ilikescriptprograming”setfs=createobject(“scripting.filesystemobject”)if(fs.fileexists(“c:2.txt”)thensetf=fs.opentextfile(“c:2.txt”,8)f.writedataf.writelinedataf.closeelsesetf=fs.opentextfile(“c:2.txt”,2,true)f.writeblanklines2f.writedataf.closeendif,31,2020/4/26,练习6,1、利用VBS，创建文本文档C:/1.txt，里面内容如下：北京，2、利用VBS，弹出输入框，在里面可输入姓名，创建文本文档C:/2.txt，里面内容如下：欢迎（输入框里的姓名）！3、利用VBS，将文本文档里面的内容合并如下：北京，欢迎（输入框的姓名）！,32,2020/4/26,九、VBS运行外部命令,1、打开记事本下面的vbscript代码用记事本打开当前运行脚本的副本。setwshshell=script.createobject(wscript.shell)wshshell.run%windir%notepad,33,2020/4/26,九、VBS运行外部命令,2、执行CMD命令下面的vbscript代码打开一个命令窗口，将路径改为c:，并执行dir命令。dimoshellsetoshell=wscript.createobject(wscript.shell)oshell.runcmd/k,34,2020/4/26,九、VBS运行外部命令,3、模拟键盘输入SetobjShell=CreateObject(“Wscript.Shell”)setWshShell=CreateObject(“WScript.Shell”)WScript.Sleep3000延时3秒WshShell.SendK