vbscript流程控制.doc
- 文档编号:4843304
- 上传时间:2023-05-07
- 格式:DOC
- 页数:7
- 大小:56KB
vbscript流程控制.doc
《vbscript流程控制.doc》由会员分享,可在线阅读,更多相关《vbscript流程控制.doc(7页珍藏版)》请在冰点文库上搜索。
Vbscript流程控制
在Vbscript中,可使用条件语句和循环语句来控制脚本代码的执行流程。
使用条件语句可以编写根据判断结果执行执行相应的Vbscript代码。
在Vbscript中可以允许使用一下结构形式的条件语句。
lIf……then……else语句
lSelect……case语句
此外,使用循环语句结构可重复执行一组指定的数据。
在Vbscript中可使用的循环语句结构有一下几种。
lDo……Loop当(直到)条件为true时循环
lWhile……Wend当条件为true时循环
lFor……Next在指定的循环次数内重复执行一系列语句。
lForEachIn……Next对于执行集合内的每一项或数组中的每个元素,重复执行一系列语句。
一、If……then……else语句
1)条件为true时执行单行语句
如果条件为true时仅运行一条语句,可使用If……then……else语句的单行结构。
其格式为
If条件Then语句
例:
DimmyDate
myDate=#8/8/2008#
IfmyDate Document.WritemyDate 2)条件为true时执行多行语句 如果要在条件为true时执行多行语句,必须使用包含endif语句的多行语法结构。 其格式为: If条件then 语句序列 Endif 例: 同上。 3)条件为true和false时分别执行的语句。 其格式为: If条件then 语句序列1 Else 语句序列2 Endif 例3: Dimmydate,word mydate=#8/8/2008# ifmydate>Nowthen word="allright" else word="gameisover" endif document.writemydate&word 4)对多个条件进行判断 其格式为: If条件1then 语句块1 Elseif条件2 语句块2 Elseif条件3 语句块3 ………… Else 语句块n+1 Endif 例: Dimscore score=82 ifscore>=85then document.write"优秀" elseifscore>=75then document.write"良好" elseifscore>=60then document.write"及格" else document.write"不及格" Endif 二、Select……Case语句 Select……Case结构提供了If……then……else结构的一种变通形式,可以从多个语句块中选择执行其中的一个。 其格式为: Select……Case表达式 Case值1 语句块1 Case值2 语句块2 …… …… CaseElse 语句块n+1 EndSelect 例: DimWeek,Myeek Week=WeekDay(Date) SelectCaseWeek Case1 Myweek="星期日" Case2 Myweek="星期一" Case3 Myweek="星期二" Case4 Myweek="星期三" Case5 Myweek="星期四" Case6 Myweek="星期五" CaseElse Myweek="星期六" EndSelect Document.write"今天是"&Date Document.write" 三、Do……Loop循环 在Do……Loop循环中可使用While或Until关键字检查Do……Loop语句中的循环条件,当条件为true时或条件变为true之前,重复执行指定的语句。 1)DoWhile……Loop循环 DoWhile……Loop循环结构在进入循环前就检查条件是否成立。 当条件为true时重复执行指定的若干条语句,直到条件变为false为止。 格式为: DoWhile条件 语句块 Loop 例: Dimn,sum n=0 sum=0 DoWhilen<100 n=n+1 sum=sum+n Loop Document.write"1到100的累加和为"&sum 2)DoUntil……Loop循环 DoUntil……Loop循环结构也是在循环开始时就检查循环是否成立,当条件为False时重复执行指定的若干语句,直到条件为True为止。 格式为: DoUntil条件 语句块 Loop 例: Dimn,sum n=0 sum=0 DoUntiln=100 n=n+1 sum=sum+n Loop Document.write"1到100的累加和为"&sum 3)Do……LoopWhile循环 Do……LoopWhile结构首先执行一遍指定的语句块,之后再检查条件成立与否,当条件为true时反复执行,直到条件变为false为止。 其格式为: Do 语句块 LoopWhile条件 例: Dimn,sum n=0 sum=0 Do n=n+1 sum=sum+n Loopwhilen<100 Document.write"1到100的累加和为"&sum 4)Do……LoopUntil循环 Do……LoopUntil循环结构首先执行一遍指定的语句序列,之后再检查条件成立与否,当条件为false时反复执行,直到条件变为true为止。 其格式为: Do 语句块 LoopUntil条件 例: Dimn,sum n=0 sum=0 Do n=n+1 sum=sum+n LoopUntiln=100 Document.write"1到100的累加和为"&sum 四、While……Wend循环 While……Wend语句结构与Do……Loop结构类似,是为那些熟悉其用法的用户提供的。 在程序运行过程中,当遇到while时,首先判断条件是否成立,若成立,执行循环,不成立则退出循环。 格式为: While条件 语句块 Wend 例: Dimn,sum n=0 sum=0 Whilen<100 n=n+1 sum=sum+n Wend Document.write"1到100的累加和为"&sum 五、For……Next循环 For……Next语句结构用于将指定的语句块运行所设定的次数。 在此种循环中使用计数器变量,该变量的值随每一次循环增加或减少。 其格式为: For循环变量=初始值To终止值【step步长值】 语句块 Next 例: 请选择月份: Fori=1to12 Document.write"" Next 月 六、ForEachIn……Next循环 ForEachIn……Next循环与for……next循环类似,但ForEachIn……Next不是将语句块运行一定的次数,而是专门用来对集合中的每一项或数组中的每个元素重复执行一系列语句。 在不知道集合或数组中的元素的个数时格外有用。 lForEachIn……Next无须指定循环条件,会自动按照集合或数组个数重复执行 lForEach中的变量在循环式代表集合或数组中的各个元素 lForEach中集合或数组无须加括号和下标。 其格式为: ForEach变量In集合或数组 语句序列 Next 例: Dimtotal,j DimScore(4) Score(0)=68 Score (1)=76 Score (2)=90 Score(3)=82 Score(4)=85 totle=0 j=0 ForEachnumInScore j=j+1 Document.write"第"&j&"个成绩为"&Num Document.write" totle=totle+num Next aver=totle/j Document.write""&"平均分为"&aver&"" 七、循环语句的嵌套 Vbscript允许在一个循环结构的循环体内包含另一个循环语句结构,即允许循环嵌套而实现多重循环。 例: Dimi,j,str Fori=1to9 str=" forj=1to9 str=str&" Next str=str&"
"&Myweek
"" ""&i&"*"&j&"="&i*j&" "
document.writestr
next
八、用Exit退出循环
Vbscript语句允许在do……loop语句结构的循环体内设置专门的exitdo语句退出循环。
通常在循环体内的if判断语句中使用exitdo语句,如果if语句的条件判断为true就退出循环,否则循环照常执行。
类似地,vbscript提供了一种退出for循环的exitfor语句,可在for……next或foreachin……next循环中使用。
例:
Randomize
x=int(rnd()*100)
do
ans=cint(InputBox("我已想好一个100以内的整数,你猜是多少呢"))
ifans=Emptythen
MsgBox"gameisover"
exitdo
elseifans>xthen
MsgBox"这数太大了哦"
elseifans MsgBox"这数太小了哦" else MsgBox"恭喜你猜对了" exitdo endif loop
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vbscript 流程 控制