VBS语言基础教程
VBS语言基础教程
一、概述
• 优点： • 编写简单 • 功能强大
2020/7/1
二、变量
• 盛放数据的容器。占用一定的内存空间。 • a=12 • b=“你好！” • 可事先定义变量，如： • dim c
2020/7/1
三、对话框
• 1、输入框 • a=inputbox(“请输入第一条边的边长”,”第一条边”) • 2、输出框 • Msgbox(“输入错误！”)
练习5
• 1、现有字符串“10\12\34\23\45\35\45”，根据字 符“\”分割字符，计算各字符的总和。
• 提示： • split函数 • 传回数组 = Split(原始字串, 要找的字串, 拆成几个
数组) • t= “10\12\34\23\45\35\45” • a=split(t,”\”) • 相当于a(0)=10 a(1)=12 ***
2020/7/1
六、循环语句
• 从上面的程序总结如下： • 1、大小写无所谓（有语言不行，如C、C#、java
等） • 2、变量第一次使用时值为空 • 3、变量赋值多次时，其值为最后一次赋的值。 • 4、s=s+a表示，s在原值的基础上加上a的值。
2020/7/1
六、循环语句
• For i=1 to 5 • a=int(inputbox(“请输入数据”)) • s=s+a • next • (分析程序运行过程及最后i的值) • 注意问题： • 死循环
2020/7/1
八、VBS对文件的读写操作
• 1、打开文件 • 使用opentextfile方法 • set fs =createobject(“scripting.filesystemobject”) • set ts=fs.opentextfile(“c:\1.txt”,1,true) • 注意这里需要填入文件的完整路径，后面一个参
VBS的基础教程(常用运算)
VBS的基础教程(常用运算)第一篇（共六篇）我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad)，我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS开发, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因为这些工具可以提供"语法高亮"等功能, 更加方便开发, 用哪一个随你喜好, 我比较喜欢Edit Plus，ScriptCryptor也不错OK, 我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数'（上面及本行可以不必写入源代码中，下面才是运行的代码）Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg)Msgbox name把上面的程序清单输入到记事本里面, 然后保存为以.vbs为扩展名的文件（如果在文件名上没有“.***”，就打开控制面板-文件夹选项-查看-取消隐藏已知文件类型的扩展名).然后双击, 观察运行结果.注意:为了使你学得更好，推荐自己输入程序清单, 尽量不要复制->粘贴我来解释一下这个程序, 第一行和第二行的开头分别是"REM"语句和" ' ", 这两个东西的作用是相同的, 表示之后的文字是注释, 就是说符号后的什么也不干,只是用来说明这段程序的功能, 版权信息等等. 注释行是程序最重要的部分之一, 尽管它不是必需的, 但对于其他人阅读源代码, 以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰, 简洁的注释.Dim用来声明一个变量, 在VBS中, 变量类型并不是那么重要, 就是说VBS会帮你自动识别变量类型, 而且变量在使用前不一定要先声明, 程序会动态分配变量空间. 在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"), 也不用考虑是不是字符串(一串字符, 比如:"Hello World"), VBS会自动帮你搞定. 所以第三行语句可以删除, 效果不会变, 但我强烈反对这么做, 一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字, 但不能使用vbs已经定义的字, 比如dim, 也不能是纯数字.下一行被称之为"赋值", "="是赋值符号, 并不是数学中的等于号, 尽管看起来一样.这是正统的理解, 你要理解成等于也没有什么不可. 赋值号的左边是一个变量, 右边是要赋给变量的值, 经过赋值以后, msg这个变量在程序中等同于"请输入你的名字:"这个字符串,但当msg被再次赋值的时候, 原值就会消失. 不光字符串, 其他任何变量都这样被赋值, 例如: a=2, b=12.222等等.再往下,Inputbox和Msgbox是VBS内建的函数, 一个函数就相当于一个"黑箱", 有输入(参数)和输出(返回)值, 你可以不用了解函数是怎么运作的, 只要了解这个函数能干什么就行了, 我们也可以定义自己的函数, 不过那要等到以后再讲. 现在我们只要了解, 一个函数可以有返回值也可以没有, 可以有参数也可以没有. 例如Inputbox就是有返回值的函数, 我们用赋值号左边的变量来"接"住InputBox的返回值--就是你输入的内容. 在inputbox右边的括号里是参数列表, 每个参数用","分隔开, 每个参数有不同的功效, 比如第一个参数会显示在提示里, 我们把msg这个变量作为第一个参数传给了Inputbox 函数, 而msg="请输入你的名字:", 所以我们在对话框的提示栏就会看到"请输入你的名字:" 第二个参数是对话框的标题, 我们用直接量(学名叫"常量", 这里是"字符串常量")传递给函数, 当然你也可以传递变量. Inputbox还有很多参数, 比如你在"名称"后面再加一个","然后输入随便一串字符(字符串,用双引号""包裹起来的一串字符叫做字符串)然后运行, 看看结果. 你会发现用于输入的文本框有了默认的值, 这就是第三个参数的作用.Msgbox函数是用来输出的函数, 在VBS中没有专门的输出函数(BASIC中的print,C中的printf), 所以我们只能用对话框来观察输出结果, Msgbox的必要参数只有一个, 就是要输出的内容, 在这种情况下, 我们不需要理会msgbox 的返回值. 关于Msgbox和Inputbox我们以后还会再讨论, 今天只是热热身, 到此为止.要点:1) 注释(以REM或'开头)行在程序中不起作用, 但能让别人更容易读懂你的程序.2) 变量好像一个盒子, 或一个代号, 可以代表你想代表的东西. 变量赋值使用"="3) 以""包裹起来的字符称之为"字符串"4) 函数像一个"黑箱", 有参数和返回值, 用"="左边的变量可以接住返回值5) Inputbox函数弹出一个输入对话框,Msgbox则用于输出作业:1) 试验Inputbox的第三个参数2) 写一段程序输出你的年龄3) 写一段程序进行3次输入, 分别输入你和你父母的姓名(要求显示提示), 并分3次输出第二篇（共六篇）我真没想到, 第一次的作业竟然有人不会.看来要讲的非常非常细致才行, 嗯, 今天讲各种"量"和基本运算先说常量, 这个比较简单.什么是常量呢, 常量就是其值不可变化的量.常量分为两种:第一种, 自然常量. 这叫是因为它们本身就是常量, 你怎么更改21的值呢? 他永远都是21, 不可能变成46如果你在程序中使用"21=46", 这样的语句将会引发一个错误. 同样的, 字符串也是常量(还记得字符串吗? 就是包裹在""之间的一串字符), "Hello World"就是一个例子, 如果你使用"Hello World"="Bye"这样的语句同样会引发一个错误. 你能举出自然常量的更多例子吗?第二种, 是我们自己定义的常量,这种量也使用代号, 它们也被赋值, 但和变量的不同点在于, 他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误. 定义一个常量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字, 不能作为变量名或常量名使用)格式是:const 常量名=常量值.例如:const PI=3.1415926const NAME="记忆碎片"这样我们就定义了两个常量, PI和NAME, 一般说来, 常量名全部使用大写, 但也可以不用, 随你喜好. 将一些在程序中不需要改变的值定义为常量是个好习惯, 这样能防止不必要的意外. 另外, 使用自定义常量也可以减少你的工作量. 比如:msgbox "Hello World"msgbox "Hello World"msgbox "Hello World"msgbox "Hello World"msgbox "Hello World"这个程序输出五次Hello World, 如果你想要改变输出为Bye-Bye, 就必须修改全部程序, 当然你可以手动修改5次, 但如果你要输出1000次呢? 常量就可以替我们解决这个问题:const hw="Hello World"msgbox hwmsgbox hwmsgbox hwmsgbox hwmsgbox hw这样当你要修改输出的时候只要修改hw的值就行了.好了, 现在我们来看看编程的第一块重要"基石":变量. 解释变量最好的办法我觉得是"盒子", 一个变量好像一个盒子, 里面只能装一个东西, 当你要装进去别的东西的时候必须把原有的东西拿出来. 这个"盒子"是有名称的, 当你在程序中使用变量的时候, 系统会打开盒子取出里面的东西, 让这些东西参与处理, 而不是盒子. 有些语言是很依赖"盒子"里面装些什么东西, 这样才能找到合适的"盒子"(比如C语言), 但VBS给我提供的是能够自动伸缩的"魔术盒", 我们不用关心装进去的是什么东西, VBS会自动调整盒子的大小. 例如:Dim a1,a2,a3a1=14a2=12.23a3="Hello"而不用像C语言那样麻烦: 或者是VB的正规声明(VB可以声明也可以不用)那样:int a1; Dim a1 as integerfloat a2; Dim a2 as Doublechar* a3; Dim a3 as stringa1=14; a1=14a2=12.23; a2=12.23a3="Hello"; a3="Hello"嗯……扯远了……变量有什么用呢? 哇, 那用处可大了. 最简单, 你并不能确定程序运行时变量的值, 比如前一节课我们编的输入姓名的程序, 你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗? 就是你输入的内容), 所以你就没有办法应对各种情况, 但我们用name这个"盒子"把用户的名字装起来, 到用的时候我们只要知道name这个盒子的名字就行了, 系统会自己打开它并把里面的内容拿出来用. 再举个例子, 我们编写一个程序计算一个矩形的面积, 比如这个程序要发给小学生使用:dim a,b,sa=15b=12s=a*bmsgbox s这样就可以求出长为15,宽为12的矩形的面积了, 是不是很简单? 当然,这个程序也可以这样写:dim ss=15*12msgbox s这样看起来程序短了许多, 也节约内存, 但两种都不是鼓励的做法, 为什么? 请看下面.现在, 我们的程序要变得像点样子才行, 谁的程序写出来还要别人修改源代码才能用啊?所以, 我们要接受用户的输入, 还记得吗? InputBox函数.修改后程序如下:dim a,b,sa=inputbox("请输入矩形的长:")b=inputbox("请输入矩形的宽:")s=a*bmsgbox sok, 这么一修改, 无论用户输入怎样的数据, 我们都能计算出矩形的面积了. 如果你用s=15*12能改吗? 当然不行.我想你已经发现了, vbs中的数学计算和真正的算术没有什么不同, +,-,*,/,(),[],{}都是一样的用法, 比如:dim ansans=12+32/4+[(23-10)*2]msgbox ans四则运算的法则在编程中同样生效, 你可以在编程中重新获得小学时候的乐趣(你恨数学?那就别学电脑了).在编程中有一个有趣的运算符是"mod", 这个运算符叫做"取余运算符", 就是取得一次除法的余数, 例如dim aa=16 mod 5你知道a等于几吗? Bingo! 没错, 就是1. 因为16 / 5 =3....1, 所以mod计算的结果就是1.还有一个运算符是"^"(就是键盘"6"上面的小箭头), 他表示"乘幂"(或者是"方") 比如:dim a,b,ca=2b=a^2c=a^3msgbox bmsgbox c则b=a*a=4, c=a*a*a=8好了，我们一次不要讲太多, 这次就讲到这里, 现在总结一下.要点:1) 常量分为自然常量和自定义常量, 常量的值不可修改2) 变量就像盒子, 我们不在乎盒子里装的是什么, 但一定要知道盒子的名字3) 四则运算在编程中没有任何不同4) MOD是取余运算作业:1) 编一个程序, 计算圆形的面积, 半径由用户给出(使用Inputbox) PI取值3.141592) 编一个程序取得20 / 3 的余数第三篇（共六篇）首先, 我来解决一下上次课程的几个疑问第一, 那个余数问题, 16 / 5 = 3……1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思.第二, 请看一下程序清单:（1）Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=a*2+b*2msgbox c这个输入1、2时是6（2）Dim a,b,ca=inputbox("a是:","输入半径")b=Inputbox("b是:","输入半径")c=(a+b)*2msgbox c这个输入1、2时是24为什么会不一样呢? 在数学上c=(a+b)*2 和c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS 中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" ，have you understood? 你还记得InputBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现, 如果这个字符串的内容是一个数且对他进行数学运算, 则把字符串强制转换成数参与运算, 如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果(12)是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24.怎么修改这个程序呢? 我们需要用到另一个内建的函数:int, int函数的功能是将输入值转化成整数值, 我们这样修改:c=(int(a)+int(b))*2这个意思就是把a作为参数传递给int函数, int函数就会返回那个整数(你的输入值), 然后让返回值参与运算, 这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c) 'c是你自己的变量另外，还有一个函数：CDbl。
vbs 教程
vbs 教程VBScript（Visual Basic Script）是一种微软开发的脚本语言，可以用于编写简单的脚本程序。
本教程将介绍VBScript的基本语法以及常用的功能。
1. 注释在VBScript中，可以使用单引号（'）来添加注释。
注释是不会被程序执行的内容，通常用于解释代码的作用或者提醒自己以后查看代码时的用途。
示例：```' 这是一个注释MsgBox "Hello, World!"```2. 变量变量用于存储和操作数据。
在VBScript中，变量由一个名称和一个值组成。
变量的名称是由字母、数字和下划线组成的，不能以数字开头。
示例：```Dim name ' 声明一个变量name = "John" ' 给变量赋值MsgBox "Hello, " & name & "!" ' 输出变量的值```3. 数据类型VBScript支持多种数据类型，包括整数（Integer）、浮点数（Double）、字符串（String）等。
根据变量存储的数据类型，可以进行不同的操作和运算。
示例：```Dim age ' 整数类型age = 25Dim weight ' 浮点数类型weight = 65.5Dim name ' 字符串类型name = "John"MsgBox "I am " & age & " years old and my weight is " & weight & "kg."```4. 条件语句条件语句用于根据条件的结果执行不同的代码块。
VBScript提供了多种条件语句，如If语句、Select Case语句等。
示例：```Dim scorescore = 80If score >= 90 ThenMsgBox "优秀"ElseIf score >= 80 ThenMsgBox "良好"ElseIf score >= 60 ThenMsgBox "及格"ElseMsgBox "不及格"End If```5. 循环语句循环语句用于重复执行一段代码，直到满足退出条件为止。
《脚本语言VBS》PPT课件
Function过程通过函数名返回一个值，这个值是在 过程的语句中赋给函数名的。
Function返回值的数据类型总是Variant。
3.3.1 VBScript中的过程
3．调用过程 在代码中使用Sub和Function过程具体方法分别如
3.1 VBScript脚本语言简介
大多数脚本代码包含在Sub或Function过程中，过 程中的代码只有当过程被调用时才被执行。
有时VBScript代码放在过程之外、Script块之中。 这类代码仅在HTML页面加载时执行一次。
这样就可以在加载Web页面时初始化数据或动态地 改变页面的外观。
对VBScript有大概了解后，下面可以开始VBScript 脚本语言的学习了。
在基于0的数组中，数组元素的数目总是括号中显示的数目加1 。这种数组被称为固定大小的数组。
在数组中使用索引为数组的每个元素赋值。从0到2，将数据 赋给数组的元素，如下所示：
<% Dim A(2) A(0) = 256 A(1) = 324 A(2) = 100
%>
3.3 VBScript的过程和函数
下： （1）调用Function过程时，函数名必须用在变量赋
值语句的右端或表达式中。例如： Temp = Celsius(fDegrees)
或 MsgBox “温度为“&Celsius(fDegrees) & “摄氏度。 ”
3．调用过程
（2）调用Sub过程时，只需输入过程名及所有参数 值，参数值之间使用逗号分隔。不需使用Call 语句，但 如果使用了此语句，则必须将所有参数包含在括号之中 。
VBS的基础教程
VBS的基础教程VBS（Visual Basic Script）是一种用于 Windows 系统的脚本语言，广泛应用于自动化任务、服务器脚本和系统管理等领域。
在 VBS 中，我们可以进行各种运算操作来实现数值的计算和处理。
本文将介绍 VBS 的基础教程，涵盖常用的数值运算操作。
1.加法运算：在VBS中，可以使用加号（+）来进行加法运算，例如：```num1 = 10num2 = 5result = num1 + num2```上述代码中，变量 `num1` 和 `num2` 分别赋值为 10 和 5，然后使用加号将它们相加，并将结果赋值给变量 `result`。
2.减法运算：在VBS中，可以使用减号（-）来进行减法运算，例如：```num1 = 10num2 = 5result = num1 - num2```上述代码中，变量 `result` 的值将为 5，即 `num1 - num2` 的结果。
3.乘法运算：在VBS中，可以使用星号（*）来进行乘法运算，例如：```num1 = 10num2 = 5result = num1 * num2```上述代码中，变量 `result` 的值将为 50，即 `num1 * num2` 的结果。
4.除法运算：在VBS中，可以使用斜杠（/）来进行除法运算，例如：```num1 = 10num2 = 5result = num1 / num2```果。
需要注意的是，在VBS中进行除法运算时，如果除数为0，则会产生一个错误。
5.求余运算：在 VBS 中，可以使用模运算符（Mod）来进行求余运算，例如：```num1 = 10num2 = 3result = num1 Mod num2```上述代码中，变量 `result` 的值将为 1，即 `num1` 除以 `num2` 的余数。
6.幂运算：在VBS中，可以使用双星号（**)来进行幂运算，例如：```num1 = 2num2 = 3result = num1 ** num2```方。
VBS入门教程(初学者适用)
VBS教程(文本版)就像多数计算机教程一样,我们从“Hello World!”程序开始我们的练习。
什么?不知道是什么意思?就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序,执行这个程序的结果就是在计算机的屏幕上或者dos窗口中显示一行文字:Hello World!好了,我们开始吧。
打开你的“记事本”程序,在编辑窗口填写:msgbox "Hello World!"然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设为桌面,在“文件名”一栏中填写kk.vbs,单击“保存”就可以了。
然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的kk.vbs,然后双击。
看到弹出的对话框了没有,单击“确定”,对话框消失了。
[作者:临汾市外事旅游局薛靖澜,转载请注明出处]难看了点,不过确实是你编写的第一个脚本程序。
说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,你保存到其他的地方完全没有问题,只要你知道你保存在什么地方就可以了,什么?是废话,自己保存的当然知道保存在那里了。
不,自己保存的文件自己找不到的人我见的多了去了。
文件名你可以随意填写,不一定非要写kk,只要符合Windows的文件命名规则就可以了,但是扩展名必须是vbs,什么?不知道什么是扩展名?就是文件名中“.”后的那部分,简单说,就是vbs脚本文件命名时必须是: xxx.vbs,其中xxx你随意。
说明之二:在记事本编辑窗口中写的这行是什么意思?Msgbox是VBS内建的函数,每一个函数都可以完成一定的功能,你只需要按照语法要求,在函数的相应部分填写相应的内容就可以了,这部分内容我们称为参数,当然函数执行的结果我们称为返回值,一个函数可以有返回值也可以没有,可以有参数也可以没有。
你不用了解函数是怎么运作的,只要了解这个函数能干什么就行了。
Msgbox语法:msgbox "对话框内容", , "对话框的标题"你不妨用记事本打开刚才的文件在编辑窗口中输入:msgbox "Hello World!" , , "系统提示"执行一下,看看效果和位置。
VBS 语言使用方法
5) Inputbox函数弹出一个输入对话框,Msgbox则用于输出
例：
REM 输入并回显你的名字
’使用InputBox和Msgbox函数
Dim name,msg
msg="请输入你的名字:"
name=Inputbox(msg,"名称")
常量：
格式是:const 常量名=常量值.
例如: const PI=3.1415926
const NAME="记忆碎片"
二、进阶
数据类型转换：
1）
Dim a,b,c
a=inputbox("a是:","输入半径")
b=Inputbox("b是:","输入半径")
Msgbox(name)
上例中，Dim用来声明一个变量, 在VBS中, 变量类型并不是那么重要, 就是说VBS会帮你自动识别变量类型, 而且变量在使用前不一定要先声明, 程序会动态分配变量空间. 在VBS中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"), 也不用考虑是不是字符串(一串字符, 比如:"Hello World"), VBS会自动帮你搞定. 所以第三行语句可以删除, 效果不会变
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
VBS语言使用方法
概述：VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. 我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了
vbs手册的中文版
vbs手册的中文版VBS（Visual Basic Script）是一种基于Visual Basic的脚本语言，广泛应用于微软的操作系统和应用程序中。
VBS 手册是一本为广大VBS开发者提供的实用指南，旨在帮助读者快速掌握VBS的基本知识、语法规则、内置对象和函数，以及实际应用场景。
一、简介1.VBS（Visual Basic Script）概述VBS 是一种轻量级的脚本语言，用于自动化任务和简化和扩展应用程序的功能。
它具有简单易学、语法易懂、高效执行等特点，适用于各种编程场景。
2.VBS 手册的作用与适用对象VBS 手册为初学者和专业开发者提供了全面的VBS编程教程，包括基础知识、常用对象、内置函数、实际应用等。
适用于所有对VBS编程感兴趣的读者，尤其是那些希望提高在微软技术领域中的技能水平的开发者。
二、VBS 基础语法1.变量与数据类型VBS中的变量无需声明，直接使用即可。
变量类型包括字符串（String）、数字（Number）、布尔值（Boolean）、日期（Date）等。
2.运算符与表达式VBS支持常见的数学运算符、比较运算符和逻辑运算符，如+、-、*、/、%等。
此外，还支持字符串连接运算符（&）和条件运算符（IIF）。
3.控制结构a.顺序结构：按照代码的编写顺序依次执行。
b.分支结构：根据条件选择执行不同的代码块。
c.循环结构：重复执行一段代码，直到满足特定条件。
三、VBS 常用内置对象1.集合对象a.集合的创建与使用：使用Dim语句创建集合，如Dim myColl As Collection。
b.集合中的元素操作：使用Add、Remove、Item等方法对集合中的元素进行操作。
2.数学与字符串对象a.数学对象的属性与方法：如Sqr（计算平方根）、Round（四舍五入）等。
b.字符串对象的属性与方法：如Length（获取字符串长度）、Left（提取左边字符）、Mid（提取中间字符）等。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2013-7-14
六、循环语句
• 从上面的程序总结如下： • 1、大小写无所谓（有语言不行，如C、C#、java 等） • 2、变量第一次使用时值为空 • 3、变量赋值多次时，其值为最后一次赋的值。 • 4、s=s+a表示，s在原值的基础上加上a的值。
2013-7-14
六、循环语句
• • • • • • • For i=1 to 5 a=int(inputbox(“请输入数据”)) s=s+a next (分析程序运行过程及最后i的值) 注意问题： 死循环
2013-7-14
七、数组
• • • • • • • dim a(9) For i=0 to 9 a(i)=inputbox("请输入第"&i&"个数据") Next For i=9 to 0 step -1 msgbox(a(i)) Next
2013-7-14
练习5
• 1、现有字符串“10\12\34\23\45\35\45”，根据字 符“\”分割字符，计算各字符的总和。 • 提示： • split函数 • 传回数组 = Split(原始字串, 要找的字串, 拆成几个 数组) • t= “10\12\34\23\45\35\45” • a=split(t,”\”) • 相当于a(0)=10 a(1)=12 ***
• • • • • • • • • 语法： If(条件1) then 执行语句1 Elseif(条件2) then 执行语句2 *** Else 执行语句n End if
2013-7-14
练习2
• 1、制作一个成绩判断程序：弹出一个输入框，输 出该成绩等级。（成绩小于0分或大于100分，出 错；成绩大于或等于85分为优秀；成绩在0－59 分之间的为不及格；60－70为及格；71－84分的 为良） • 测试数据为-20，0，59，60，61，70，71，84， 85，100， 120查看结果是否满足程序要求
• 复习运算符
2013-7-14
六、循环语句
• • • • do while条件 执行语句 loop 例：s=1+2+3+*** +n，问到当s<=50时，n的值是 多少？ • while(条件) • 执行语句 • wend
2013-7-14
六、循环语句
• 循环嵌套： • for i=1 to 10 • for j=1 to 5 • msgbox(“i的值为”&i&” j的值为”&j) • next • next
2013-7-14
五、条件语句
• • • • • • • • • 语法： 1、 If(条件) then 执行语句 end if 例: If(score>100) then Msgbox(“成绩出错”) End if
• • • • • • 2、 If(条件) then 执行语句1 else 执行语句2 end if
2013-7-14
九、VBS运行外部命令
• 1、打开记事本 • 下面的 vbscript 代码用记事本打开当前运行脚本 的副本。 • set wshshell = script.createobject("wscript.shell") • wshshell.run "%windir%\notepad "
2013-7-14
六、循环语句
• • • • • • • • • • • • • 某一语句需要执行许多次的时候使用 例如，产生五个对话框，对这五个对话框的数求和 a=int(inputbox("请输入数字")) s=s+a A=int(inputbox("请输入数字")) s=s+a a=int(inputbox("请输入数字")) S=s+a a=int(inputbox("请输入数字")) s=s+a a=int(inputbox("请输入数字")) s=s+a msgbox("这几个数的和为"&s)
2013-7-14
六、循环语句
• • • • • 思考： For i=1 to 5 a=int(inputbox(“请输入第n个数据”)) s=s+a next
2013-7-14
练习3
• 1)水仙花数是指一个 n 位数 ( n≥3 )，它的每个位 上的数字的 n 次幂之和等于它本身。（例如： 1^3 + 5^3 + 3^3 = 153） • 提示： • 153 个位数为3 十位数为5 百位数为1 • 236 个位数为6 十位数为3 百位数为2
2013-7-14
八、VBS对文件的读写操作
• • • • • • • • • • • • • data=”hello, I like script programing” set fs =createobject(“scripting.filesystemobject”) if (fs.fileexists(“c:\2.txt”)) then set f =fs.opentextfile(“c:\2.txt”,8) f.write data f.writeline data f.close else set f=fs.opentextfile(“c:\2.txt”,2, true) f.writeblanklines 2 f.write data f.close end if
2013-7-14
八、VBS对文件的读写操作
• textstream对象的atendofstream属性。当处于文 件结尾的时候这个属性返回true.我们可以用循环 检测又没有到达文件末尾。例如： • set fs =createobject(“scripting.filesystemobject”) • set f=fs.getfile(“c:\1.txt”,1,false) • set ts=f.openastextstream(1,0) • do while ts.atendofstream<>true • f.read(1) • loop
2013-7-14
一、概述
• 基本分为3大类应用： • 1、vbs可以做网页控制脚本，做页面特效，但是 只支持ie浏览器。 • 2、vbs可以写ASP，在服务器端运行。查询数据 库，输出ASP网页 • 3、Windows Script Host，一个文本文件，后缀 命名成.vbs是可以直接在windows里运行的，常 被病毒作者做成恶意代码。也可以写一些小的应 用，比如一级考试系统安装，一切傻瓜化完成。
2013-7-14
练习1
• 1、制作一个求长方体体积小程序，分别弹出三个 输入框，分别输入长、宽、高，弹出对话框显示 出体积 • 2、 编一个程序, 计算圆形的面积, 半径由用户给 出 (使用Inputbox) PI取值3.14159
2013-7-14
五、条件语句
• 程序在某种条件执行的时候就要用到条件语句
2013-7-14
一、概述
• 优点： • 编写简单 • 功能强大
2013-7-14
二、变量
• • • • • 盛放数据的容器。占用一定的内存空间。 a=12 b=“你好！” 可事先定义变量，如： dim c
2013-7-14
三、对话框
• • • • 1、输入框 a=inputbox(“请输入第一条边的边长”,”第一条边”) 2、输出框 Msgbox(“输入错误！”)
2013-7-14
八、VBS对文件的读写操作
• skip(x) 跳过x个字符 • skipline 跳过一行
2013-7-14
八、VBS对文件的读写操作
• • • • 3、写文件 可以用forwriting和forappending方式来写 写有3各方法： write(x) ,该方法输出不换行，需要使用chr(13)换 行 • writeline ,该方法自动换行 • writeblanklines(n) 写入n个空行
2013-7-14
九、VBS运行外部命令
• 2、执行CMD命令 • 下面的 vbscript 代码打开一个命令窗口，将路径 改为 c:\，并执行 dir 命令。 • dim oshell • set oshell = wscript.createobject ("wscript.shell") • oshell.run "cmd /k "
2013-7-14
练习2
• 1、制作一个成绩判断程序：弹出一个输入框，输 出该成绩等级。（成绩大于85分为优秀，否则为 不优秀） • 2、制作一个三角形判断程序：分别弹出三个输入 框，分别输入三条边的长度，弹出对话框显示该 三角形是否为三角形。（任意两边之和大于第三 边）
2013-7-14
五、多重条件语句
2013-7-14
八、VBS对文件的读写操作
• • • • • • • • • • • 2、读取文件 读取文件的方法有三个 read(x)读取x个字符 readline读取一行 readall全部读取 例如： set fs =createobject(“scripting.filesystemobject”) set ts=fs.opentextfile(“c:\1.txt”,1,true) value=ts.read(20) line=ts.readline contents=ts.readall
2013-7-14
八、VBS对文件的读写操作
• • • • •
• • • •
1、打开文件 使用opentextfile方法 set fs =createobject(“scripting.filesystemobject”) set ts=fs.opentextfile(“c:\1.txt”,1,true) 注意这里需要填入文件的完整路径，后面一个参 数为访问模式；也可不输入路径，则打开当前目 录下文件 1为forreading 2为forwriting 8为appending 第三个参数指定如果指定文件不存在，是否创建。