VBA编程及应用基础课件1 选择结构

VBA程序控制结构判断结构本讲内容If语句SelectCase语句程序控制结构程序一般是按照书写的顺序执行的，但有时候需要按照不同的条件执行不同的操作，这就是流程控制VBA中程序的控制结构分为：顺序结构选择结构循环结构顺序结构AB选择结构PAB循环结构PA判断语句判断语句用来根据条件表达式的结果控制程序的流程If语句SelectCase语句★If语句行结构

If<条件>Then<语句1>[Else<语句2>]块结构

If<条件>Then <语句块1>

[Else <语句块2>] EndIfIf语句流程图：语句1语句2表达式TrueFalseIf语句实例：设计一个找出两个数中更大数的程序，界面设计如下图所示。在B1和B2单元格分别输入任意一个数，单击“更大数”圆角矩形时，在B3单元格输出两数中更大的数If语句实践1：设计一个找出三个数中最大数的程序，界面设计如下图所示。在B1、B2和B3单元格分别输入任意一个数，单击“最大数”圆角矩形时，在B4单元格输出三个数中更大的数If语句实践2：编写一个过程，用输入框InputBox函数输一个学生的成绩，然后判断此学生的成绩是否合格，并将评判结果以“成绩合格”或“成绩不合格”用消息框显示If语句实例：设计一个“健康秤”程序，界面设计如下图所示。单击“健康状况”按钮，根据公式：标准体重=身高-105

判断某人的健康状况。体重高于标准体重*1.1为偏胖，在B3单元格输出“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，在B3单元格输出“偏瘦，增加营养”；其它则在B3单元格输出“正常，继续保持”If<条件1>Then <语句1>Else If<条件2>Then <语句2> Else <语句3> EndIfEndIf嵌套的If语句If语句实践3：编写一个过程，用InputBox函数输入某门课程的百分制成绩x，然后将其按下表的评定条件转换成等级制成绩y，并将等级制成绩用MsgBox函数输出优良中及格不及格90≤x≤10080≤x<9070≤x<8060≤x<70x<60分支较多时，嵌套的If语句太烦？If语句 If<条件1>Then <语句块1>

ElseIf<条件2>Then <语句块2> ……

[ElseIf<条件n>Then <语句块n>] [Else <语句块n+1>] EndIfIf语句ElseIf语句的流程图：语句2假真语句1表达式2表达式3语句3语句4真假假真表达式1If语句重新实现“实践3”？If语句实践4：根据杭州的气候特点，通常认定3月~5月为春季，6月~8月为夏季，9月~11月为秋季，12月~次年2月为冬季。编写一个程序，在B1单元格输入当前的月份，单击“判定”按钮时，在B2单元格以“*月是*季”的形式输出结果SelectCase语句SelectCase<测试表达式> Case<表达式值1> <语句块1> ……

[Case<表达式值n> <语句块n>]

[CaseElse <语句块n+1>]EndSelect<测试表达式>:算术表达式或字符表达式，测试对象<表达式值>:下列格式中的一个或多个(,)精确表示：<表达式1>[,<表达式2>……]，如：1,3,5,7,9范围表示：<表达式1>To<表达式2>，如："A"To"Z"关系表示：Is<关系运算符><表达式>，如：Is>=60功能：根据测试表达式的值，从多个语句块中选择符合条件的一个语句块执行！SelectCase语句重新实现“实践4”？SelectCase语句实践：使用SelectCase语句重新实现“实践3”程序？SelectCase语句实践：某商场举行周年庆购物促销活动，活动规则如下：金额500元以下不享受优惠金额500元及以上且小于2000元优惠10%金