【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-4 掌握VB NET中的程序流程控制语句 - 综合课件的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

第第44章章掌握掌握VB.NETVB.NET中的程序中的程序流程控制语句流程控制语句本章我们开始真正学习如何编写程序代码。

    VB.NET程序的基本组成元素是语句。

    我们编写程序的目的是要实现一定的功能。

    如何有效地将各种语句组合起来以达到我们的目的是本章的学习重点。

    章节内容章节内容4.1 什么是语句4.2 什么是控制结构??4.2.1 顺序结构??4.2.2 选择结构??4.2.3 循环结构4.3 语句嵌套4.1 4.1 什么是语句什么是语句VB.NET中的语句是可包含关键字、运算符、变量、常数和表达式的完整指令可以分为声明语句和可执行语句两种。

    ??声明语句用于命名变量、常数或过程并指定数据类型。

    例如用于声明变量的Dim语句和声明常量的Const语句就属于声明语句。

    ??可执行语句用于启动某种操作。

    例如赋值语句就属于可执行语句。

    本章要讲述的各种分支、循环语句也都属于可执行语句。

    语句的书写语句的书写VB.NET中的语句书写非常灵活可以一行放入多条语句语句之间用冒号:分隔。

    例如??Dim str As String Hello World : MsgBoxstr当语句太长时也可以一条语句跨多行书写。

    此时需要使用行继续符在下一行继续该语句。

    行继续符依次包含一个空格、一个下划线字符_和一个回车符。

    例如??1 Dim nameVar As String??2 nameVarJohn??3 MsgBoxHellonameVar _??4 .How are you注释语句注释语句注释行以撇号开头或以REM开头后跟一个空格。

    注释可以添加在代码中的任意位置但不能添加在字符串中。

    若要将注释追加到某语句可以在该语句后插入一个撇号或REM后面添加注释。

    注释还可以位于单独的行中。

    例子例子1 这是单独一行的注释2 REM 这是另一行单独的注释3 x ai bi 计算两个数的乘积4 MsgBoxstatusMessage REM 显示当前的状态信息语句的自动语法检查语句的自动语法检查在Visual Studio.NET IDE中书写语句时IDE会对语句的语法进行检查。

    ??如果语句书写完毕后出现绿色的下滑波浪线则说明该语句存在语法错误。

    ??将鼠标悬停在带有下滑波浪线的语句上即可查看到错误信息。

    如果不更正代码将无法正确的编译。

    4.2 4.2 什么是控制结构什么是控制结构在20世纪60年代就出现了结构化程序设计的概念指出程序的编写应采用结构化方法。

    1966年提出了任何计算机程序都可以由3种基本结构组成。

    这3种基本结构是顺序结构、选择结构和循环结构。

    顺序结构顺序结构语句1语句2语句n……入口出口选择结构选择结构循环体判断条件条件为真条件为假出口入口循环结构循环结构循环体判断条件条件为真入口条件为假出口循环体判断条件条件为真条件为假出口入口当型循环直到型循环从图中可以看出这3种基本结构的基本特点是每一种结构都只有一个入口和一个出口。

    任何一个算法都可以用这3种基本结构实现任何复杂的程序都可以分解为由3种基本结构组成。

    4.2.1 顺序结构顺序结构是最简单的控制结构按照语句书写的顺序一句一句的执行。

    典型的例子是交换两个变量x和y的值。

    交换两个变量的值交换两个变量的值1 Dim x As Integer 102 Dim y As Integer 203 Dim temp As Integer4 temp x此时temp中保存x的值105 x yx值变为y的值206 y tempy值变为temp中保存的x的值10交换完成4.2.2 4.2.2 选择结构选择结构考虑这样一个应用程序“SayHello”当用户打开应用程序后向用户显示问候信息根据时间不同问候信息也应该不同。

    因此程序需要根据当前时间判断是上午、下午还是晚上分别给出不同的问候信息。

    在这个应用中当前时间应该作为判断条件根据不同的判断结果显示不同的信息这是一个典型的选择结构。

    IfIf语句语句1基本形式If语句的语法格式如下。

    If 表达式Then 语句块1Else 语句块2End IfIf ab Then MsgBoxa大于b这句代码用于判断a和b两个变量值的大小由于执行语句只有一句因此写在了同一行上并省略了End If。

    扩展扩展1 If ab Then 2 MsgBoxa大于b3 Else4 MsgBoxa小于等于5 End If增加了第3行的Else子句当a不大于b时也显示相应信息。

    Step1创建应用程序工程。

    单击菜单栏中的【文件】→【新建项目】命令打开【新建项目】窗口。

    在该窗口的【模板】列表框中选择【Windows窗体应用程序】并在【名称】文本框中输入“SayHello”。

    Step2进行窗体界面设计。

    向窗体中添加两个Label控件并将其Font属性设置为Arial四号Name属性分别设置为lblTime和lblInfo窗体的Text属性设为“SayHello”Name属性设置为frmSayHello。

    Step3代码编写。

    下面是窗体的Load事件过程。

    1 Private Sub frmSayHello_LoadByVal sender As System.ObjectByVal e As System.EventArgs Handles MyBase.Load2 Dim h As Integer Now .Hour3 lblTime.Text Now .ToString 4If h 12 And h 18 Then lblInfo.Text Good afternoonCindy6If h 18 Then lblInfo.Text Good EveningCindy7 End Sub运行结果运行结果上例中我们使用3个If语句并列实现了时间判断。

    这3个If语句是要顺序执行的。

    考虑这样一种情况当前时间为2008-8-7 9:12:11此时变量h的值应为9。

    第1个If语句的判断条件h 12 And h 18 Then6 lblInfo.Text Good afternoonCindy7 ElseIf h 18 Then 8 lblInfo.Text Good EveningCindy9 End IfIf 表达式1 Then语句块1ElseIf 表达式2 Then语句块2ElseIf 表达式3 Then语句块3????Else 语句块nEnd IfSelectSelect语句语句语法格式如下。

    Select Case 表达式Case 情况列表1语句块1Case 情况列表2语句块2????Case Else 语句块nEnd Select??Select语句首先计算表达式的值之后与Case语句指定的情况列表进行比较。

    ??情况列表中可以包含一个或多个值、某个范围的值或值和比较运算符的组合。

    ??如果匹配则执行其后的语句块以此类推。

    ??如果均不匹配则执行Case Else后面的语句块。

    ??Case语句可以有一条或者多条而且Case Else语句可以省略。

    1 lblTime.Text Now .ToString 2 Select Case Now .Hour3 Case 0 1 2 3 4 5 6 7 8 9 10 11124 lblInfo.Text Good morningCindy5 Case 13 14 15 16 17186 lblInfo.Text Good afternoonCindy7 Case Else8 lblInfo.Text Good eveningCindy9 End Select1 lblTime.Text Now .ToString 2 Select Case Now .Hour3 Case Is