vbscript流程控制.doc

Vbscript流程控制在Vbscript中，可使用条件语句和循环语句来控制脚本代码的执行流程。使用条件语句可以编写根据判断结果执行执行相应的Vbscript代码。在Vbscript中可以允许使用一下结构形式的条件语句。l Ifthenelse 语句l Selectcase语句此外，使用循环语句结构可重复执行一组指定的数据。在Vbscript中可使用的循环语句结构有一下几种。l DoLoop 当（直到）条件为true时循环l WhileWend 当条件为true时循环l ForNext 在指定的循环次数内重复执行一系列语句。l For Each InNext 对于执行集合内的每一项或数组中的每个元素，重复执行一系列语句。一、Ifthenelse 语句1) 条件为true时执行单行语句如果条件为true时仅运行一条语句，可使用Ifthenelse语句的单行结构。其格式为If 条件 Then 语句例：Dim myDatemyDate=#8/8/2008#If myDatenow then myDate=NowDocument.Write myDate2) 条件为true时执行多行语句如果要在条件为true时执行多行语句，必须使用包含end if语句的多行语法结构。其格式为：If 条件 then语句序列End if例：同上。3) 条件为true和false时分别执行的语句。其格式为：If 条件 then语句序列1Else语句序列2End if例3：Dim mydate,wordmydate=#8/8/2008#if mydateNow thenword=all rightelseword=game is overend ifdocument.write mydate&word4) 对多个条件进行判断 其格式为：If 条件1 then 语句块1Elseif 条件2 语句块 2Elseif 条件3 语句块 3Else语句块n+1End if例：Dim scorescore=82if score=85 thendocument.write优秀elseif score=75 thendocument.write良好elseif score=60 thendocument.write及格elsedocument.write不及格End if二、SelectCase语句SelectCase结构提供了Ifthenelse结构的一种变通形式，可以从多个语句块中选择执行其中的一个。其格式为：SelectCase 表达式 Case 值1 语句块1Case 值2 语句块2 Case Else 语句块 n+1End Select例：Dim Week,MyeekWeek=WeekDay(Date)Select Case WeekCase 1Myweek=星期日Case 2Myweek=星期一Case 3Myweek=星期二Case 4Myweek=星期三Case 5Myweek=星期四Case 6Myweek=星期五Case ElseMyweek=星期六End SelectDocument.write今天是&DateDocument.write&Myweek三、DoLoop循环在DoLoop循环中可使用While或Until关键字检查DoLoop语句中的循环条件，当条件为true时或条件变为true之前，重复执行指定的语句。1) Do WhileLoop循环Do WhileLoop循环结构在进入循环前就检查条件是否成立。当条件为true时重复执行指定的若干条语句，直到条件变为false为止。格式为：Do While 条件 语句块Loop例：Dim n,sumn=0sum=0Do While n100n=n+1sum=sum+nLoopDocument.write1到100的累加和为&sum2) Do UntilLoop循环Do UntilLoop循环结构也是在循环开始时就检查循环是否成立，当条件为False时重复执行指定的若干语句，直到条件为True为止。格式为：Do Until 条件语句块Loop例：Dim n,sumn=0sum=0Do Until n=100n=n+1sum=sum+nLoopDocument.write1到100的累加和为&sum3) Do Loop While循环Do Loop While结构首先执行一遍指定的语句块，之后再检查条件成立与否，当条件为true时反复执行，直到条件变为false为止。其格式为：Do 语句块Loop While 条件例：Dim n,sumn=0sum=0Do n=n+1sum=sum+nLoop while n100Document.write1到100的累加和为&sum4) DoLoop Until 循环DoLoop Until 循环结构首先执行一遍指定的语句序列，之后再检查条件成立与否，当条件为false时反复执行，直到条件变为true为止。其格式为：Do 语句块Loop Until 条件例：Dim n,sumn=0sum=0Do n=n+1sum=sum+nLoop Until n=100Document.write1到100的累加和为&sum四、WhileWend循环WhileWend语句结构与DoLoop结构类似，是为那些熟悉其用法的用户提供的。在程序运行过程中，当遇到while时，首先判断条件是否成立，若成立，执行循环，不成立则退出循环。格式为：While 条件语句块Wend例：Dim n,sumn=0sum=0While n100n=n+1sum=sum+nWendDocument.write1到100的累加和为&sum五、ForNext循环ForNext语句结构用于将指定的语句块运行所设定的次数。在此种循环中使用计数器变量，该变量的值随每一次循环增加或减少。其格式为：For 循环变量=初始值 To 终止值【step步长值】语句块Next例：请选择月份：For i=1 to 12Document.write&i&Next月六、For Each InNext循环For Each InNext循环与fornext循环类似，但For Each InNext不是将语句块运行一定的次数，而是专门用来对集合中的每一项或数组中的每个元素重复执行一系列语句。在不知道集合或数组中的元素的个数时格外有用。l For Each InNext无须指定循环条件，会自动按照集合或数组个数重复执行l For Each中的变量在循环式代表集合或数组中的各个元素l For Each中集合或数组无须加括号和下标。其格式为：For Each 变量In 集合或数组语句序列Next例：Dim total,jDim Score(4)Score(0)=68Score(1)=76Score(2)=90Score(3)=82Score(4)=85totle=0j=0For Each num In Scorej=j+1Document.write第&j&个成绩为&NumDocument.writetotle=totle+numNextaver=totle/jDocument.write&平均分为&aver&七、循环语句的嵌套Vbscript允许在一个循环结构的循环体内包含另一个循环语句结构，即允许循环嵌套而实现多重循环。例：Dim i,j,strFor i=1 to 9str=for j=1 to 9str=str&i&*&j&=&i*j&Nextstr=str&document.write strnext八、用Exit退出循环Vbscript语句允许在doloop语句结构的循环体内设置专门的exit do语句退出循环。通常在循环体内的if判断语句中使用exit do语句，如果if语句的条件判断为true就退出循环，否则循环照常执行。类似地，vbscript提供了一种退出for循环的exit for语句，可在fornext或for each in next循环中使用。例：Randomizex=int(rnd()*100)