VBScript脚本语言讲义
. TypeName及VarType函数介绍，示例程序如下：可用VarType 函数来返回某个数据的Variant 子类型，如下面的代码：Dim strInput,strVarType,strTypeNamestrInput="hello world"MsgBox strInputstrVarType=VarType(strInput)MsgBox "VarType:"&strVarTypestrTypeName=TypeName(strInput)MsgBox "TypeName:"&strTypeName问题：如下三段语句，结果分别是什么？Dim VarTypeCheckVarTypeCheck = VarType(300)MsgBox VarTypeCheckVarTypeCheck = VarType(#10/19/62#)MsgBox VarTypeCheckVarTypeCheck = TypeName("VBScript")MsgBox VarTypeCheck. Option Explicit 声明，如果变量没有定义就使用要报错：Option ExplicitDim MyDateMyDate = "October 19, 1962"If IsDate(MyDate) thenMyShortDate = CDate(MyDate)End ifMsgBox MyShortDate变量的作用域与存活期：Dim strMainCall ChangeValueSub ChangeValue()Dim strSubstrMain="hello world!"MsgBox "strMain InSub:"&strMainstrSub="hello liuxiaolin"MsgBox "strSub InSub:"&strSubEnd SubMsgBox "strMain in Main:"&strMainMsgBox "strSub in Main:"&strSub数组的定义：Dim 数组名（n）实际上数据会有n+1个元素，下标从0到nDim MyArray(10),iFor i=0 To 10MyArray(i)=iMsgBox MyArray(i)NextMsgBox "min is "&LBound(MyArray) '返回数组的最小可用下标MsgBox "max is "&UBound(MyArray) '返回数组的最大可用上标利用Redim重新定义数据的大小，加上preserve关键字保存原来数组的内容：Dim MyFamily()ReDim MyFamily(1)MyFamily(0)="0"MyFamily(1)="1"ReDim MyFamily(2).'ReDim Preserve MyFamily(2)MyFamily(2)="2"Dim iFor i=0 To 2MsgBox MyFamily(i)Next在字符串中回车换行的方法：chr(13)&chr(10) / vbCr&vbLf / vbCrLf / vbNewLineDim str,str1,str2,str3,str4str="how are you fine,thank you!"str1="how are you"&chr(13)&chr(10)&"fine,thank you!"str2="how are you"&vbCr&vbLf&"fine,thank you!"str3="how are you"&vbCrLf&"fine,thank you!"str4="how are you"&vbNewLine&"fine,thank you!"MsgBox strMsgBox "str1:"&str1MsgBox "str2:"&str2MsgBox "str3:"&str3MsgBox "str4:"&str4Chr用法：Dim strstr=chr(34) & "Hello" & chr(34)MsgBox str.Const常量Const a=1a=2IF…THEN…ELSEIF…ELSE…END IF语句：Dim House,CarHouse=NullCar=nullIf IsNull(House) Or IsNull(Car) ThenMsgBox "现在我们还不成熟，还是再等等吧！"ElseMsgBox "OK,我嫁给你！"End If课堂练习：找出3个整数中的最大数并输出，三个整数存在三个变量intA，intB，intC中.Dim intA,intB,intC,maxintA=8intB=5intC=3If intA>=ntB Thenmax=intAelsemax= intBEnd IfIf max>=intC ThenMsgBox maxElseMsgBox intCEnd IfDim intA,intB,intC,tempintA=CInt(InputBox("请输入整数A:"))intB=CInt(InputBox("请输入整数B:"))intC=CInt(InputBox("请输入整数C:"))If intA>=intB Thentemp =intAelsetemp =intBEnd IfIf temp >=intC ThenMsgBox tempElseMsgBox intCEnd IfSelect…case…case else…End Select语句：Dim strstr=InputBox("请输入你要说的话！")Select Case strCase "hello"MsgBox "hello"Case "how are you"MsgBox "fine,thank you "Case ElseMsgBox "thanks"End Select.Case后接的表达式可以是任意字符，如：case 1，也可以是多个表达式，如：case 5,6,7，但是vbs中不支持给出case后的范围的格式课堂练习：输入一个字符，判断字符类型：大写、小写、数字、其他。
给出相应的提示信息。
Option ExplicitDim strValuestrValue = InputBox ("请输入一个字符：")strValue = CInt(Asc(strValue))MsgBox strValueIf strValue>=65 And strValue<=90 ThenstrValue=1ElseIf strValue>=97 And strValue<=122 ThenstrValue=2ElseIf strValue>=48 And strValue<=57 ThenstrValue=3End ifSelect Case strValueCase 1MsgBox "您输入的是大写字母！"Case 2MsgBox "您输入的是小写字母！"Case 3MsgBox "您输入的是数字！"Case ElseMsgBox "您输入的是特殊字符"End SelectDo…Loop循环语句的使用：推荐使用while循环'即使不符合条件也会做一次.Dim intAgeintAge=0DointAge=intAge+1MsgBox CStr(intAge)Loop While intAge<=5'不符合条件时，则一次也不做intAge=0Do While intAge<=5intAge=intAge+1MsgBox CStr(intAge)Loop'达到条件时就不再进入循环了。
而while语句在达到条件时也要再进入循环一次Dim intAgeintAge=0Do Until intAge=5intAge=intAge+1MsgBox intAgeLoopintAge=0DointAge=intAge+1MsgBox intAgeLoop Until intAge=5'Do循环支持Exit Do语句Dim intAgeintAge=0Do Until intAge=5intAge=intAge+1MsgBox intAgeIf intAge=3 ThenExit DoEnd IfLoopWhile…Wend循环语句的使用：不建议使用，因为没有退出循环的语句Dim intAgeintAge=0.While intAge<5intAge=intAge+1MsgBox intAgeWendFor…Next循环语句的使用：Dim iFor i=1 To 5MsgBox iNextFor i=1 To 5 Step 2MsgBox iNextFor i=5 To 1 Step -1MsgBox iNext练习：接收用户输入的5个数字，然后倒序输出出来Dim intMyArray(4),iFor i=0 To 4intMyArray(i)=InputBox("请输入第"&CStr(i)&"个数字")NextFor i=4 To 0 Step -1MsgBox "您输入的第"&CStr(i)&"个数字是："&CStr(intMyArray(i))Next. For each…Next循环语句的使用：如果生命还有三天，你准备怎么安排呢？Dim countDownDaycountDownDay=Array("看日出","骑自行车","聊天")For Each element In countDownDayMsgBox elementNextWith…End With语句的使用：SystemUtil.Run "E:\WINDOWS\system32\calc.exe"With Window("计算器").WinButton("1").Click.WinButton("+").Click.WinButton("2").Click.WinButton("=").Click.CloseEnd withSub与Function的用法：Dim strCallstrCall=InputBox("请输入你想说的话：")'Shout strCallCall Shout(strCall)Sub Shout(ByVal strEcho)MsgBox strEcho&"！"End SubDim strstr=InputBox("请输入你想说的话：")MsgBox Answer(str)Function Answer(ByVal strAsk)Select Case strAskCase "我爱你"Answer="我也爱你"Case "我恨你"Answer="冤冤相报何时了"Case ElseAnswer="下次再聊"End Select. End Function函数的返回值：格式为：函数名=返回值Function add(x,y)add=x+yMsgBox addEnd Functiona=add (1,2)MsgBox a注意与c和tcl中return的区别参数的值传递ByVal与地址传递ByRef：ByVal 与 ByRef(默认值)这两个是子过程的参数传递时,指定参数按什么传递的ByVal(按值传递)ByRef(按地址传递)具体这样来理解:过程中的参数列表,我们称形参调用过程时的参数列表,我们称实参在调用时,我们要将实参的值传递给形参,这样过程才能拿这些数据参与计算并实现一些功能那么在传递的过程中,就存在这两种传递方式传值时(ByVal),是先给形参开辟一个临时地址,将实参的内容传入这个临时地址,这样,传递后,形参与实参是在两上不同的地址中,也就是说他们是相互独立的传址时(ByRef),是直接将实参的地址传递给形参,这样,形参与实参就共用一个地址,所以,形参内容的改变,也直接改变了实参的内容通过上面的分析,你只要记得:按值传递时(ByVal),形参的改变不会影响到实参按址传递时(ByRef),形参的改变,会影响到实参Dim strstr="hello world!"Call strEcho(str)MsgBox strSub strEcho(ByVal str)str=str&"!!!!!"End SubDim strstr="hello world!"Call strEcho(str)MsgBox strSub strEcho(ByRef str)str=str&"!!!!!"End SubDim msgmsg = "喂，你好吗？"MsgBox msgAnswer msgMsgBox msg'Sub Answer(ByVal sentense)' sentense = "我很好！你呢？"'End SubSub Answer(ByRef sentense)sentense = "我很好！你呢？"End Sub过程的调用在调用过程时，不必使用Call关键字。
第3章VBScript基础知识
6．下载时运行VBScript代码的位置
先直接在页面中写上表格的标签，然后运用VBScript代码在表格内写 字符串。我们可以将VBScript代码嵌入到标签<TD>和<TD>之间
<HTML><HEAD><TITLE>一个VBScript的简单示例 </TITLE></HEAD><BODY> <TABLE><TR><TD> <SCRIPT LANGUAGE="VBScript"> <!-Window.Document.Write("这是一个VBScript的简单示例") --> </SCRIPT> </TD></TR></TABLE></BODY></HTML> 如果希望VBScript代码是在页面下载后立即执行，一般应将VBScript 代码嵌入到页面的合适的位置。如果需要包含于页面元素之内，则应 该将代码嵌入到相应的标签之内，如果希望VBScript代码运行结果处 于页面的最上部，一般应该将代码放在<HEAD>标签和</HEAD>标签 之间，并且不用函数或过程。
7．调用时运行VBScript代码的位置 一般情况下，我们最好是将VBScript代码放在<HEAD>标签和 </HEAD>标签之间 。 <HTML><HEAD><TITLE>一个 VBScript 示例</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-sub alerter() Window.alert ("这是一个VBScript的简单示例") End sub --> </SCRIPT></HEAD><BODY><FORM> <INPUT TYPE="button" VALUE="ALERT" OnClick="alerter()"> </FORM></BODY></HTML> 还有一种嵌入的方法，就是在页面元素事件处理中直接嵌入 VBScript代码 <INPUT TYPE="button" VALUE="ALERT" OnClick="Window.alert('这是一个VBScript的简单示例')"> 这样，在鼠标单击这个按钮时，可以直接调用alert()方法弹出 警告框，而不必编写VBScript的函数或过程。这种方法简洁明了， 但是，一般只适用于在其中嵌入少量VBScript代码的页面，如果 VBScript代码数量增大，会使得代码的可读性变得极差。
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. 循环语句循环语句用于重复执行一段代码，直到满足退出条件为止。
ASP动态网页设计-第4章-VBScript脚本语言
（3）变量的作用域和生存期
如果一个变量在过程或函数内声明，则称其为局部变量或过程级 变量，其作用域仅局限于该过程或函数内部，用于临时存放数据。 如果一个变量在过程或函数外声明，则称其为全局变量或页面级 变量，其作用域为整个网页，用于存放整个程序公用的数据，可 供当前网页中的各个脚本程序访问。
制网页的控件和对象，增强网页的灵活性和多样性。 VBScript是程序开发语言Visual Basic家族的最新成员，是VB的子集，语
法也与VB相同。
VBScript是目前最流行的脚本语言之一。既可在客户端进行编程，也可作 为服务器端编程语言的脚本语言。
在ASP程序设计中，Web服务器IIS默认使用VBScript作为脚本语言 。
<Script Language=“VBScript”> ‘VBScript代码’
</Script>
【例4.1】在HTML网页中弹出一个消息框，内容为“Hello,VBScript!”。
程序代码如下：
<html> <head>
<title>在HTML网页中使用VBScript</title> </head> <body> <script language="VBScript">
结果为：123
（3）字符转换成字符代码
格式：Asc(<字符串表达式>)
功能：返回一个整型数，代表字符串表达式表示的字符串首字母 的字符代码。
例如：Asc("a")
结果为：97(即小写字符a的ASCII码)
第5章 VBScript脚本语言
（7）String（字符串），String变量的长度由字符串决定。 字符串要放在双引号""中。
（8）Date（日期），可取Janary 1,100到December 31,9999。
（9）Empty（空），用来返回未初始化的变量。如果变量 是数返回0，变量是字符串返回""。
2．While…Wend语句，通过循环控制条件 来设置循环次数。
格式：While 条件 语句
Wend 功能：条件为真执行语句，为假执行wend 后的语句。
3．For…Next语句：循环次数固定的循环。 格式：For[循环变量]=[初始值]To[终止][步长]
语句
[Exit For]
[语句]
Next
（10）Currency（货币），比长整型数据的取值范围还大。 小数不能超过4个字节。
（11）Object（对象），包括一个OLE Automation对象 名。
（12）Error（错误），包括一个错误数。
3．变量 在程序中，不同类型的数据可以是变量，也可以 是常量，变量的值在程序执行变化的，而常量则 不变。
注意，在VBScript中系统定义了许多固有常量， 用户自定义的常量不能和固有常量同名。
5.2.2 表达式
运算符用来进行某种运算，被运算的对象称为操 作数。运算符和操作数组成了表达式，操作数可 以是变量、常量或函数，也可以是表达式。 VBScript运算符分为：算术运算符、字符运算符、 日期运算符、关系运算符和逻辑运算符。 表达式格式：Value=Express1 Operator Express2 （1）算术运算符 在VBScript中，ML是一种标记语言，特长是可以用标记指定 页面元素的位置及展示方式，但展示的内容固定， 需要人工定期的重新编写，而且不象一般的程序 语言具备流程控制、条件分支循环结构、输入/输 出互动等能力。VBScript的特长是可以根据数据 库更新、用户要求动态地产生符合要求的新信息， 被用来控制为WWW而制作的HTML页面中的内 容和对象，但控制展示的能力较弱。 JavaScript和VBScript是目前最常用的两种脚本 语言。 在本书中，所编写的程序都是采用VBScript来实 现的。
《脚本语言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 语句，但 如果使用了此语句，则必须将所有参数包含在括号之中 。
VBScript脚本语言讲义
. TypeName及VarType函数介绍，示例程序如下：可用VarType 函数来返回某个数据的Variant 子类型，如下面的代码：Dim strInput,strVarType,strTypeNamestrInput="hello world"MsgBox strInputstrVarType=VarType(strInput)MsgBox "VarType:"&strVarTypestrTypeName=TypeName(strInput)MsgBox "TypeName:"&strTypeName问题：如下三段语句，结果分别是什么？Dim VarTypeCheckVarTypeCheck = VarType(300)MsgBox VarTypeCheckVarTypeCheck = VarType(#10/19/62#)MsgBox VarTypeCheckVarTypeCheck = TypeName("VBScript")MsgBox VarTypeCheck. Option Explicit 声明，如果变量没有定义就使用要报错：Option ExplicitDim MyDateMyDate = "October 19, 1962"If IsDate(MyDate) thenMyShortDate = CDate(MyDate)End ifMsgBox MyShortDate变量的作用域与存活期：Dim strMainCall ChangeValueSub ChangeValue()Dim strSubstrMain="hello world!"MsgBox "strMain InSub:"&strMainstrSub="hello liuxiaolin"MsgBox "strSub InSub:"&strSubEnd SubMsgBox "strMain in Main:"&strMainMsgBox "strSub in Main:"&strSub数组的定义：Dim 数组名（n）实际上数据会有n+1个元素，下标从0到nDim MyArray(10),iFor i=0 To 10MyArray(i)=iMsgBox MyArray(i)NextMsgBox "min is "&LBound(MyArray) '返回数组的最小可用下标MsgBox "max is "&UBound(MyArray) '返回数组的最大可用上标利用Redim重新定义数据的大小，加上preserve关键字保存原来数组的内容：Dim MyFamily()ReDim MyFamily(1)MyFamily(0)="0"MyFamily(1)="1"ReDim MyFamily(2).'ReDim Preserve MyFamily(2)MyFamily(2)="2"Dim iFor i=0 To 2MsgBox MyFamily(i)Next在字符串中回车换行的方法：chr(13)&chr(10) / vbCr&vbLf / vbCrLf / vbNewLineDim str,str1,str2,str3,str4str="how are you fine,thank you!"str1="how are you"&chr(13)&chr(10)&"fine,thank you!"str2="how are you"&vbCr&vbLf&"fine,thank you!"str3="how are you"&vbCrLf&"fine,thank you!"str4="how are you"&vbNewLine&"fine,thank you!"MsgBox strMsgBox "str1:"&str1MsgBox "str2:"&str2MsgBox "str3:"&str3MsgBox "str4:"&str4Chr用法：Dim strstr=chr(34) & "Hello" & chr(34)MsgBox str.Const常量Const a=1a=2IF…THEN…ELSEIF…ELSE…END IF语句：Dim House,CarHouse=NullCar=nullIf IsNull(House) Or IsNull(Car) ThenMsgBox "现在我们还不成熟，还是再等等吧！"ElseMsgBox "OK,我嫁给你！"End If课堂练习：找出3个整数中的最大数并输出，三个整数存在三个变量intA，intB，intC中.Dim intA,intB,intC,maxintA=8intB=5intC=3If intA>=ntB Thenmax=intAelsemax= intBEnd IfIf max>=intC ThenMsgBox maxElseMsgBox intCEnd IfDim intA,intB,intC,tempintA=CInt(InputBox("请输入整数A:"))intB=CInt(InputBox("请输入整数B:"))intC=CInt(InputBox("请输入整数C:"))If intA>=intB Thentemp =intAelsetemp =intBEnd IfIf temp >=intC ThenMsgBox tempElseMsgBox intCEnd IfSelect…case…case else…End Select语句：Dim strstr=InputBox("请输入你要说的话！")Select Case strCase "hello"MsgBox "hello"Case "how are you"MsgBox "fine,thank you "Case ElseMsgBox "thanks"End Select.Case后接的表达式可以是任意字符，如：case 1，也可以是多个表达式，如：case 5,6,7，但是vbs中不支持给出case后的范围的格式课堂练习：输入一个字符，判断字符类型：大写、小写、数字、其他。
VBScript_脚本语言
1.1 VBScript 概述
1.1.3 在HTML中嵌入VBScript
VBScript代码写在标记<SCRIPT>…</SCRIPT>之间，
标记<SCRIPT>…</SCRIPT>可以出现在HTML页面的任何地方
（BODY或HEAD部分之中）。然而最好将所有的一般目标脚 本代码放在HEAD部分中，以使所有脚本代码集中放置。这 样可以确保在BODY部分调用代码之前所有脚本代码都被读 取并解码。
Const Age = 28
19
3.2.2 VBScript 常量
例： 使用系统常量。
3.2 VBScript 语法基础
<HTML> <HEAD> <TITLE>使用系统常量</TITLE> <SCRIPT LANGUAGE="VBScript"> MsgBox "HELLO" & vbCrLf & "VBScript" </SCRIPT> </HEAD> <BODY> </BODY> vbCrLf 是系统预先定义好的常量，代表回车换行。 </HTML>
VBScript是一种基于对象的脚本语言。 脚本：是指嵌入到Web页中的程序代码，利用这些特殊的代码，可以控制网页的 控件和对象，增强网页的灵活性和多样性。 VBScript是程序开发语言Visual Basic家族的最新成员，是VB的子集，语法也与 VB相同。 VBScript是目前最流行的脚本语言之一。既可在客户端进行编程，也可作为服务 器端编程语言的脚本语言。 在ASP程序设计中，Web服务器IIS默认使用VBScript作为脚本语言 。
第3章VBScript脚本语言基础PPT课件
3.1 脚本语言概述
3.1.3 VBScript编程实例(例3-1.html) 一般来说，脚本代码可以放在HTML文 档的任何地方。 常见的位置是将<script>标记对中的脚本 代码放在HTML文档的<head>标记中进行 客户端数据验证和处理。 放在<%和%>之间可以出现在程序的任 何位置进行服务器端数据验证和处理。
11
3.2 VBScript基本语法
3.2.3 常量
常量名称
1．文字常量
True
（1）字符串常量
False
（用双引号作定界符）
Null
（2）数值常量
Nothing
（包括长整型、整型和浮点型）Empty
（3）日期时间型常量
vbCr
（用“#”号括起来） 2．符号常量 可以通过CONST定义 符号常量；固有常量。
语句′注释内容
9
3.2 VBScript基本语法
3.2.2 数据类型 在VBScript中，只有一种数据类型，即 Variant类型，但变量可以根据所赋值的不 同而代表不同类型的数据。 在Variant类型中包含了多种子数据类 型。
10
3.2 VBScript基本语法
1．Byte（字节）2．String（字符串） 3．Integer（整型） 4．Long（长整型） 5．Single（单精度浮点数） 6．Double（双精度浮点数） 7．Currency（货币） 8．Boolean（布尔型） 9．Date/Time（日期/时间） 10．Empty（空类型） 11．Null（空值） 12．Object（对象） 13．Error（错误）
3.2 VBScript基本语法
2．声明变量 1）显式声明方式：使用变量声明语句来声明变 量的方式。
《VBS基础教程》课件
《VBS基础教程》PPT课 件
# VBS基础教程PPT课件大纲
第一部分：VBS概述
什么是VBS?
VBS是一种脚本语言，用 于Windows平台的系统管 理和任务自动化。
VBS的应用领域
VBS广泛应用于系统维护、 网络管理、办公自动化等 领域。
VBS与VB的关系
VBS是VBScript的简称， 是VB的一种方言，但只用 于脚本编程。
第二部分：VBS语法基础
1
声明变量
ቤተ መጻሕፍቲ ባይዱ
使用Dim关键字声明变量，例如：
数据类型
2
Dim x。
VBS支持多种数据类型，如字符串、
整数、浮点数等。
3
运算符和表达式
VBS拥有丰富的运算符和表达式，用
控制语句
4
于数学计算和逻辑判断。
VBS提供了多种控制语句，包括条件
语句和循环语句。
5
过程和函数
通过定义过程和函数，可以使代码更 有组织性和可复用性。
第3章--VBScript编程基础ppt课件(全)
• 3.2.3 变量的赋值
变量的赋值比较简单。一般情况下，编制表达式的左边，要赋的值在表达式的右 边。变量的赋值方式可以采用以下方式： • “=”号赋值。例如给变量count赋值100，如下：
count = 100 • 直接使用函数返回值。例如：
A=GetValue(b,c) • 复制对象的赋值。该赋值方式需要使用Set，例如：
Байду номын сангаас
3.5 VBScript中常量的定义
常量就是拥有固定数值的名称，常量可以代表字符串、数字等常数。常量一经声明 ，在程序执行期间，其值不会发生改变。
声明常量后可以在程序的任何部分使用该常量来代表特定的数值，从而方便程序 的编写。例如，在计算程序中常用PI来表示π的近似值3.141 592 6，这样即不容易出错 ，程序也更加简洁明了。这样，在程序的其他地方就可以使用PI来表示π的近似值了。 例如：
<% Const PI=3.1415926 S=PI*R^2
%>
'指定PI为常量，其值为3.141 592 6 '求半径为R的圆的面积，并将值赋给S
3.6 赋值语句
与其他编程语言一样，VBScript中也包含一些基本的语句。这些语句主 要可分为赋值语句、条件语句与循环语句3类。其中条件语句与循环语句能够 在程序中控制程序的流程，而赋值语句的作用是将一个数据赋给一个变量。 在VBScript中，赋值语句就是一条赋值表达式，其一般形式为：
变量 = 表达式
其中，变量可用是数值变量，也可以是字符串变量。同样，表达式可以是数值型 表达式或字符串表达式。变量的类型应与表达式的类型一致。例如以下代码声明一个 变量，并给变量count赋值10。