單條件選擇結構是最常用的雙分支選擇結構,其特點是:所給定條件(條件表達式)的值如果為真,則執行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>