?
本文檔使用 php中文網手冊 發(fā)布
編程邏輯:根據(jù)條件執(zhí)行代碼。
VB 允許根據(jù)條件執(zhí)行代碼。
使用 if 語句來判斷條件。根據(jù)判斷結果,if 語句返回 true 或者 false:
?@Code
Dim price=50
End Code
<html>
<body>
@If price>30 Then
@<p>The price is too high.</p>
End If
</body>
</html>
if 語句可以包含 else 條件。
else 條件定義了當條件為假時被執(zhí)行的代碼。
注釋:在上面的實例中,如果第一個條件為真,if 塊的代碼將會被執(zhí)行。else 條件覆蓋了除 if 條件之外的"其他所有情況"。@Code
Dim price=20
End Code
<html>
<body>
@if price>30 then
@<p>The price is too high.</p>
Else
@<p>The price is OK.</p>
End If
</body>
</htmlV>
多個條件判斷可以使用 elseif 條件:
在上面的實例中,如果第一個條件為真,if 塊的代碼將會被執(zhí)行。@Code
Dim price=25
End Code
<html>
<body>
@If price>=30 Then
@<p>The price is high.</p>
ElseIf price>20 And price<30
@<p>The price is OK.</p>
Else
@<p>The price is low.</p>
End If
</body>
</html>
如果第一個條件不為真且第二個條件為真,elseif 塊的代碼將會被執(zhí)行。
elseif 條件的數(shù)量不受限制。
如果 if 和 elseif 條件都不為真,最后的 else 塊(不帶條件)覆蓋了"其他所有情況"。
select 塊可以用來測試一些單獨的條件:
"Select Case" 后面緊跟著測試值(day)。每個單獨的測試條件都有一個 case 值和任意數(shù)量的代碼行。如果測試值與 case 值相匹配,相應的代碼行被執(zhí)行。@Code
Dim weekday=DateTime.Now.DayOfWeek
Dim day=weekday.ToString()
Dim message=""
End Code
<html>
<body>
@Select Case day
Case "Monday"
message="This is the first weekday."
Case "Thursday"
message="Only one day before weekend."
Case "Friday"
message="Tomorrow is weekend!"
Case Else
message="Today is " & day
End Select
<p>@message</p>
</body>
</html>
select 塊有一個默認的情況(Case Else),當所有的指定的情況都不匹配時,它覆蓋了"其他所有情況"。