帝国软件
  设为首页 加入收藏 关于我们
 
解密帝国网站管理系统v4.6
栏 目:
 
您的位置:首页 > 技术文档 > ASP.NET编程 >
流程控制
作者:佚名 发布时间:2005-04-02 来源:不详
 

    程序在执行的时候,我们可以视情况决定要执行哪些程序,不执行哪些程序,或决定让某段程序代码可以重复执行;这些动作我们称为程序的流程控制。要控制程序的流程,首先我们要了解两种运算子,这两种运算子为比较运算子以及逻辑运算子。这两种运算子的传回值型态都是为布尔,不是代表真的True 就是代表伪的False。

比较运算子
    要比较数值、字符串或日期,可以利用比较运算子。例如假设我们的程序要求使用者输入年龄,如果未满十八岁的话就不允许执行一些程序。这时候我们就要来检查使用者所输入的年龄,VB.NET 提供了六种用来测试数据的比较运算子,如下图所示:


    比较运算子会将其比较测试结果以True 或False 的布尔型态传回,上表的范例利用指定运算子将比较的结果放到指定运算子左边的变量A~F。

逻辑运算子
    除了比较运算子外,还有逻辑运算子。最常用到的逻辑运算子是And、Or 及Not。

And
    And 运算子用来组合两个叙述,And 运算子只有在这A以及B 两个叙述同时为True 时传回True,其余皆传回False。以下为And 运算子的真值表,其中F 代表False,T 代表Ture,而Y 代表输出:


Or
    Or 运算子用来组合两个叙述,只要Or 运算子在这A 或B 两个叙述有一个为True 时传回True,只有在两个叙述都为False 时传回False。以下为Or 运算子的真值表,其中F 代表False,T 代表Ture,而Y 代表输出:

其中F 代表False,T 代表Ture,而Y 代表输出。

Not
    Not 运算子用倒置单一叙述,Not 运算子在叙述为False 时传回True,叙述为True 时传回False。以下为Not 运算子的真值表,其中F 代表False,T 代表Ture,而Y 代表输出:


If...Then 叙述
    If...Then 叙述可以依条件式的检查结果决定程序代码的执行。If...Then 的结构有三种,分别为
    If...Then、If...Then...Else 以及If...Then...ElseIf 这三种。

If...Then 叙述
我们利用If...Then 叙述来决定程序是否要或是不要执行某段程序代码,其语法如下所示:

If 条件判断Then 叙述

If 条件判断Then
叙述一
叙述二
叙述N...
End If


    If 判断句会检查条件判断式的测试结果。其结果若传回True 或是非零的数值,则表示条件成立,便执行Then 后面的叙述。倘若测试结果传回False,则检查结果不成立,那们就不会执行Then后面的程序叙述。如果叙述只有一行,则可以接在Then 后面撰写程序叙述:

IF shtCPUSpeed < 500 Then Response.Write("你的计算机速度太慢了!")

?

<html>
<%
Dim intIncome As Integer
intIncome=Cint(Request("Income"))
If intIncome>990000 Then
Response.Write("您的年输入超过99 万, 您应该缴的税为:")
Response.Write(Format((intIncome*0.21)-105100,"$##,###,###.00"))
End If
%>
</html>


Note
    上列程序我们将If 和End If 之间的程序代码往内缩两个字符,这个程序代码的编排方式称做缩排。对于有结构的程序代码叙述,在撰写时将程序代码缩排可以让程序代码更容阅读。

If...Then...Else 叙述
    我们利用If...Then...Else 叙述来决定程序要执行的程序代码区块,其语法如下所示:If 条件判断Then

If 条件判断Then
程序区块一
Else
程序区块二
End If


    If...Then...Else 结构在条件判断式的测试结果为True 成立时,执行Then 以及Else 之间的程序,执行完毕后则直接跳出If 判断结构继续执行程序;倘若条件判断式的结果为False 不成立,则执行Else 以及End If 之间的程序代码,执行完毕后一样直接跳出If 判断结构继续执行程序。

<html>
<%
Dim intIncome As integer
intIncome=CInt(Request("Income"))
If intIncome>990000 Then
Response.Write("您的年收入超过99 万, 您应该缴的税为:")
Response.Write(Format((intIncome*0.21)-105100,"$##,###,###.00"))
Else
Response.Write("您的年收入没超过99 万, 您应该缴的税为:")
Response.Write(Format((intIncome*0.13)-25900,"$##,###,###.00"))
End If
%>
</html>

    我们在呼叫上述aspx 网页时如果将Income 参数以1000000 传入,则If 后面的条件判断式传回True 代表成立,所以Then 至Else 之间的程序代码将被执行,执行完毕后即略过Else 后面的程序代码并直接跳出If 判断结构继续执行程序;如果将Income 参数以990000 传入,则If 后面的条件判断式传回False 代表不成立,所以Then 至Else 之间的程序代码将被略过不被执行,直接无条件执行Else 至End If 之间的程序区块。

