学习导航
- if...then...else...end if
- select case...select end
- for...next
- do while ... while wend
3.1 认识流程控制结构
我们上一章所用的范例都是一些相当简单的程序。所谓的“简单”就是指程序执行只有一个由上而下的方向，而不会转弯或跳行，但实际上平常所应用的程序并不会这么简单，一般的程序都会依据不同的情况而换行，因为这样的程序才能应付各种不同的情况，这时就需要流程控制结构来帮组设计师控制程序执行的方向。流程控制结构通常要借助逻辑数据的帮助才能运行，流程控制结构共有6种，我们一一来介绍。
3.2 if的第一种格式：如果...就...（单一选择）
if 条件 then 程序代码
这是if指令最简单的格式“单一选择”，其中的“条件”是一个表达式，它所计算的结构必须是一个逻辑数据，如果“条件”的计算结果是“True”，那么就会执行Then后面的“程序代码”；如果“条件”的计算结果是“False”，那么就会跳过整个if语句，而不会执行Then后面的“程序代码”。Then后面的“程序代码”如果跟Then不是同一行或是程序代码有很多行，那就要在最后加上end if以结束if条件语句。
<script language="vbs">
score=70
if score>=60 then msgbox "及格!"
</script>
3.3 if的第二种格式：如果...就...否则...（双向选择）
if 条件 then
程序代码一
else
程序代码二
end if
<script language="vbscript">
score=InputBox("请输入计算机成绩：","输入成绩")
if score>=60 then
msg="及格！"
else
msg="不及格！"
end if
msgbox "您的计算机成绩" & msg
</script>
3.4 输入函数InputBox用法
变量=InputBox("显示信息","窗口标题")
InputBox函数可以提供对话框让用户输入信息，并将用户输入的信息存入等号左边的变量中；
3.5 if的第三种格式：多向选择
if 条件 then
程序代码一
elseif
程序代码二
elseif
程序代码三
......
......
else
程序代码N
end if
<script language="vbs">
score=InputBox("请输入计算机成绩：","输入成绩")
if score>=90 then
msg="优等"
elseif score<90 and score>=80 then
msg="甲等"
elseif score<80 and score>=70 then
msg="乙等"
elseif score<70 and score>=60 then
msg="丙等"
else
msg="丁等"
end if
msgbox "您的计算机成绩为" & msg
</script>
3.6 select...case
这种流程控制结构可以根据一个变量的值而有不同的执行方向。
select case 变量
case 值一
程序代码一
case 值二
程序代码二
case 值三
程序代码三
...
case else
程序代码N
end select
<script language="vbs">
no=InputBox("请输入一个1－5之间的数字：","汉译英")
select case no
case 1
msg="ONE"
case 2
msg="TWO"
case 3
msg="THREE"
case 4
msg="FOUR"
case else
msg="FIVE"
end select
msgbox no & "的英文为" & msg
</script>
3.7 for-next （计数循环）
计算机最擅长的功能就是重复执行某项功能，如果每执行一次就要写一次程序代码的话，大部分的程序必然非常的庞大，“循环”指令就是用来解决重复执行的问题。
for 变量＝起始值 to 终止值 [step 步长]
<script language="vbs">
total=0
for i=1 to 10
total=total+i
next
msgbox "1加到10的总和为" & total
</script>
<script language="vbs">
total=0
for i=2 to 100 step 2
total=total+i
next
msgbox "2+4+6+…+100=" & total
</script>
<script language="vbs">
‘用循环显示九九表
document.write "<table border=‘4‘>"
for i=1 to 9
total="<tr>"
for j=1 to 9
total=total & "<td>" & i & "*" & i & "=" & i*j & "</td>"
Next
total=total & "</tr>"
document.write total
Next
document.write "</table>"
</script>
注：document.write 是浏览器中的一个方法，在浏览器中有许多对象的属性和方法可供设计人员使用，浏览器将自己本身的各部分，包括窗口、属性、标记等分成各种对象，而每个对象又提供不同的属性和方法。
<script language="vbs">
dim a(99)
for i=0 to 99
a(i)=i+1
document.write a(i) & "<br />"
next
</script>
<script language="vbs">
dim score(3)
score(0)=90
score(1)=86
score(2)=99
score(3)=54
‘用循环打印每一位学生的成绩
for i=0 to 3
msg=msg & "第" & i+1 & "个学生分数为" & score(i) & vbcrlf
next
msgbox msg
</script>
3.8 条件式循环
do while…loop 循环
格式: do while 条件
程序代码
loop
这中循环在执行到do while时,会检查”条件”的返回值,若返回值为”True”,就执行”程序代码”,碰到loop时又回到do while再检查”条件”的成立与否.若”条件”的返回值为”False”,则跳到loop的下一个指令(即离开循环).此处的”条件”弹性很大,只要”条件”为”False”时就会结束循环,不必限制循环执行的次数,使用范围比for…next大很多.
<script language="vbs">
‘英文单词测试,不管大小写都正确
ans=inputbox("请输入”快乐”的英文")
do while ucase(ans)<>"HAPPY"
msg="不正确" & vbcrlf & "请重新输入”快乐”的英文"
ans=inputbox(msg)
loop
msgbox "太棒了!您答对了"
</script>
注:ucase()函数可将括号内的字符串全部转换为大写字母
3.9 Do Until…Loop 循环
格式: Do Until 条件
程序代码
Loop
Until 循环与While循环不同点就在于,Until是测试”条件”是否不成立,也就是是否为”False”,若是”False”则执行循环内的”程序代码”,反之则跳出循环.
<script language="vbs">
‘英文单词测试,不管大小写都正确
ans=inputbox("请输入”快乐”的英文")
do until ucase(ans)="HAPPY"
msg="不正确" & vbcrlf & "请重新输入”快乐”的英文"
ans=inputbox(msg)
loop
msgbox "太棒了!您答对了"
</script>
3.10 While…Wend循环
这种循环和Do…Loop完全一样.
<script language="vbs">
‘英文单词测试,不管大小写都正确
ans=inputbox("请输入”快乐”的英文")
while ucase(ans)<>"HAPPY"
msg="不正确" & vbcrlf & "请重新输入”快乐”的英文"
ans=inputbox(msg)
wend
msgbox "太棒了!您答对了"
</script>