VB.NET条件分支语句应用方法概述

开发 后端
VB.NET条件分支语句都包括:If条件语句;If...Then...Else语句;以及Select Case结构。我们会在文中对此进行一个详细的介绍。

VB.NET具有面向对象的一些特性,而且还能够支持类的所有特性,它的应用大大提高了开发人员的编程效率。我们今天就先来看看VB.NET条件分支语句的一些基础应用,帮助大家提高对此的认识程度。

VB.NET条件分支语句一、简单If条件语句

使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的“If...Then”分支结构可以只写在一行:

  1. If Condition Then 
    Statement[Else statement]  

注意:“If...Then”分支结构用于给程序添加逻辑控制能力。这里,“Condition”是个条件表达式,“Statement”是条件有效的Visual Basic语句。例如:
If Score>=20 Then Label1.Text="You Win!"是个使用了下述条件表达式的分支结构:Score>=20

根据这个表达式的值,程序决定是否把Label1对象的“Text”属性设置为“You Win!”。如果“Score”变量的值大于等于20,Visual Basic设置该属性的值,否则,Visual Basic跳过这条赋值语句,然后执行事件过程中的下一行语句。这类比较运算的结果不是“True”就是“False”,条件表达式从来不会产生模棱两可的值。

VB.NET条件分支语句二、If...Then...Else语句

Visual Basic还支持另一种格式的“If...Then”分支结构,该结构中包含几个条件表达式,由多行语句组成,其中包含了重要关键字“ElseIf”、“Else”以及“End If”。

  1. If Condition1 Then  
  2. Statements  
  3. ElseIf Condition2 Then  
  4. Statements  
  5. [其他ElseIf子句及其相应的执行语句]  
  6. Else  
  7. Statements  
  8. End If 

这个结构中,“Condition1”首先被计算。如果这个条件表达式的值为“True”,那么这个条件表达式下的语句被执行;如果***个条件的值不是“True”,那么计算第二个表达式(Condition2)的值,如果第二个条件的值为“True”,那么这个条件表达式下的语句块被执行(如果要判断更多的条件,那么继续增加“ElseIf”子句及该子句下的语句块);

如果所有条件表达式的值都不是“True”,那么执行“Else”子句下的语句块;***,整个结构使用“End If”关键字结束。多行“If...Then”结构特别适合于分段计算问题,比如税费方面的计算。下面的代码展示了如何使用多行“If...Then”结构来确定递进税计算问题(收入和税率的对应关系取自美国国内收入服务1997年税率表):

  1. If AdjustedIncome<=24650 Then  
  2. '15%税段  
  3. TaxDue=AdjustedIncome*0.15  
  4. ElseIf AdjustedIncome<=59750 Then  
  5. '28%税段  
  6. TaxDue=3697+((AdjustedIncome-24650)*0.28)  
  7. ElseIf AdjustedIncome<=124650 Then  
  8. '31%税段  
  9. TaxDue=13525+((AdjustedIncome-59750)*0.31)  
  10. ElseIf AdjustedIncome<=271050 Then  
  11. '36%税段  
  12. TaxDue=33644+((AdjustedIncome-124650)*0.36)  
  13. Else  
  14. '39.6%税段  
  15. TaxDue=86348+((AdjustedIncome-271050)*0.396)  
  16. End If 

注意:总是可以添加更多的“ElseIf”块到“If...Then”结构中去。但是,当每个“ElseIf”都将相同的表达式比作不同的数值时,这个结构编写起来很乏味。在这种情况下可以使用“Select Case”判定结构。

VB.NET条件分支语句三、Select Case结构

Visual Basic还支持在程序中使用“Select Case”分支结构来控制语句的执行。 “Select Case”结构与“If...Then...Else”结构相似,但在处理依赖于某个关键变量或称作测试情况的分支时效率更高。并且,使用“Select Case”结构可以提高程序的可读性。“Select Case”结构的语法如下所示:

  1. Select Case Variable  
  2. Case Value1  
  3. Statements  
  4. Case Value2  
  5. Statements  
  6. Case Value3  
  7. Statements  
  8. ...  
  9. End Select 

