VB语言程序设计教程第04章 Visual Basic程序控制结构.pptVIP

4.2 选择结构程序设计 4.2.1 If语句和IIf函数 1．If语句 （1）单行结构If语句 格式： If 条件 Then 语句组1 [Else 语句组2] 功能： 如果条件表达式为真（True），则执行语句组1，否则执行语句组2，然后去执行该If语句的下一条语句，如图4-10（b）所示。 [Else 语句组2]可以省略，此时，如果条件表达式为真（True），则执行语句组1，否则直接去执行该If语句的下一条语句。如图4-10（a）所示。 4.2 选择结构程序设计 图4-10 单行结构If语句流程图 4.2 选择结构程序设计 说明： ① 条件：可以是关系表达式、逻辑表达式或数值表达式（0按False处理，非0按True处理）。 ② 单行If语句必须在一个语句行内完成。例如，用单行If语句求变量x和y中的最大值存到max中： If x y Then max = x Else max = y ③ 语句组中允许有多条语句，但各语句之间要用“:”隔开。例如，用单行If语句求变量x和y中的最大值存到max中，最小值存到min中。 If x y Then max = x : min = y Else max = y : min = x 其中Then 子句中语句组1包含两条赋值语句，Else子句中语句组2也包含两条赋值语句。 4.2 选择结构程序设计 【例4-3】输入一个整数，判断它是奇数还是偶数，并输出相应的提示信息。程序运行界面如图4-11所示。 （a）界面1 （b）界面2 图4-11 例4-3运行界面 4.2 选择结构程序设计 （2）块结构双分支If语句 格式： If 条件 Then 语句组1 [Else 语句组2] End If 功能： 如果条件表达式为真（True），则执行语句组1，否则执行语句组2，然后去执行该If语句的下一条语句（即End If下方的语句），如图4-10（b）所示。 Else子句可以省略，此时，如果条件表达式为真（True），则执行语句组1，否则直接去执行该If语句的下一条语句（即End If下方的语句）。流程图如图4-10（a）所示。 4.2 选择结构程序设计 说明： ① 块结构If语句必须以End If 结束。 ② 不管语句组1和语句组2中有多少条语句，合在一起是一条If语句。 例如：用块结构If语句完成【例4-3】，代码如下。 Private Sub Command1_Click() Dim n As Integer, str As String n = Val(Text1.Text) 从界面上的Text1获得变量n的值 If n Mod 2 = 0 Then str = 偶数 Else str = 奇数 End If Text2.Text = str 把str的内容显示在界面上的Text2中 End Sub 4.2 选择结构程序设计 （3）块结构多分支If语句 格式： If 条件1 Then 语句组1 ElseIf 条件2 Then 语句组2 …… ElseIf 条件n Then 语句组n [Else 其他语句组] End If 4.2 选择结构程序设计 功能：实现多分支结构。 系统首先判断条件1，若为True，则执行完语句组1后，该块If语句结束，系统继续执行End If语句后面的语句； 若为False，则再判断条件2，若为True，则执行语句组2后，该块If语句也结束了； 若条件2为False，则继续依次判断后面的条件3、……、条件n，一旦遇到相应的条件为True，则执行该条件下的语句组； 若块If语句中列出的所有条件都为False，则执行Else子句的其他语句组。流程图如图4-12所示。 4.2 选择结构程序设计 图4-12 多分支If语句流程图 4.2 选择结构程序设计 说明： ① 如果省略Else子句，而且所有条件都不满足，则任何语句组都不执行，直接去执行End If下边的语句。 ② 关键字ElseIf中间没有空格。 4.2 选择结构程序设计 【例4-4】某书店打折促销，每位顾客一次购书在100元以上200元以下者，按九折优惠；在200元及以上300元以下者，按八五折优惠；在300元及以上者，按八折优惠；编写程序，输入购书款数，计算输出优惠价。程序运行界面如下图所示。 4.2 选择结构程序设计 2．If语句的嵌套 如果一个If的语句组中又包含另一个If语句,称为If语句的嵌套。 格式： If