购买

¥ 25.0

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VBS语言基础教程

VBS语言基础教程.ppt

VBS语言基础教程

教育文库
2018-11-03 0人阅读 举报 0 0 暂无简介

简介:本文档为《VBS语言基础教程ppt》,可适用于IT/计算机领域

VBS语言主讲人:SteveHou一、概述VBScript(MicrosoftVisualBasicScriptEditon)微软公司可视化BASIC脚本版)正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于VisualBasic的脚本语言我进一步解释一下,MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于Basic脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成exe,而是直接给用户发送vbs的源程序,用户就能执行了一、概述基本分为大类应用:、vbs可以做网页控制脚本做页面特效但是只支持ie浏览器。、vbs可以写ASP在服务器端运行。查询数据库输出ASP网页、WindowsScriptHost一个文本文件后缀命名成vbs是可以直接在windows里运行的常被病毒作者做成恶意代码。也可以写一些小的应用比如一级考试系统安装一切傻瓜化完成。一、概述优点:编写简单功能强大二、变量盛放数据的容器。占用一定的内存空间。a=b=“你好!”可事先定义变量如:dimc三、对话框、输入框a=inputbox(“请输入第一条边的边长”,”第一条边”)、输出框Msgbox(“输入错误!”)四、运算符、加、减、乘、除、商取整、模(取余数)运算*mod、连接运算符、逻辑运算符=<>><>=<=、orandnot四、运算符、其他运算符^多少次方^即的立方。Sqr平方根abs绝对值Int()取整数instr()查找指定字符split()mid()截取字符串练习、制作一个求长方体体积小程序分别弹出三个输入框分别输入长、宽、高弹出对话框显示出体积、编一个程序,计算圆形的面积,半径由用户给出(使用Inputbox)PI取值五、条件语句程序在某种条件执行的时候就要用到条件语句五、条件语句语法:、If(条件)then执行语句endif例:If(score>)thenMsgbox(“成绩出错”)Endif、If(条件)then执行语句else执行语句endif练习、制作一个成绩判断程序:弹出一个输入框输出该成绩等级。(成绩大于分为优秀否则为不优秀)、制作一个三角形判断程序:分别弹出三个输入框分别输入三条边的长度弹出对话框显示该三角形是否为三角形。(任意两边之和大于第三边)五、多重条件语句语法:If(条件)then执行语句Elseif(条件)then执行语句***Else执行语句nEndif练习、制作一个成绩判断程序:弹出一个输入框输出该成绩等级。(成绩小于分或大于分出错成绩大于或等于分为优秀成绩在-分之间的为不及格-为及格-分的为良)测试数据为查看结果是否满足程序要求六、循环语句某一语句需要执行许多次的时候使用例如产生五个对话框对这五个对话框的数求和a=int(inputbox("请输入数字"))s=saA=int(inputbox("请输入数字"))s=saa=int(inputbox("请输入数字"))S=saa=int(inputbox("请输入数字"))s=saa=int(inputbox("请输入数字"))s=samsgbox("这几个数的和为"s)六、循环语句从上面的程序总结如下:、大小写无所谓(有语言不行如C、C#、java等)、变量第一次使用时值为空、变量赋值多次时其值为最后一次赋的值。、s=sa表示s在原值的基础上加上a的值。六、循环语句Fori=toa=int(inputbox(“请输入数据”))s=sanext(分析程序运行过程及最后i的值)注意问题:死循环六、循环语句思考:Fori=toa=int(inputbox(“请输入第n个数据”))s=sanext练习)水仙花数是指一个n位数(n≥)它的每个位上的数字的n次幂之和等于它本身。(例如:^^^=)提示:个位数为十位数为百位数为个位数为十位数为百位数为复习运算符六、循环语句dowhile条件执行语句loop例:s=***n问到当s<=时n的值是多少?while(条件)执行语句wend六、循环语句循环嵌套:fori=toforj=tomsgbox(“i的值为”i”j的值为”j)nextnext练习在我国的数学经典著作“九章算术”中有这样一道题:百钱买百鸡,公鸡钱一只,母鸡钱一只,小鸡钱只)求得是能有多少种办法买这些鸡如果看不懂的话我用大白话说说:有人要去买鸡,用块钱正好买了只鸡,价格如下:公:$,母:$,小:$只,让你求一共多少种卖法(公母小怎么搭配)请用循环解决这个问题提示:设公鸡数量为a则a的范围为?设母鸡数量为b则b的范围为?七、数组一系列有规则的变量可以使用数字下标来表示。先定义数组dima()数组就是a()、a()、***、a()共个变量也可不指定数组的个数则如下定义:dima()ubound(a)取数组a()的下标例如:产生个对话框输入个数字并将这个数字倒序显示出来。思考下如何编程七、数组dima()Fori=toa(i)=inputbox("请输入第"i"个数据")NextFori=tostepmsgbox(a(i))Next练习、现有字符串“”根据字符“”分割字符计算各字符的总和。提示:split函数传回数组=Split(原始字串,要找的字串,拆成几个数组)t=“”a=split(t,””)相当于a()=a()=***八、VBS对文件的读写操作、打开文件使用opentextfile方法setfs=createobject(“scriptingfilesystemobject”)setts=fsopentextfile(“c:txt”,,true)注意这里需要填入文件的完整路径后面一个参数为访问模式也可不输入路径则打开当前目录下文件为forreading为forwriting为appending第三个参数指定如果指定文件不存在是否创建。八、VBS对文件的读写操作、读取文件读取文件的方法有三个read(x)读取x个字符readline读取一行readall全部读取例如:setfs=createobject(“scriptingfilesystemobject”)setts=fsopentextfile(“c:txt”,,true)value=tsread()line=tsreadlinecontents=tsreadall八、VBS对文件的读写操作textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true我们可以用循环检测又没有到达文件末尾。例如:setfs=createobject(“scriptingfilesystemobject”)setf=fsgetfile(“c:txt”,,false)setts=fopenastextstream(,)dowhiletsatendofstream<>truefread()loop八、VBS对文件的读写操作skip(x) 跳过x个字符skipline 跳过一行八、VBS对文件的读写操作、写文件可以用forwriting和forappending方式来写写有各方法:write(x),该方法输出不换行需要使用chr()换行writeline,该方法自动换行writeblanklines(n)写入n个空行八、VBS对文件的读写操作data=”hello,Ilikescriptprograming”setfs=createobject(“scriptingfilesystemobject”)if(fsfileexists(“c:txt”))thensetf=fsopentextfile(“c:txt”,)fwritedatafwritelinedatafcloseelsesetf=fsopentextfile(“c:txt”,,true)fwriteblanklinesfwritedatafcloseendif练习、利用VBS创建文本文档C:txt里面内容如下:北京、利用VBS弹出输入框在里面可输入姓名创建文本文档C:txt里面内容如下:欢迎(输入框里的姓名)!、利用VBS将文本文档里面的内容合并如下:北京欢迎(输入框的姓名)!九、VBS运行外部命令、打开记事本下面的vbscript代码用记事本打开当前运行脚本的副本。setwshshell=scriptcreateobject("wscriptshell")wshshellrun"windirnotepad"九、VBS运行外部命令、执行CMD命令下面的vbscript代码打开一个命令窗口将路径改为c:并执行dir命令。dimoshellsetoshell=wscriptcreateobject("wscriptshell")oshellrun"cmdk"九、VBS运行外部命令、模拟键盘输入SetobjShell=CreateObject(“WscriptShell”)setWshShell=CreateObject(“WScriptShell”)WScriptSleep       ‘延时秒WshShellSendKeys“hello”       ’模拟输入helloWshShellSendKeys“{Enter}”   ‘模拟输入回车键练习、使用VBS打开记事本在里面模拟输入你的相关信息模板如下:姓名学号当前日期date()当前时间time()、使用VBS打开“CMD”命令在C盘创建以你姓名拼音命名文件夹(mdc:xuweiming)将教师机ftp服务器上的作业doc复制到刚才新建的文件夹下。(上网搜索学习ftp复制文件命令)

VIP尊享8折文档

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/36

VBS语言基础教程

¥25.0

会员价¥20.0

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利