《VBA编程及应用基础》第3章1选择结构.pptx

判断结构VBA 程序控制结构本讲内容程序控制结构程序一般是按照书写的顺序执行的，但有时候需要按照不同的条件执行不同的操作，这就是流程控制VBA中程序的控制结构分为：顺序结构AB选择结构PAB循环结构PA判断语句判断语句用来根据条件表达式的结果控制程序的流程If 语句行结构 If 条件 Then 语句1 [Else 语句2]块结构 If 条件 Then 语句块1 [Else 语句块2] End IfTrueFalse表达式语句1语句2If 语句流程图：If 语句实例/两数中更大数.xlsm实例：设计一个找出两个数中更大数的程序，界面设计如下图所示。在 B1 和 B2 单元格分别输入任意一个数，单击“更大数”圆角矩形时，在 B3 单元格输出两数中更大的数If 语句实践1：设计一个找出三个数中最大数的程序，界面设计如下图所示。在 B1、B2 和 B3 单元格分别输入任意一个数，单击“最大数”圆角矩形时，在 B4 单元格输出三个数中更大的数If 语句实践2：编写一个过程，用输入框 InputBox 函数输一个学生的成绩，然后判断此学生的成绩是否合格，并将评判结果以“成绩合格”或“成绩不合格”用消息框显示If 语句实例：设计一个“健康秤”程序，界面设计如下图所示。单击“健康状况”按钮，根据公式：标准体重 = 身高 - 105 判断某人的健康状况。体重高于标准体重*1.1为偏胖，在 B3 单元格输出“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，在 B3 单元格输出“偏瘦，增加营养”；其它则在 B3 单元格输出“正常，继续保持”嵌套的If语句If 条件1 Then 语句1Else If 条件2 Then 语句2 Else 语句3 End IfEnd IfIf 语句实践3：编写一个过程，用InputBox函数输入某门课程的百分制成绩x，然后将其按下表的评定条件转换成等级制成绩y，并将等级制成绩用MsgBox函数输出优良中及格不及格90≤x≤10080≤x9070≤x8060≤x70x60分支较多时，嵌套的If语句太烦？If 语句 If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 …… [ElseIf 条件n Then 语句块n] [Else 语句块n+1] End If 真 假表达式1假 真表达式2 假 真表达式3语句1语句2语句3语句4If 语句ElseIf 语句的流程图：If 语句重新实现“实践3”？If 语句实践4：根据杭州的气候特点，通常认定3月~5月为春季，6月~8月为夏季，9月~11月为秋季，12月~次年2月为冬季。编写一个程序，在B1单元格输入当前的月份，单击“判定”按钮时，在B2单元格以“*月是*季”的形式输出结果Select Case语句Select Case测试表达式 Case表达式值1 语句块1 …… [Case表达式值n 语句块n] [Case Else 语句块n+1]End Select测试表达式: 算术表达式或字符表达式，测试对象表达式值: 下列格式中的一个或多个(,)精确表示：表达式1[,表达式2……]，如：1, 3, 5, 7, 9范围表示：表达式1 To 表达式2，如：A To Z关系表示：Is 关系运算符 表达式，如：Is = 60功能： 根据测试表达式的值，从多个语句块中选择符合条件的一个语句块执行！Select Case 语句重新实现“实践4”？Select Case 语句实践：使用 Select Case 语句重新实现“实践3”程序？Select Case 语句实践：某商场举行周年庆购物促销活动，活动规则如下：金额500元以下不享受优惠金额500元及以上且小于2000元优惠10%金额2000元及以上且小于4000元优惠12%金额4000元及以上且小于6000元优惠14%金额6000元及以上优惠15%编写一个过程，输入购物总价，计算应付款和优惠款额Thank You