“Select Case”结构以关键字“Select case”开始,以关键字“End Select”结束。“Select Case”结构中的“Variable”可以是变量、属性或者是表达式,“Value1”、“Value2”,“Value3”可以是数值、字符串或与要测试的其他情况相关的其他值,如果其中某个值与变量相匹配,那么该“Case”子句下的语句被执行,然后Visual Basic执行“End Select”语句后面的语句。“Select Case”结构中可以使用任意多个“Case”子句,“Case”子句中也可以包括多个“Value”值,多个“Value”值之间使用逗号分隔。

下面示例展示了程序中如何使用“Select Case”结构打印与某人年龄相关的信息。当“Age”变量与某个“Case”值匹配时,相应的信息显示在标签对象中。

  1. Select Case Age  
  2. case 16  
  3. Label1.Text="You can drive now!" 
  4. Case 18  
  5. Label1.Text="You can vote now!" 
  6. Case 21  
  7. Label1.Text="You can drink wine 
    with your meals."
     
  8. Case 65  
  9. Label1.Text="Time to retire and 
    have fun!"
     
  10. End Select 

注意:“Select Case”结构比功能等效的“If...Then”结构更清晰易读。“Select Case”结构还支持“Case Else”子句,该子句可用于当不满足所有“Case”条件时显示信息。下面是说明“Case Else”子句用法的一个示例:

  1. Select Case Age  
  2. Case 16  
  3. Label1.Text="You can drive now!" 
  4. Case 18  
  5. Label1.Text="You can vote now!" 
  6. Case 21  
  7. Label1.Text="You can drink wine 
    with your meals."
     
  8. Case 65  
  9. Label1.Text="Time to retire and
     have fun!"
     
  10. Case Else  
  11. Label1.Text="You're a great age!
    Enjoy it!"
     
  12. End Select 

注意:“Select Case”结构每次都要在开始处计算表达式的值,而“If...Then...Else”结构为每个“ElseIf”语句计算不同的表达式,只有在“If”语句和每个“ElseIf”语句计算相同的表达式时,才能使用“Select Case”结构替换“If...Then...Else”结构。以上就是我们对VB.NET条件分支语句的具体讲解,希望对大家有所帮助。

【编辑推荐】

  1. VB.NET控件数组正确使用方法分析
  2. VB.NET默认属性适用规则介绍
  3. VB.NET网页计数器代码编写方法介绍
  4. VB.NET基本函数内容概述
  5. VB.NET中心旋转图像实现技巧分享

 

责任编辑:曹凯 来源: CSDN
相关推荐

2010-01-21 18:19:45

VB.NET条件编译

2010-01-19 16:55:46

VB.NET声明语句

2010-01-13 11:11:42

VB.NET Date

2010-01-07 15:42:57

VB.NET WhilEnd While循环

2009-10-14 16:04:43

VB.NET Noti

2010-01-13 10:53:24

VB.NET控件

2009-10-15 16:44:47

VB.NET Opti

2009-10-28 14:00:02

VB.NET文件处理

2010-01-07 15:25:11

VB.NET数组

2010-01-15 18:30:50

VB.NET Dlli

2010-01-18 10:33:28

VB.NET基本函数

2009-10-13 14:38:10

VB.NET访问类型

2010-01-15 10:47:15

VB.NET命名空间

2009-10-15 17:41:14

VB.NET Impo

2009-11-04 08:53:57

VB.NET AddH

2009-10-21 16:00:26

VB.NET CASE

2009-10-28 10:31:23

VB.NET Impl

2010-01-13 17:16:37

VB.NET冒号

2009-10-14 09:29:43

VB.NET加密

2009-10-26 17:53:50

VB.NET新窗体
点赞
收藏

51CTO技术栈公众号