第4章 VB脚本语言
4.6.3 计数循环语句For…Next（例4-14/19） 计数循环语句For… （例4 14/19）
For 变量=初始值 to 终止值 [step 步长] 变量= 步长] 语句组 Next 当省略步长的时候，步长默认为+1 当省略步长的时候，步长默认为+1 步长为正时，终止值应该要大于初始值。
1、<% … %> 2、<Script RunAt=Server>…</Script> RunAt=Server>…
二、在客户端执行时(*.htm,*.html) 二、在客户端执行时(*.htm,*.html)
<Script>… <Script>…</Script>
例4-1
4.2 书写规则
程序代码中，变量名和关键字的字母大小写 不敏感； 语句书写自由：
脚本代码能够嵌入到HTML文档的任何地方 脚本代码能够嵌入到HTML文档的任何地方，通常都是将 HTML文档的任何地方， 所有脚本代码集中放在Head部分，这样可以确保在Body Head部分 所有脚本代码集中放在Head部分，这样可以确保在Body 部分调用代码之前所有脚本代码都被读取并解码。 部分调用代码之前所有脚本代码都被读取并解码。 客户端脚本必须用符号<SCRIPT> </SCRIPT> 客户端脚本必须用符号 <SCRIPT>…</SCRIPT> 把脚本代 <SCRIPT> </SCRIPT>把脚本代 码嵌入到HTML页面中去。 HTML页面中去 码嵌入到HTML页面中去。
这个程序是有bug的，当分数为0或者100时会怎么样？ 这个程序是有bug的，当分数为0或者100时会怎么样？ 小于0或者大于100时会怎么样？ 小于0或者大于100时会怎么样？
<script language=“VBS"> a=inputbox("请输入你的成绩（0-100之间的整数）") if a>100 or a<0 then alert(“诶，又一个小学没毕业的！") elseif a=100 then alert(“不是作弊的话，那你就真的是学得很不错！“) elseif a=0 then alert(“零分？！你太天才了，真的！“) else a=a\10 Select case a case 9 msg=“不错，考得还是可以哈！" case 8,7 msg=“不好不坏，形容的就是你了！" case 6 msg=“生与死的边缘-恭喜，你过关了！" case else msg=“恭喜你，赢得了再学一次的机会！" end select msgbox "你的成绩是："&msg end if </script>
4.4 运算符与表达式
4.4.1数学运算符（例 4.4.1数学运算符（例4-3）
加、减、乘、除、整除、取模、指数、连接符
4.4.2比较运算符 4.4.2比较运算符
等于、小于、大于、不等于、大于等于、小于 等于（值为True或False） 等于（值为True或False）
4.4.3 逻辑运算符（例4-4） 逻辑运算符（例
例： input.htm
<script language="VBscript"> dim strinput strinput=InputBox("请输入你的名字","输入姓名") strinput=InputBox("请输入你的名字","输入姓名") MsgBox strinput </script>
第4章 VBScript语言
本章要点：
脚本语言VBScript基本语言成份 脚本语言VBScript基本语言成份 程序控制结构
4.1 脚本语言
4.1.1 VBScript
在Web中允许嵌入一些小的程序段来完成 Web中允许嵌入一些小的程序段来完成 特定的功能，这样的一些小程序称为脚本， 系统对于这样的“小程序” 系统对于这样的“小程序”，通常是逐行解 释执行。脚本中所使用的命令及语言集称为 脚本语言。(VBS,JS) 脚本语言。(VBS,JS) VBScript是VB的Scripting版，介于 VBScript是VB的Scripting版，介于 HTML和VB编程语言之间，删除了一些涉 HTML和VB编程语言之间，删除了一些涉 及系统底层处理的指令。是ASP的默认脚本 及系统底层处理的指令。是ASP的默认脚本 语言。
强制结束循环：Exit 强制结束循环：Exit do
4.6.7 While…Wend循环 （例4-27） While…Wend循环 27） While 条件 语句组 Wend 小结：例4 小结：例4-28
4.7 函数和子过程
4.7.1 子过程（例4-29/30） 子过程（例4 29/30） 子过程是通过一定形式命名的一段具有某种 特殊功能的程序代码。 定义子过程： 定义子过程： Sub 子过程名称[(参数1，参数2，…)] 子过程名称[(参数1，参数2 程序代码 End Sub 子过程一定要有名称，供调用时使用； 子过程也可以使用参数（形参）。
4.6.4 For Each In…Next(数组循环) In…Next(数组循环) for each 变量 in 数组名 语句组 next (例4-20/21)
<Html> <Head> <Script Language=VBScript> Dim strcolor(5) strcolor(0) = "Red" : strcolor(1) = "Blue" strcolor(2) = "Green" : strcolor(3) = "Yellow" strcolor(4) = "Orange" :strcolor(5) = "Black" For Each n In strcolor Document.Write "<Font size= 4 color =" & n & "> 用集合改变字体颜色" Document.Write "</Font><br>" Next </Script> </Head> </Html>
Document.htm
<script language="VBscript"> Document.write(“ Document.write(“师傅，快来救命啊”) Document.write(“ Document.write(“八戒，坚持住，师傅去叫你大师兄”) </script>
4.6 VBScript的控制结构
同一行可以书写多条语句，用冒号分开； 同一条语句可以分成多行写，用续行符连接； 一行最多允许255个字符； 一行最多允许255个字符；
注释有利于程序的维护、调试和共享：
注释以单引号开始，可以直接出现在语句后面；
4.3 常量、变量和数组
4.3.1 常量(例4-2) 常量(
常量是一种在程序运行过程中不会改变、也不 能改变的量。预定义好的有： Empty,Null,True,False… Empty,Null,True,False…等。 自定义常量： Const 常量名=值 常量名=
使用脚本语言可以编写服务器端脚本， 使用脚本语言可以编写服务器端脚本，也可以编写客户 语言可以编写服务器端脚本 端脚本。服务器端脚本和客户端脚本的主要区别: 端脚本。服务器端脚本和客户端脚本的主要区别
服务器端脚本在Web服务器上执行，由服务器根据脚本的执行结 服务器上执行， 服务器端脚本在 服务器上执行 果生成相应的HTML页面并发送到客户端浏览器中并显示。 页面并发送到客户端浏览器中并显示。 果生成相应的 页面并发送到客户端浏览器中并显示 客户端脚本由浏览器进行解释执行。 客户端脚本由浏览器进行解释执行。
And、Or、Is、Xor（值为True或False） And、Or、Is、Xor（值为True或False）
执行顺序：算术>比较> 执行顺序：算术>比较>逻辑
4.5 输入/输出
（只能在客户端执行）
InputBox函数以对话框的形式接受用户的输入， InputBox函数以对话框的形式接受用户的输入， 调用形式如下：（例4 调用形式如下：（例4-5）
4.3.3 数组
声明数组：dim 数组名( 声明数组：dim 数组名(下界 to 上界) 上界) 下界可以省略，即：dim 数组名(上界) 下界可以省略，即：dim 数组名(上界) 系统默认下界为0 系统默认下界为0，且声明时，下界必须小于上界； 用语句“ 用语句“Option Base 1”可以自定义下界为1， 1”可以自定义下界为1 该语句必须写在所有的过程之前；且一个模块 只能出现一次。
4.6.1 条件语句If …Then 条件语句If If 天要下雨 then
我就带伞 End if （例4-8）
If 条件 then 语句 If 低于3楼 then 低于3
我走楼梯下去
Elseif 低于7楼 then 低于7
If 天要下雨 then
我带雨伞 Else 我就带太阳伞 End if （例4-9）
InputBox(提示[，标题][，默认输入][， 坐标位置][， InputBox(提示[，标题][，默认输入][，x坐标位置][， y坐标位置]) 坐标位置]) 例：InputBox(请输入你的名字,“输入姓名”) InputBox(请输入你的名字, 输入姓名”
MsgBox函数调用形式如下：（例4 MsgBox函数调用形式如下：（例4-6） MsgBox(提示[，按钮][，标题]) MsgBox(提示[，按钮][，标题]) 文档的输出方法： （例4-7） （例4 Document.write(“字符串” Document.write(“字符串”) Document.writeln(“字符串” Document.writeln(“字符串”)