If...Then...ElseIf 叙述
    我们利用If...Then...ElseIf 叙述来执行多个条件式的判断,其语法如下所示:

If 条件判断一Then
程序区块一
ElseIf 条件判断二
程序区块二
[Else
程序区块三]
End If


    If...Then...ElseIf 结构在条件判断式一的测试结果为True 成立时,执行程序区块一的程序,执行完毕后不再做其它的条件判断,直接跳出If 判断结构继续执行程序;倘若条件判断式一的结果为False 不成立,则执行ElseIf 叙述的条件判断式二。倘若测试结果为True 成立时,则执行程序区块二;倘若条件表达式二的检查结果依然为False 不成立,则无条件执行Else 及End If 之间的程序区块三,执行完毕后一样跳出If 结构继续执行程序;倘若没有Else 叙述,则不执行任何动作。

<html>
<%
Dim shtGrade As Short=CShort(Request("Grade"))
If shtGrade>=80 Then
Response.Write("您的等级为A")
ElseIf shtGrade>=70 Then
Response.Write("您的等级为B")
ElseIf shtGrade>=60 Then
Response.Write("您的等级为C")
Else
Response.Write("您的等级为D")
End If
%>
</html>

    上述程序代码为将学生的成绩转换成A、B、C、D 的等级。这里的程序代码我们不再多做说明,唯一要注意的是下面这行用法:

Dim intGrade As Integer=CInt(Request("Grade"))

    上列叙述用Resquest 对象从暂存区将参数Grade 取出后,为变量intGrade 的初始值,这样一来就可以取代原来的两行叙述:

Dim intGrade As Integer
IntGrade=CInt(Request("Grade"))

巢状结构
    如果If 条件判断式所要执行的程序区块里还有If 条件判断式,这种样式的循环我们称为巢状结构,如下所示:

If 条件判断Then
If 条件判断Then
程序区块
Else
程序区块
End If
Else
程序区块
End If

    透过巢状结构的运用,程序的撰写就可以更灵活更有弹性。例如我们将上述程序多加个巢状If判断,六十分以下除印出等级为D 外,倘若不低于五十分则印出可以补考,低于五十分则印出不能补考。

<html>
<%
Dim shtGrade As Short=CShort(Request("Grade"))
If shtGrade>=80 Then
Response.Write("您的等级为A")
ElseIf shtGrade>=70 Then
Response.Write("您的等级为B")
ElseIf shtGrade>=60 Then
Response.Write("您的等级为C")
Else
Response.Write("您的等级为D")
If shtGrade>=50 Then
Response.Write("可以补考")
Else
Response.Write("不能补考")
End If
End If
%>
</html>

条件判断式和逻辑运算子的配合
    上述所做的范例都是使用比较运算子进行比较运算,而本部分我们要利用逻辑运算子和条件判断式搭配使用。在条件判断式中,最主要是检查最后的结果来决定程序的执行。只要我们所使用的条件判断式最后传回True 或是False,就可以决定程序如何执行。在条件判断式中使用逻辑运算子,可以让我们做多个条件的判断,让我们撰写程序时更具弹性。

And
    And 运算子用于我们想要多个同时条件都成立时,才执行某段程序代码时使用。例如下列程序为检查使用者的名称及密码:

<html>
<%
Dim strID As String=CStr(Request("ID"))
Dim strPWD As String=CStr(Request("PWD"))
If strID="Charles" AND strPWD="1234" Then
Response.Write("使用者名称及密码正确!")
Else
Response.Write("使用者名称及密码错误!")
End If
%>
</html>

If 陈述最主要是检查If 和Then 间条件判断式的结果,在上述程序中条件判断式为:

strID="Charles" AND strPWD="1234"

 


    VB.NET 执行这行条件判断式时,先检查左边的比较运算;如strID="Charles" 的比较结果为True,则再进行右边strPWD="1234" 的比较运算;倘若右边比较结果为True,最后才进行And运算。由于是执行And 运算,And 运算子左右两边的运算结果为True 时,And 运算才传回True。所以只要执行时,And 运算子左右两边的运算结果只要传回False,VB.NET 即不继续执行下一步的检查并传回False。

