单条件选择结构是最常用的双分支选择结构，其特点是：所给定条件（条件表达式）的值如果为真，则执行x1块，否则，就执行x2块。
1、行 If 语句
其语法格式为：
if<条件> then [ <语句1> ][Else <语句2> ]简单实例：
<html>
<head>
<title>Msgbox（）函数的应用</title>
</head>
<body>
<script language="VBScript" for="button1" event="onClick">
dim myWeek,a
myWeek=WeekDay(Now)-1
if myWeek=0 then a="要好好休息哟。" else a="努力工作呀！"
msgbox "今天是星期" & myWeek & "," & a
</script>
<center><input type="button" name="button1" value="请查看今天是星期几"></center>
</html>说明：
当程序运行到 If 语句时，首先测试变量 myWeek 是不是为零，如果为零，则执行 Then 后的语句（a="要好好休息哟。"),否则执行 Else 后的子句（a="要努力工作呀！"）。 在执行完 Then 或 Else 之后的语句的，会从 End If 之后的语句继续执行。 Else 子句是可选的。 可以在（<语句1>或<语句2>中使用冒号（：）将多个命令组合成一条语句。2、块 If 语句
虽然行If语句使用方便，可以满足许多选择结构程序设计的需要，但是当 Then 部分和 Else 部分包含较多内容时，在一行中就难以容纳所有命令。为此，VBScript 提供了块 If 语句，将一个选择结构用多个语句行来实现。块 If 语句又称多行 If 语句，其语法结构为：
if <条件> Then
[语句列1]
[Else
[语句列2]]
End if简单实例：
<html>
<head>
<title>块If语句的应用</title>
</head>
<body>
<script language="VBScript" for="button1" event="onClick">
dim a,b
a=Text1.value
if Not IsNumeric(a) then
Msgbox "您输入的不是数值数据"
Else
b="您输入的数据是：" & a &",它的平方根是：" & sqr(a)
Msgbox b,,"求一个数的平方根"
End if
</script>
<center>请输入数值数据：<input type="text" name="text1" size="10">
<input type="button" name="button1" value="求一个数的平方根"></center>
</html>3、If语句的嵌套
If 语句可以嵌套使用，即在If 语句的操作块(语句列1 或语句列2 ）中使用If语句。
简单实例：铁路托运行李，从甲地到乙地，规定每张客标托运费计算方法是:行李重量不超过50公斤时，每公斤0.5元，超过50公斤超过100公斤时，其超过部分每公斤1.5元，超过100公斤时，其超过部分每公斤2元。请计算并输出托运的费用。
分析：设行李重量为W公斤，应付运费为X元，则运费公式为：
当W <=50 时，则 X=0.5*W
当 50 < W <=100 时，则 X=05*50+1.5*（W-50）
当 W > 100 时，则X=0.5*50+1.5*50+（W-100）
<html>
<head><title>托运费计算</title></head>
<body>
请输入行李重量：<input name="text2" TYPE="TEXT" size="10"> kg
<input type="button" name="button3" value="计算运费">
<script language="VBScript" for="button3" event="onClick">
w=text2.value
if not isNumeric(w) then
msgbox "您输入的不是数值数据"
else
if w <=50 then
x=0.5 * w
else
if w<=100 then
x=0.5*50+1.5*(w-50)
else
x=0.5*50+1.5*50+2*(w-100)
end if
end if
Msgbox "行李的托运费是："& x & "元",,"计算行李费"
end if
</script>
</body>
</html>
| Word教程网 | Excel教程网 | Dreamweaver教程网 | Fireworks教程网 | PPT教程网 | FLASH教程网 | PS教程网 |
| HTML教程网 | DIV CSS教程网 | FLASH AS教程网 | ACCESS教程网 | SQL SERVER教程网 | C语言教程网 | JAVASCRIPT教程网 |
| ASP教程网 | ASP.NET教程网 | CorelDraw教程网 |
QQ：2693987339(点击联系)购买教程光盘
:
