陌小夕-经典ASP全套详解教程第3章 VBScript流程控制.docx

内蒙古人才网主讲：李炎恢第1页共7页北风网ASP 视频教程第3章VBScript 流程控制1. if.then.else.end if2. select case.select end3. for.next4. do while . while wend主讲教师：李炎恢官方网站：3.1 认识流程控制结构我们上一章所用的范例都是一些相当简单的程序。所谓的“简单”就是指程序执行只有一个由上而下的方向，而不会转弯或跳行，但实际上平常所应用的程序并不会这么简单，一般的程序都会依据不同的情况而换行，因为这样的程序才能应付各种不同的情况，这时就需要流程控制结构来帮组设计师控制程序执行的方向。流程控制结构通常要借助逻辑数据的帮助才能运行，流程控制结构共有6种，我们一一来介绍。3.2 if的第一种格式：如果.就.（单一选择）if 条件then 程序代码这是if指令最简单的格式“单一选择”，其中的“条件”是一个表达式，它所计算的结构必须是一个逻辑数据，如果“条件”的计算结果是“True”，那么就会执行Then后面的“程序代码”；如果“条件”的计算结果是“False”，那么就会跳过整个if语句，而不会执行Then后面的“程序代码”。Then后面的“程序代码”如果跟Then不是同一行或是程序代码有很多行，那就要在最后加上end if以结束if条件语句。3.3 if的第二种格式：如果.就.否则.（双向选择）if 条件thenscore=70if score=60 thenmsgbox 及格!主讲：李炎恢第2页共7页北风网ASP 视频教程程序代码一else程序代码二end if3.4 输入函数InputBox用法变量=InputBox(显示信息,窗口标题)InputBox函数可以提供对话框让用户输入信息，并将用户输入的信息存入等号左边的变量中；3.5 if的第三种格式：多向选择if 条件then程序代码一elseif程序代码二elseif程序代码三.else程序代码Nend ifscore=InputBox(请输入计算机成绩：,输入成绩)if score=60 thenmsg=及格！elsemsg=不及格！end ifmsgbox 您的计算机成绩& msgscore=InputBox(请输入计算机成绩：,输入成绩)if score=90 thenmsg=优等elseif score=80 thenmsg=甲等elseif score=70 then主讲：李炎恢第3页共7页北风网ASP 视频教程3.6 select.case这种流程控制结构可以根据一个变量的值而有不同的执行方向。select case 变量case 值一程序代码一case 值二程序代码二case 值三程序代码三.case else程序代码Nend select3.7 for-next （计数循环）msg=乙等elseif score=60 thenmsg=丙等elsemsg=丁等end ifmsgbox 您的计算机成绩为& msgno=InputBox(请输入一个15之间的数字：,汉译英)select case nocase 1msg=ONEcase 2msg=TWOcase 3msg=THREEcase 4msg=FOURcase elsemsg=FIVEend selectmsgbox no & 的英文为& msg主讲：李炎恢第4页共7页北风网ASP 视频教程计算机最擅长的功能就是重复执行某项功能，如果每执行一次就要写一次程序代码的话，大部分的程序必然非常的庞大，“循环”指令就是用来解决重复执行的问题。for 变量起始值to 终止值step 步长注：document.write 是浏览器中的一个方法，在浏览器中有许多对象的属性和方法可供设计人员使用，浏览器将自己本身的各部分，包括窗口、属性、标记等分成各种对象，而每个对象又提供不同的属性和方法。total=0for i=1 to 10total=total+inextmsgbox 1 加到10 的总和为& totaltotal=0for i=2 to 100 step2total=total+inextmsgbox 2+4+6+100=& total用循环显示九九表document.write for i=1 to 9total=for j=1 to 9total=total& & i& *& i& =& i*j & Nexttotal=total& document.write totalNextdocument.write 主讲：李炎恢第5页共7页北风网ASP 视频教程3.8 条件式循环do whileloop 循环格式: do while 条件程序代码loop这中循环在执行到do while时,会检查”条件”的返回值,若返回值为”True”,就执行”程序代码”,碰到loop时又回到do while再检查”条件”的成立与否.若”条件”的返回值为”False”,则跳到loop的下一个指令(即离开循环).此处的”条件”弹性很大,只要”条件”为”False”时就会结束循环,不必限制循环执行的次数,使用范围比fornext大很多.注:ucase()函数可将括号内的字符串全部转换为大写字母dim a(99)for i=0 to 99a(i)=i+1document.write a(i) & nextdim score(3)score(0)=90score(1)=86score(2)=99score(3)=54用循环打印每一位学生的成绩for i=0 to 3msg=msg & 第& i+1 & 个学生分数为& score(i) & vbcrlfnextmsgbox msg英文单词测试,不管大小写都正确ans=inputbox(请输入”快乐”的英文)do while ucase(ans)HAPPYmsg=不正确& vbcrlf & 请重新输入”快乐”的英文ans=inputbox(msg)loopmsgbox 太棒了!您答对了主讲：李炎恢第6页共7页北风网ASP 视频教程3.9 Do UntilLoop 循环格式: Do Until 条件程序代码LoopUntil 循环与While循环不同点就在于,Until是测试”条件”是否不成立,也就是是否为”False”,若是”False”则执行循环内的”程序代码”,反之则跳出循环.3.10 WhileWend循环这种循环和DoLoop完全一样.英文单词测试,不管大小写都正确ans=inputbox(请输入”快乐”的英文)do until ucase(ans)=HAPPYmsg=不正确& vbcrlf & 请重新输入”快乐”的英文ans=inputbox(msg)loopmsgbox 太棒了!您答对了英文单词测试,不管大小写都正确ans=inputbox(请输入”快乐”的英文)while ucase(ans)HAPPYmsg=不正确& vbcrlf & 请重新输入”快乐