快捷方式回路short-curuited
    上述表达式若是在之前的VB 版本,则不管And 运算子左右两边表达式的运算结果,一定先依序将两个表达式运算完毕后再执行And 运算;而VB.NET 对于一些表达式可先行判断,并不见得会执行全部的运算。例如VB.NET 在执行Or 运算时,只要运算到True 值后即停止后续的运算,并直接传回True。这是因为目前的条件传回True 已经成事实,后面的结果并不会影响整个结果。这样一来就可以少执行一些运算,所以能有效提升执行的效率;这个新的功能我们称为快捷方式回路(short-curuited)。

Or
    Or 运算子则是用在多个条件中,只要有一个条件成立时,就执行某段程序代码时使用。例如下列程序只要使用者小于6 岁或是大于60 岁,就将门票售价打五折;其余年龄则打八折:

<html>
<%
Dim shtAge As Short=CShort(Request("Age"))
Dim sngDiscount As Single
Const cnTicketPrice=200
If shtAge<6 Or shtAge>60 Then
sngDiscount=0.5
Else
sngDiscount=0.8
End If
Response.Write("您的票价为:" & CStr(cnTicketPrice * sngDiscount) & "
元")
%>
</html>

Not
Not 值可以将布尔值做倒置,也就是将False 变成True,将True 变成False。例如下列程序只
要使用者的年龄不小于18,即印出欢迎语:

<html>
<%
Dim shtAge As Short=CShort(Request("Age"))
If Not shtAge<18 Then
Response.Write("欢迎您的浏览")
Else
Response.Write("本站不接受未成年之青少年浏览, 请离开")
End If
%>
</html>

Select Case 叙述
    Select Case 和If...Then...ElseIf 的结构很相似,都是让程序检查叙述值后,再决定所要执行的程序代码。不过Select Case 执行起来比If...Then...ElseIf 更有效率,这是因为Select Casse 只需将要做比较的变量取出一次。我们来看看Select Case 的语法:

Select Case 测试叙述
Case 条件叙述一
程序区块一
Case 条件叙述二
程序区块二
Case 条件叙述N
程序区块N
[Case Else]
End Select


    其中测试叙述可以是任何变量、数值或字符串,VB.NET 将叙述直接取出或运算后,再将结果和Case 后面的条件叙述所执行完的结果做比较。和If...Then...ElseIf 一样,倘若测试叙述的结果和条件叙述的结果相等,则执行相对应的程序区块,执行完毕后即跳出架构外继续程序的执行,其中Case Else 也可以省略。我们来看看下列这个范例:

<html>
<%
Dim strUserName As String=CStr(Request("UserName"))
Dim strMSG As String
Select Case strUserName
Case "Administrator"
strMSG="Hello, Administrator."
Case "User"
strMSG="Hello, User."
Case Else
strMSG="Hello, Guest."
End Select
Response.Write(strMSG)
%>
</html>    

    如果上述程序以If...Then...ElseIf 来写也可以,但是Select Case 的结构比较易于阅读,执行起来效率也好多了。

测试数值的范围
Select Case 的架构用于范围的测试非常理想,例如下列范例:


<html>
<%
Dim shtAns As Short=CShort(Request("Ans"))
Dim shtGrade As Short
Select Case shtAns
Case 1 '等于1
shtGrad=1
Case 2 to 4 '2 到4(包含)
shtGrad=2
Case 5,6 '5 以及6
shtGrad=3
Case Is >= 7 '大于等于七
shtGrad=4
End Select
Response.Write("您得到的积分为:" & CStr(shtGrad))
%>
</html>

 
 
  
评论】【加入收藏夹】【 】【打印】【关闭
※ 相关链接
 ·利用 WSH 作定时工作流程  (2005-03-12)
 ·Duwamish 7 初探——数据流程  (2005-03-12)
 ·J2EE学习经验和流程  (2005-03-12)

   栏目导行
  PHP编程
  ASP编程
  ASP.NET编程
  JAVA编程
   站点最新
·致合作伙伴的欢迎信
·媒体报道
·帝国软件合作伙伴计划协议
·帝国网站管理系统采集使用教程
·帝国网站管理系统模板制作教程
·帝国CMS模板下载
·Discuz6.0.1UC版通行证发布
·帝国网站管理系统之网站迁移教程
·帝国网站管理系统实例入门教程下载
·《帝国网站管理系统》实例入门教程
   类别最新
·ASP.NET中为DataGrid添加合计字段
·.text urlRewrite介绍
·利用 ASP.NET 的内置功能抵御 Web
·ASP.NET Cache
·用 WebClient.UploadData 方法 上载
·ASP.NET 程序设计-序
·什么是客户端/伺服端(Client/Serve
·因特网应用程序的开发
·网页的种类
·.NET Framework-Microsoft Visual
 
关于帝国 | 广告服务 | 联系我们 | 程序开发 | 网站地图 | 留言板 帝国网站管理系统