If Then⋯Else语句简称If语句,用于计算条件是否为True 或False,并且根据计算结果指定要执行的语句。If⋯Then⋯Else语句有两种形式,即单行形式和块形式。
1. If语句的单行形式
语法格式:
If condition Then statements [Else elsestatements]
说明:condition 是一个数值或字符串表达式,其运算结果是True或False,statements和elsestatements 是一条语句或以冒号分开的多条语句。当未用Else 子句时,如果condition 为True,则执行statements,否则执行下一条语句;当使用Else子句时,如果condition 为True,则执行statements,否则执行elsestatements。
例如:下面的语句将求两数的较大者。
Dim x,y,max
x=InputBox(″请输入x 的值″,″输入x″)
y=InputBox(″请输入y 的值″,″输入y″)
If clng(x)〉clng(y)Then max=x Else max=y
msgBox max
2. If语句的块形式
语法格式:
If condition Then
statements
[Else
elsestatements]
End If
说明:当程序运行到块形式时,将测试condition。如果condition 为True,则执行Then之后的语句。如果condition 为False,并且有Else 子句则将执行Else之后的语句。执行Then或Else之后的语句以后,将继续执行End If之后的语句。
例如:上面的求两数的较大者用If块形式表示为:
If clng(x)〉clng(y)Then
max=x
Else
max=y
End If
3.If语句的嵌套格式
当代码中出现多层If语句嵌套时,将使程序冗长而不便阅读。为此VBScript提供了带Elself的If语句来处理当条件为假时又内嵌If语句的情形,以使程序简化易写。
语法格式:
If condition Then
[statements]
Else If condition-n Then
elseifstatements
⋯
[Else else
statements]
End If
说明:condition、condition-n的意义同单行形式中的condition,statements、elseifstatements和elsestatements都是一条语句或以冒号分开的多条语句。
当程序运行到块形式时,将测试condition。如果condition为True,则执行Then之后的语句。如果condition为False,则每个ElseIf部分的条件表达式(如果有的话)会依次计算并加以测试。当找到某个为True的条件时,则其相关的Then之后的语句会被执行。如果没有任何一个ElseIf语句中的条件是True或没有使用ElseIf子句,则将执行Else之后的语句。执行Then或Else之后的语句以后,将继续执行End If之后的语句。
【例3.6】编写一个HTML页面,输入考试成绩时,输出成绩等级,运行结果如图3-6所示。(www.xing528.com)
图3-6 显示成绩等级的HTML页面
文件命名为3-6.htm,代码如下:
〈HTML〉
〈HEAD〉
〈TITLE〉条件语句应用示例〈/TITLE〉
〈SCRIPT LANGUAGE=″VBScript″FOR=″btnshow″EVENT=″onclick″〉
DIM X
X=FORM1.TEx T1.VALUE
If x=″″THEN
msgBox ″请输入你的考试成绩! ″
EXIT SUB
Else If x〉100 Then
msg Box ″请输入1~100之间的值!″
FORM1.TEXT1.VALUE=″″
EXIT SUB
Else If x〉=90 Then
FORM1.TEXT2.VALUE=″优秀″
Else If x〉=80 Then
FORMl.TEXT2.VALUE=″良好″
Else If x〉=70 Then
FORM1.TEXT2.VALUE=″中等″
Else If x〉=60 Then
FORM1.TEXT2.VALUE=″及格″
Else
FORM1.TEXT2.VALUE=″不及格″
End If
〈/SCRIPT〉
〈/HEAD〉
〈BODY 〉
〈FORM NAME=″FORM1″〉
〈P〉输入你的考试成绩:〈INPUT TYPE=″TEXT″NAME=″TEXT1″SIZE=″20″〉〈/P〉
〈P〉你的成绩等级结果:〈INPUT TYPE=″TEXT″NAME=″TEXT2″SIZE=″20″〉〈/P〉
〈P〉〈Input type=″BUTTON″name=″btnshow″value=″显示等级″〉
〈Input type=″reset″name=″Submit″value=″重新填写″〉〈/P〉
〈/FORM〉
〈/BODY〉
〈/HTML〉
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。