优化或报错有奖编程逻辑：执行基于条件的代码。
If 条件
VB 允许您执行基于条件的代码。
如需测试某个条件，您可以使用 if 语句。If 语句会基于您的测试来返回 true 或 false：
- if 语句启动代码块
- 条件位于 if 和 then 之间
- 如果条件为真，则执行 if … then 与 end if 之间的代码
实例
- @Code
- Dim price=50
- End Code
- <html>
- <body>
- @If price>30 Then
- @<p>The price is too high.</p>
- End If
- </body>
- </html>
Else 条件
if 语句能够包含 else 条件。
else 条件定义条件为 false 时执行的代码。
实例
- @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>
注释：在上面的例子中，如果价格不大于 30，则执行其余的语句。
ElseIf 条件
可通过 else if 条件来测试多个条件：
实例
- @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>
在上面的例子中，如果第一个条件为 true，则执行第一个代码块。
否则，如果下一个条件为 true，则执行第二个代码块。
您能够设置任意数量的 else if 条件。
如果 if 和 else if 条件均不为 true，则执行最后一个 else 代码块。
Select 条件
select 代码块可用于测试一系列具体的条件：
实例
- @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" 之后是测试值 (day)。每个具体的测试条件以 case 关键词开头，其后允许任意数量的代码行。如果测试值匹配 case 值，则执行代码行。
select 代码块可为其余的情况设置默认的 case (default:)，允许在所有 case 均不为 true 时执行代码。
转载本站内容时，请务必注明来自W3xue，违者必究。
皖公网安备34020702000426号