第6章选择结构与循环结构程序设计

End Sub
大连理工大学出版社
6.1.5 If语句中嵌套If语句
1. If语句中嵌套If语句语法介绍
如果在块If语句中，语句块1或者语句块2本身又是If语句，则称为 If语句的嵌套。下面简单列出两重If语句嵌套的格式，其余多重嵌套可 以参考此结构。其语法格式为：
If<条件1>Then [语句列1] [Else If<条件2>Then [语句列2] [Else [语句列3]]] End If „ End If
大连理工大学出版社
(2)编写命令代码。 编写命令按钮Command1的Click 事件代码如下：
Private Sub Command1_Click() If Val(Text1.Text) > Val(Text2.Text) Then Label2.Caption = _ "比较结果：" + Text1.Text + ">" + Text2.Text If Val(Text1.Text) = Val(Text2.Text) Then Label2.Caption = _
1．块结构If语句语法介绍
块If语句其语法结构为： If 条件表达式 Then 语句块1 E1se 语句块2 End If 块结构If语句的功能是：如果“条件表达式”为True，则执行“语 句块1”，否则执行“语句块2”。
大连理工大学出版社
说明： (1)在块If语句中，必须以End If语句结束。 (2)当程序运行到If块时，首先测试条件。如果条件为真， 则执行Then之后的语句块1。如果条件为假，并且有Else子句， 则程序会执行Else部分的语句块2。执行完Then或Else的语句列 后，程序会从End If退出，并执行其之后的语句。 (3)Else子句是可选的。
粘贴后得到label2，设置label2的caption属性为奇偶性判断结果：
在窗体中添加一个文本框text1，设置text1的text为空，FontSize 为20。 在窗体中添加一个命令按钮Command1，设置Command1的 Caption属性为判断奇偶，FontSize为12。
大连理工大学出版社
6.1.1单行选择结构语句If ... Then ... Else
1．单行结构If语句语法介绍
单行结构If语句的语法格式为：If <条件表达式> Then[<语句 1>][ Else<语句2>] 该语句的功能是： 如果条件表达式的值为真时执行语句1，否则执行语句2。 说明： (1)“条件表达式”可以是关系表达式、逻辑表达式或者数值表达
程序执行后，用户输入一个成绩数据，系统先判断成绩是否合格， 然后给出成绩合格或不合格的提示，再显示不同的下学期开学信息。
如图6-7所示。
大连理工大学出版社
6.1.4嵌套结构条件语句If ... ElseIf ... Else ... End If
一个单行结构If语句或者一个块结构If语句都只有两个分支， 当条件分支大于两个时，一个单行结构If语句或者一个块结构If语句 就不能满足要求。 当条件分支大于两个时，可以采用嵌套结构条件语句： If ... ElseIf ... Else ... End If
符加上换行字符“_”就可以了。 程序执行后，用户输入两个数，单击比较大小按钮后系统会给出
比较结果，如图6-3所示。
大连理工大学出版社
6.1.2 IIF函数
IIF函数可以实现一些比较简单的选择结构。
1．IIF函数语法介绍
IIF函数的语法格式为：
IIF(<条件表达式>，<条件表达式为真返回值部分>，<条件表达
大连理工大学出版社
编写命令按钮Command1的Click 事件代码如下：
Private Sub Command1_Click() If Val(Text1.Text) > Val(Text2.Text) Then
Label2.Caption =“比较结果：” + Text1.Text + “>” +
式。如果是数值表达式，则非0时为真，0为假。
(2) Else 子句部分（包括语句2）可以缺省。如果缺少Else子句， 语句1为必需参数。 (3)单行If语句不需要End If
大连理工大学出版社
2．单行结构If语句应用实例——比较大小
下面看一个单行结构If语句应用实例。
设计步骤如下：
(1)建立应用程序用户界面和设置对象属性。 选择“新建工程”，进入窗体设计器。 在窗体中添加一个标签label1，设置label1的AutoSize属性为 True,FontSize为12，caption属性为：请在两个文本框中分别输入一 个数。复制label1，粘贴后得到label2，设置label2的caption属性 为比较结果：
Private Sub Command1_Click() If Val(Text1.Text) >= 60 Then MsgBox "成绩合格!", 48, "提示" Label2.Caption = "下学期9月1日报到！" Else MsgBox "成绩不合格!", 16, "提示" Label2.Caption = "提示信息:" + "下学期8月30日到校补考！" End If End Sub
大连理工大学出版社
2．块结构If语句应用实例
下面看一个块结构If语句应用实例，本实例的功能是对用户输入的
成绩数据先判断是否及格，然后分别给出不同的提示信息。
设计步骤如下： (1)建立应用程序用户界面和设置对象属性。 选择“新建工程”，进入窗体设计器。 在窗体中添加一个标签label1，设置label1的AutoSize属性为 True,FontSize为12，caption属性为：请输入一个成绩数据。复制 label1，粘贴后得到label2，设置label2的caption属性为提示信息：
大连理工大学出版社
6.1 If语句
一般而言，If语句的流程图如图6-1所示。一个If语句有两个分 支，如果程序不循环执行，则这两个分支中有且仅有一个分支会得 到执行。特殊情况下某一个分支可以没有任何操作。
图6-1 If语句的流程图
VB的If语句有两种格式，一是单行结构，一是块结构。
大连理工大学出版社
说明： (1)Else语句为可选语句。 (2)每一个块If结构都要有一个End If和它配对。
大连理工大学出版社
2. If语句中嵌套If语句应用实例
下面看一个If语句中嵌套If语句的应用实例。 某百货公司为了庆祝开业10周年，举行购物打折活动。如果每位 顾客一次购物满1000元，按9折优惠；满2000元，按8折优惠。编写一 个程序，输入购物金额，输出打折后的应付金额。 设计步骤如下：
新世纪应用型高等教育 计算机类课程规划教材
单击此处编辑母版标题样式
单击此处编辑母版副标题样式
第6章
Visual Basic 程序设计
（第二版）
选择结构与循环结构程序设计
大连理工大学出版社
第 6章
选择结构与循环结构程序设计
程序运行中有时需要根据对某个条件的逻辑判断结果来决定执 行何种操作，这就是选择结构。If语句和Select Case语句就是专
在窗体中添加一个文本框text1，设置text1的text为空，FontSize
为20。 在窗体中添加一个命令按钮Command1，设置Command1的Caption属
性为确定，FontSize为12。
设计好的程序用户界面如图6-6所示。
大连理工大学出版社
(2)编写代码。 编写命令按钮Command1的Click 事件代码如下：
"比较结果：" + Text1.Text + "=" + Text2.Text
If Val(Text1.Text) < Val(Text2.Text) Then Label2.Caption = _ "比较结果：" + Text1.Text + "<" + Text2.Text End Sub
VB的程序代码是允许换行书写的，只要在每次换行的最后一个字
在窗体中添加一个文本框text1，设置text1的text为空，
FontSize为20。复制text1，粘贴后得到text2。 在窗体中添加一个命令按钮Command1，设置Command1的Caption
属性为比较大小，FontSize为12。
设计好的程序用户界面如图6-2所示，图6-3是运行结果。
Text2.Text ElseIf Val(Text1.Text) = Val(Text2.Text) Then Label2.Caption =“比较结果：” + Text1.Text + “=” + Text2.Text Else Label2.Caption =“比较结果：” + Text1.Text + “<” + Text2.Text End If
门用来实现选择结构的语句。
在实际问题中，有时需要去重复执行一组相同的命令序列，而 顺序结构和分支结构所组成的命令序列，每个语句最多执行一次。 为解决这类需要重复执行某组命令序列的问题，需要引入循环结构。 所谓循环，就是使得一组语句重复执行若干次。可以预先指定要循 环的次数；也可以预先不指定次数，只要某个条件成立，就可以循 环下去，直到该条件不成立。VB中用于实现循环结构的语句有： Do„„Loop、For„„Next、While„Wend。