my第4章 VB基本控制结构2.pptVIP

Visual Basic基本控制结构第2讲 —— 选择结构 本节重点： If语句的分类 If…Then结构 If…Then…Else结构 IIf函数 多分支If结构：If…Then…ElseIf和If嵌套语句 Select Case结构 分支结构是根据给定条件的真假（条件是否成立）从而决定从多种可能的分支中执行某一分支的相应操作。 ? 在任何情况下：“无论分支多少，必选其一；纵然分支众多，仅选其一。” 实现分支结构的语句有： If 语句、Select Case语句。 If语句又可以分为如下几类： If语句 If…Then结构 语法格式： 功能：如果表达式的值为真（True），执行Then后的语句块内容；否则不执行语句块内容。 说明： 表达式可以是：关系表达式、逻辑表达式、算术表达式。若为算术表达式，值为0则为假，非0则为真。 如果是单行If格式，所有的代码必须写在同一行中，绝对不能换行。如果是块If语句，各语句块必须独占一行，End If不能省略。 语句块若是一条语句，可用单行If结构；为多条语句，则采用块If结构较好，当然也可以采用单行If格式，这时各语句必须在同一行中且用：分隔，且不能出现End If。 例1 输入两个数，输出较大的数。 例1 输入两个数，输出较大的数。 例1 输入两个数，输出较大的数。 【例】 A = InputBox(“A值”) : B = InputBox(B值) Print A, B If A B Then T = A A = B B = T End If Print A, B 若输入1 , 2 则输出结果为 If语句 If…Then…Else结构 语法格式： 功能：该结构用于解决二选一的问题。当表达式的值为真，执行语句块1的语句内容；否则执行语句块2的语句内容 。 说明： 表达式最终的值必须为逻辑值，即取值为真或者是假。 若语句块1和语句块2都是单条语句，可采用单行If格式，否则采用块If语句。 跟If …Then 不同，该结构中即使表达式值为假，就执行语句块2的语句内容 。 【例】计算分段函数的值。 2. 给计算按钮添加程序代码： Dim x, y As Single Cls x =Val(InputBox( 输入 X 的值 ：)) If x 0 Then y = 3 * x + 2 Else y = 2 * x - 1 End If Print: Print: Print: Print Print “ x=”; x; “时： y= ”; y (输出结果应该是什么) 例2 编写一个程序，实现当用户输入的用户名和口令都正确时显示欢迎登录的消息对话框，当用户名或口令有错误时显示消息对话框报告错误。 If语句 IIf函数 语法格式： 功能：当条件为真（True），该函数返回表达式1的值，否则返回表达式2的值。其中，函数的三个参数都是必须的，不可省略 。 说明： 在使用IIf函数时，必须将其返回值赋值给一个变量，不可以单独调用。如上面的代码不可以写成：IIf(x = 1, “Yes”, “No”),需为:a = IIf(x = 1, “Yes”, “No”),或作为其他函数的参数。 在使用IIf函数时，第2和第3个参数必须只能为一条语句，而且必须是有返回值的，这是IIf函数跟If…Then…Else结构的不同之处。 例3 编写一个程序，对输入的三个数进行排序，并将排好序的三个数输出。 分析： 本题需要三个文本框用于保存输入的三个数，另外还需要一个“排序”按钮和一个“退出”按钮。 界面设计： If语句 多分支If结构 语法格式： 执行过程：如表达式1为真则执行语句块1；否则测试表达式2的值，为真则执行语句块2；依次类推至找到一个值为真的表达式则执行相应的语句块；若都不为真时，执行Else后语句块内容 。 说明： 表达式最终的值必须为逻辑型，即取值是真或者是假； 如果要产生n个分支，则需要n-1个测试表达式； 此结构不能转换成单行If格式 。 例4 编写一个程序，根据用户输入的某个学生的成绩评出优、良好、中等、及格和不及个五个等级。判断标准如下： 例5：学校对学习成绩优良的同学给予奖励，只要满足以下条件之一就可以获得奖励： 例5：学校对学习成绩优良的同学给予奖励。 If语句 If嵌套:所谓If嵌套，是指在If的Then或者Else语句块中还可以嵌套If结构，以达到多分支的目的。 语法格式： 【例】铁路托运行李，从甲地