VBA编程入门PPT学习课件.ppt

VBAVBA编程入门编程入门目录目录序序 -3VBA编程环境编程环境-7VBA编程基础编程基础-12VBA常用语句常用语句-32VBA流程控制流程控制-35VBA数组数组-57VBA过程过程-69VBA操作数据库操作数据库-76VBA是什么是什么?1VBA有什么作用？有什么作用？2怎么样才能学好怎么样才能学好VBA？3序言序言VBAVBA是什么？是什么？简单的说VBA是一种编程语言，它可以支持在Office系列软件中命令和功能的编写。Excel VBA则是以Microsoft Excel为开发对象的VBA语言。如运行下面的VBA代码就可以在单元格A1中输入100。Sub T1()Range(a1)=100End SubVBAVBA有什么作用有什么作用效率效率效率效率完成重复性的劳动完成重复性的劳动 如果你需要经常重复的做如果你需要经常重复的做某个工作，那么可以编写一个某个工作，那么可以编写一个VBA代码来帮代码来帮你快速完成你快速完成。克服克服克服克服克服克服excel自身功能的局限性自身功能的局限性 excel提供的功能提供的功能有效，提供的函数也有效。而我们利用有效，提供的函数也有效。而我们利用VBA则可以自定义功能、自定义函数。则可以自定义功能、自定义函数。应用应用应用应用编制自已的应用软件编制自已的应用软件 即使你不是专业的编程即使你不是专业的编程人员，你也可以利用人员，你也可以利用VBA+Excel编写出你想编写出你想要的应用软件要的应用软件怎么才能学好怎么才能学好VBAVBA6、独立编写、独立编写VBA小软件小软件1、身边备有几本、身边备有几本VBA参考书参考书5、多帮助别人，多总结、多帮助别人，多总结4、多练习、多思考、多提问、多练习、多思考、多提问2、常用录制宏功能、常用录制宏功能3、多查看帮助文件、多查看帮助文件Text进入进入VBAVBA编程环境编程环境VBAVBA窗口的组成窗口的组成 VBAVBA窗口由工具栏、工程资源管理器窗口、窗口由工具栏、工程资源管理器窗口、属性窗口、代码窗口和立即窗口组成。属性窗口、代码窗口和立即窗口组成。新建模块进行新建模块进行VBAVBA编程编程 V-1 VBA V-1 VBA编程环境编程环境 进入进入VBAVBA编程环境（编程环境（Excel2007Excel2007）如果是在如果是在如果是在如果是在Office 2007Office 2007中，若你没看到中，若你没看到中，若你没看到中，若你没看到“开发工具开发工具开发工具开发工具”选项卡的话，先到选项中打开它。选项卡的话，先到选项中打开它。选项卡的话，先到选项中打开它。选项卡的话，先到选项中打开它。工程窗口工程窗口选择对象选择对象选择选择事件事件属性窗口属性窗口选择对象选择对象的属性的属性代码代码窗口窗口 VBE VBE编程环境编程环境 然后在然后在“开发工具开发工具”选项卡的选项卡的“代码代码”区域里按区域里按”Visual BasicVisual Basic”按键，就可以打开同样的界面按键，就可以打开同样的界面 标准工具条标准工具条 视图视图视图视图Microsoft ExcelMicrosoft ExcelMicrosoft ExcelMicrosoft Excel按钮：切换按钮：切换按钮：切换按钮：切换Excel 2007Excel 2007Excel 2007Excel 2007窗口窗口窗口窗口 插入按钮：插入模块或过程插入按钮：插入模块或过程插入按钮：插入模块或过程插入按钮：插入模块或过程 运行子过程运行子过程运行子过程运行子过程/用户窗体按钮：运行模块中的程序用户窗体按钮：运行模块中的程序用户窗体按钮：运行模块中的程序用户窗体按钮：运行模块中的程序 中断按钮：中断正在运行的程序中断按钮：中断正在运行的程序中断按钮：中断正在运行的程序中断按钮：中断正在运行的程序 重新设置按钮：结束正在运行的程序重新设置按钮：结束正在运行的程序重新设置按钮：结束正在运行的程序重新设置按钮：结束正在运行的程序 设置模式按钮：在设计模式和非设计模式之间切换设置模式按钮：在设计模式和非设计模式之间切换设置模式按钮：在设计模式和非设计模式之间切换设置模式按钮：在设计模式和非设计模式之间切换 工程资源管理器按钮：用于打开工程资源管理器工程资源管理器按钮：用于打开工程资源管理器工程资源管理器按钮：用于打开工程资源管理器工程资源管理器按钮：用于打开工程资源管理器 属性窗口按钮：用于打开属性窗口属性窗口按钮：用于打开属性窗口属性窗口按钮：用于打开属性窗口属性窗口按钮：用于打开属性窗口 对象浏览器按钮：用于打开对象浏览器对象浏览器按钮：用于打开对象浏览器对象浏览器按钮：用于打开对象浏览器对象浏览器按钮：用于打开对象浏览器Microsoft Excel插入模块运行子过程/用户窗体设计模式中断重新设计 工程资源管理器对象浏览器属性窗口 新建模块新建模块 在在在在“工程工程工程工程”视图中，右键单击视图中，右键单击视图中，右键单击视图中，右键单击”ThisWorkbookThisWorkbookThisWorkbookThisWorkbook”，然后在菜单中选然后在菜单中选然后在菜单中选然后在菜单中选“插入插入插入插入”-“模块模块模块模块”，就会在主界面出，就会在主界面出，就会在主界面出，就会在主界面出现一片空白（如图现一片空白（如图现一片空白（如图现一片空白（如图Module1Module1Module1Module1）。即可在空白进行）。即可在空白进行）。即可在空白进行）。即可在空白进行VBAVBAVBAVBA编程。编程。编程。编程。V-2-1 V-2-1 常量、变量常量、变量常量：在程序运行中其存储的值不会改变。常量：在程序运行中其存储的值不会改变。常量：在程序运行中其存储的值不会改变。常量：在程序运行中其存储的值不会改变。变量：在程序运行中其值可以改变。变量：在程序运行中其值可以改变。变量：在程序运行中其值可以改变。变量：在程序运行中其值可以改变。VBA VBA VBA VBA使用常量、变量来存储值。用来保存在程使用常量、变量来存储值。用来保存在程使用常量、变量来存储值。用来保存在程使用常量、变量来存储值。用来保存在程序运行期间数据。序运行期间数据。序运行期间数据。序运行期间数据。V-2 VBA编程基础编程基础常量常量 在程序运行过程中，其值在程序运行过程中，其值在程序运行过程中，其值在程序运行过程中，其值不会被改变不会被改变不会被改变不会被改变的量称为常量。的量称为常量。的量称为常量。的量称为常量。在在在在VBAVBAVBAVBA中有三类常量：中有三类常量：中有三类常量：中有三类常量：直接常量直接常量直接常量直接常量 如：如：如：如：10101010，20%20%20%20%，123.0123.0123.0123.0，“ABABABAB”，“VBAVBAVBAVBA程序设计程序设计程序设计程序设计”等等等等 符号常量符号常量符号常量符号常量系统常量系统常量系统常量系统常量 指指指指VBAVBAVBAVBA系统预先定义好的，用户可以直接引用的量。系统预先定义好的，用户可以直接引用的量。系统预先定义好的，用户可以直接引用的量。系统预先定义好的，用户可以直接引用的量。如：如：如：如：acFormacFormacFormacForm，acQueryacQueryacQueryacQuery，vbOkvbOkvbOkvbOk，vbRed vbRed vbRed vbRed 变量是内存中的临时单元，存放在程序执行变量是内存中的临时单元，存放在程序执行变量是内存中的临时单元，存放在程序执行变量是内存中的临时单元，存放在程序执行过程中过程中过程中过程中产生的中间结果和最后输出结果。产生的中间结果和最后输出结果。产生的中间结果和最后输出结果。产生的中间结果和最后输出结果。在程序中使用变量，就要给变量定义名称及类型，在程序中使用变量，就要给变量定义名称及类型，在程序中使用变量，就要给变量定义名称及类型，在程序中使用变量，就要给变量定义名称及类型，即对变量进行声明。即对变量进行声明。即对变量进行声明。即对变量进行声明。变量变量 变量命名规则变量命名规则变量名必须以字母或汉字开头，后可跟字母、汉字、变量名必须以字母或汉字开头，后可跟字母、汉字、变量名必须以字母或汉字开头，后可跟字母、汉字、变量名必须以字母或汉字开头，后可跟字母、汉字、数字或下划线组成（不能含有小数点和空格），长度数字或下划线组成（不能含有小数点和空格），长度数字或下划线组成（不能含有小数点和空格），长度数字或下划线组成（不能含有小数点和空格），长度不超过不超过不超过不超过255255255255个字符的字符串；个字符的字符串；个字符的字符串；个字符的字符串；不能使用不能使用不能使用不能使用VBAVBAVBAVBA中的关键字；中的关键字；中的关键字；中的关键字；VBAVBAVBAVBA中不区分变量名的大小写；中不区分变量名的大小写；中不区分变量名的大小写；中不区分变量名的大小写；变量名的最后一个字符可以是变量名的最后一个字符可以是变量名的最后一个字符可以是变量名的最后一个字符可以是%、&、！、！、！、！、#、$等表等表等表等表示数据类型的声明符。示数据类型的声明符。示数据类型的声明符。示数据类型的声明符。说明：常量名的命名规则与变量名的命名规则相同说明：常量名的命名规则与变量名的命名规则相同说明：常量名的命名规则与变量名的命名规则相同说明：常量名的命名规则与变量名的命名规则相同V-2-2 V-2-2 数据类型与变量的声明数据类型与变量的声明 在在VBAVBA中，数据类型用来决定变量可以保存中，数据类型用来决定变量可以保存何种数据。何种数据。VBAVBA支持多种数据类型，为用户编程支持多种数据类型，为用户编程提供了方便。提供了方便。VBAVBA的数据类型的数据类型数据类型数据类型数据类型数据类型类型声明符类型声明符类型声明符类型声明符存储空间存储空间存储空间存储空间 取值范围取值范围取值范围取值范围整型整型整型整型（IntegerIntegerIntegerInteger）%2 2 2 2-32768-32768-32768-3276832767327673276732767长整型（长整型（长整型（长整型（LongLongLongLong）&4 4 4 4-2147483648-2147483648-2147483648-21474836482147483647214748364721474836472147483647单精度浮点型单精度浮点型单精度浮点型单精度浮点型（SingleSingleSingleSingle）！4 4 4 4负数：负数：负数：负数：-3.402823E38-3.402823E38-3.402823E38-3.402823E38-1.401298E-45-1.401298E-45-1.401298E-45-1.401298E-45正数：正数：正数：正数：1.401298E-451.401298E-451.401298E-451.401298E-453.402823E383.402823E383.402823E383.402823E38双精度浮点型双精度浮点型双精度浮点型双精度浮点型（DoubleDoubleDoubleDouble）#8 8 8 8负数：负数：负数：负数：-1.79769313486232E308-1.79769313486232E308-1.79769313486232E308-1.79769313486232E308-4.94065645841247E-3244.94065645841247E-3244.94065645841247E-3244.94065645841247E-324正数：正数：正数：正数：4.94065645841247E-3244.94065645841247E-3244.94065645841247E-3244.94065645841247E-3241.79769313486232E3081.79769313486232E3081.79769313486232E3081.79769313486232E308货币型货币型货币型货币型(Currency)(Currency)(Currency)(Currency)8 8 8 8-922337203685477.5808-922337203685477.5808-922337203685477.5808-922337203685477.5808922337203685477.5807922337203685477.5807922337203685477.5807922337203685477.5807日期型日期型日期型日期型(Date)(Date)(Date)(Date)8 8 8 8100100100100年年年年1 1 1 1月月月月1 1 1 1日日日日9999999999999999年年年年12121212月月月月31313131日日日日字符型字符型字符型字符型(String)(String)(String)(String)$0 0 0 0字符字符字符字符65400654006540065400个字符个字符个字符个字符字节型字节型字节型字节型(Byte)(Byte)(Byte)(Byte)1 1 1 10 0 0 0255255255255逻辑型逻辑型逻辑型逻辑型(Boolean)(Boolean)(Boolean)(Boolean)2 2 2 2TrueTrueTrueTrue或或或或FalseFalseFalseFalse对象型对象型对象型对象型(Object)(Object)(Object)(Object)4 4 4 4任何引用的对象任何引用的对象任何引用的对象任何引用的对象变体型变体型变体型变体型(Variant)(Variant)(Variant)(Variant)变量声明变量声明用用Dim|StaticDim|Static语句显式声明局部变量语句显式声明局部变量 格式：格式：Dim Dim 变量名变量名 AS AS 类型类型 或或 Dim Dim 变量名类型符变量名类型符 语句中的语句中的“As As 类型类型”子句是可选的。如果子句是可选的。如果使用该子句，就可以定义变量的数据类型。未使用该子句，就可以定义变量的数据类型。未使用，默认变量的类型为变体型（使用，默认变量的类型为变体型（VariantVariant）。）。例如：例如：例如：例如：Dim i As integer,sDim i As integer,sDim i As integer,sDim i As integer,s 表示声明了一个名为表示声明了一个名为表示声明了一个名为表示声明了一个名为i i i i的整型变量和一个名为的整型变量和一个名为的整型变量和一个名为的整型变量和一个名为s s s s的的的的变体型变量。变体型变量。变体型变量。变体型变量。关键字关键字DimDim或或StaticStatic的区别：的区别：Dim Dim 声明声明：随过程的调用而分配存贮单元，每次：随过程的调用而分配存贮单元，每次：随过程的调用而分配存贮单元，每次：随过程的调用而分配存贮单元，每次调用都对变量初始化；过程体结束，变量的内容自动调用都对变量初始化；过程体结束，变量的内容自动调用都对变量初始化；过程体结束，变量的内容自动调用都对变量初始化；过程体结束，变量的内容自动消失，存储单元释放。消失，存储单元释放。消失，存储单元释放。消失，存储单元释放。Static Static 声明声明：Static Static Static Static 声明的变量，也称为静态声明的变量，也称为静态声明的变量，也称为静态声明的变量，也称为静态变量。静态变量在程序运行过程中一直保留其值，变量。静态变量在程序运行过程中一直保留其值，变量。静态变量在程序运行过程中一直保留其值，变量。静态变量在程序运行过程中一直保留其值，即即即即每次调用过程，变量保持原来的值。每次调用过程，变量保持原来的值。每次调用过程，变量保持原来的值。每次调用过程，变量保持原来的值。隐式声明变量隐式声明变量 未进行上述的声明而直接使用变量，称未进行上述的声明而直接使用变量，称变量的变量的隐式声明隐式声明。采用隐式声明的变量都是。采用隐式声明的变量都是变体型（变体型（Variant Variant）。）。注意注意:VBAVBAVBAVBA中允许不事先声明而直接使用变量，可以通过中允许不事先声明而直接使用变量，可以通过中允许不事先声明而直接使用变量，可以通过中允许不事先声明而直接使用变量，可以通过语句语句语句语句 Option ExplicitOption ExplicitOption ExplicitOption Explicit，来要求所使用的变量必须，来要求所使用的变量必须，来要求所使用的变量必须，来要求所使用的变量必须事先声明，否则事先声明，否则事先声明，否则事先声明，否则VBAVBAVBAVBA会发出警告信息。会发出警告信息。会发出警告信息。会发出警告信息。下下下下面面面面是是是是一一一一个个个个简简简简单单单单的的的的程程程程序序序序，其其其其使使使使用用用用的的的的变变变变量量量量a,a,a,a,b,b,b,b,SumSumSumSum都没有事先定义。都没有事先定义。都没有事先定义。都没有事先定义。Private Sub Form_Click()Private Sub Form_Click()Private Sub Form_Click()Private Sub Form_Click()SumSumSumSum=0=0=0=0 a a a a=10=10=10=10 b b b b=20=20=20=20 Sum=a+b Sum=a+b Sum=a+b Sum=a+b Print Sum=;Sum Print Sum=;Sum Print Sum=;Sum Print Sum=;SumEnd Sub End Sub End Sub End Sub 良良良良好好好好的的的的编编编编程程程程习习习习惯惯惯惯应应应应该该该该是是是是“先先先先声声声声明明明明变变变变量量量量，后后后后使使使使用用用用变变变变量量量量”，这这这这样样样样做做做做可可可可以以以以提提提提高高高高程程程程序序序序的的的的效效效效率率率率，同同同同时时时时也也也也使使使使程程程程序序序序易易易易于于于于调调调调试试试试。VBA VBA VBA VBA 中中中中可可可可以以以以强强强强制制制制显显显显式式式式声声声声明明明明，可可可可以以以以在在在在窗窗窗窗体体体体模模模模块块块块、标标标标准准准准模模模模块块块块和和和和类类类类模模模模块块块块的的的的通通通通用用用用声声声声明明明明段段段段中中中中加加加加入入入入语语语语句句句句：Option ExplicitOption ExplicitOption ExplicitOption Explicit声明而未赋值的变量的值为：声明而未赋值的变量的值为：数值型变量初始化为数值型变量初始化为0 0；字符型变量为零长度字符串；字符型变量为零长度字符串；变体型变量初始化为变体型变量初始化为 EmptyEmpty。变量的初始化变量的初始化V-2-3 V-2-3 运算符和表达式运算符和表达式运算符运算符算术运算符算术运算符算术运算符算术运算符例如：例如：123+456123+456123+456123+456 结果结果 123456123456123456123456 123&456123&456123&456123&456 结果结果 123456123456123456123456 使用上使用上 与与+的区别：的区别：例如：例如：abcdef&12345abcdef&12345abcdef&12345abcdef&12345 结果为结果为 abcdef12345abcdef12345abcdef12345abcdef12345 123&456123&456123&456123&456 结果为结果为 123456123456123456123456 abcdef+12345 abcdef+12345 abcdef+12345 abcdef+12345 结果为结果为结果为结果为 出错出错出错出错 123+456 123+456 123+456 123+456 结果为结果为结果为结果为 579579579579 连接运算符：连接运算符：、+（字符串连接）（字符串连接）将两个操作数进行大小比较，结果为逻辑值。将两个操作数进行大小比较，结果为逻辑值。将两个操作数进行大小比较，结果为逻辑值。将两个操作数进行大小比较，结果为逻辑值。注意：注意：注意：注意：字符串比较字符串比较字符串比较字符串比较,则按字符的则按字符的则按字符的则按字符的ASCIIASCIIASCIIASCII码值从左到右码值从左到右码值从左到右码值从左到右一一比较，直到出现不同的字符为止。一一比较，直到出现不同的字符为止。一一比较，直到出现不同的字符为止。一一比较，直到出现不同的字符为止。关系运算符关系运算符将操作数进行逻辑运算，结果是逻辑值将操作数进行逻辑运算，结果是逻辑值将操作数进行逻辑运算，结果是逻辑值将操作数进行逻辑运算，结果是逻辑值逻辑运算符逻辑运算符v组成组成组成组成 由变量、常量、函数等运算对象加上运算符、圆括号由变量、常量、函数等运算对象加上运算符、圆括号由变量、常量、函数等运算对象加上运算符、圆括号由变量、常量、函数等运算对象加上运算符、圆括号组成的式子。组成的式子。组成的式子。组成的式子。v书写规则书写规则书写规则书写规则 (1)(1)(1)(1)运算符不能相邻。例运算符不能相邻。例运算符不能相邻。例运算符不能相邻。例a+-ba+-ba+-ba+-b是错误的。是错误的。是错误的。是错误的。(2)(2)(2)(2)乘号不能省略。例乘号不能省略。例乘号不能省略。例乘号不能省略。例x x x x 乘以乘以乘以乘以y y y y 应写成：应写成：应写成：应写成：x*yx*yx*yx*y。(3)(3)(3)(3)括号必须成对出现，均使用圆括号。括号必须成对出现，均使用圆括号。括号必须成对出现，均使用圆括号。括号必须成对出现，均使用圆括号。(4)(4)(4)(4)表达式从左到右在同一基准上书写，无高低。表达式从左到右在同一基准上书写，无高低。表达式从左到右在同一基准上书写，无高低。表达式从左到右在同一基准上书写，无高低。v运算优先级运算优先级运算优先级运算优先级 算术运算符算术运算符算术运算符算术运算符 连接运算符连接运算符连接运算符连接运算符 关系运算符关系运算符关系运算符关系运算符 逻辑运算逻辑运算逻辑运算逻辑运算表达式表达式例例例例1 1 1 1：用人单位招聘秘书：年龄小于：用人单位招聘秘书：年龄小于：用人单位招聘秘书：年龄小于：用人单位招聘秘书：年龄小于40404040岁的女性，学历专科或本科，岁的女性，学历专科或本科，岁的女性，学历专科或本科，岁的女性，学历专科或本科，年龄年龄年龄年龄40404040，性别，性别，性别，性别=“女女女女”，(学历学历学历学历=“专科专科专科专科”，学历，学历，学历，学历=“本科本科本科本科”)And And OrAnd And OrAnd And OrAnd And Or例例例例2 2 2 2：算术表达式：算术表达式：算术表达式：算术表达式：正确的正确的正确的正确的VBAVBAVBAVBA表达式：表达式：表达式：表达式：3 3 3 3=x And x=7=x And x=7=x And x=7=x And x=7 错误的错误的错误的错误的VBAVBAVBAVBA表达式：表达式：表达式：表达式：3=x=7 3=x=7 3=x=7 3=x=7 或或或或 3=x Or x=73=x Or x=73=x Or x=73=x Or x=7 考虑：考虑：考虑：考虑：若分别写成：若分别写成：若分别写成：若分别写成：年龄年龄年龄年龄40 And 40 And 40 And 40 And 性别性别性别性别=女女女女 And (And (And (And (学历学历学历学历=专科专科专科专科 And And And And 学历学历学历学历=本科本科本科本科)年龄年龄年龄年龄40 Or 40 Or 40 Or =0 x=0 x=0 x=0 ThenThenThenThen y=2*x+1 y=2*x+1 y=2*x+1 y=2*x+1 MsgBox y:&y MsgBox y:&y MsgBox y:&y MsgBox y:&yEnd SubEnd SubEnd SubEnd SubPrivate Sub p1()Private Sub p1()Dim x As Integer,y As Integer Dim x As Integer,y As Integer x=InputBox(x=InputBox(“请输入请输入x x值值”)IfIf x=0 x=0 ThenThen y=2*x+1 y=2*x+1 ElseElse y=1 y=1 MsgBox y:&y MsgBox y:&yEnd SubEnd Sub根据输入根据输入根据输入根据输入x x x x的值，观察的值，观察的值，观察的值，观察y y y y的输出结果的输出结果的输出结果的输出结果多行多行 If If 语句语句格式：格式：If If 表达式表达式 Then Then 语句组语句组1 1 Else Else 语句组语句组22 End If End If多行多行多行多行IfIfIfIf语句的执行过程是：语句的执行过程是：语句的执行过程是：语句的执行过程是：如果如果如果如果“表达式表达式表达式表达式”的值为真，的值为真，的值为真，的值为真，则执行语句组则执行语句组则执行语句组则执行语句组1 1 1 1；否则执行语句组；否则执行语句组；否则执行语句组；否则执行语句组2 2 2 2。当执行完语句组。当执行完语句组。当执行完语句组。当执行完语句组1 1 1 1或语句组或语句组或语句组或语句组2 2 2 2后，程序流程跳转到语句后，程序流程跳转到语句后，程序流程跳转到语句后，程序流程跳转到语句End IfEnd IfEnd IfEnd If的后面。的后面。的后面。的后面。语句组可以由一条或多条语句组成，语句组不能与语句组可以由一条或多条语句组成，语句组不能与语句组可以由一条或多条语句组成，语句组不能与语句组可以由一条或多条语句组成，语句组不能与ThenThenThenThen书写在同一行，否则书写在同一行，否则书写在同一行，否则书写在同一行，否则VBAVBAVBAVBA认为是一个单行认为是一个单行认为是一个单行认为是一个单行IfIfIfIf语句，语句，语句，语句，会导致会导致会导致会导致ElseElseElseElse没有匹配的没有匹配的没有匹配的没有匹配的IfIfIfIf。语句语句语句语句“End IfEnd IfEnd IfEnd If”是多行是多行是多行是多行IfIfIfIf语句的结束标志。在多行语句的结束标志。在多行语句的结束标志。在多行语句的结束标志。在多行IfIfIfIf语句中，即使省略语句中，即使省略语句中，即使省略语句中，即使省略ElseElseElseElse子句，也要写该结束标志。省略子句，也要写该结束标志。省略子句，也要写该结束标志。省略子句，也要写该结束标志。省略ElseElseElseElse子句时的多行子句时的多行子句时的多行子句时的多行IfIfIfIf语句形式为：语句形式为：语句形式为：语句形式为：If If If If 表达式表达式表达式表达式 Then Then Then Then 语句组语句组语句组语句组 End IfEnd IfEnd IfEnd If 例：计算分段函数例：计算分段函数单行单行单行单行IfIfIfIf语句实现：语句实现：语句实现：语句实现：If x=0 Then y=cos(x)If x=0 Then y=cos(x)x3+3*x x3+3*x If x0 Then y=sin(x)+sqr(x*x+1)If x0 Then y=sin(x)+sqr(x*x+1)多行多行多行多行IfIfIfIf语句实现：语句实现：语句实现：语句实现：If x0 Then y=sin(x)+sqr(x*x+1)Else y=cos(x)x3+3*x End IfIfIf语句的嵌套语句的嵌套IfIf语句的嵌套是指语句的嵌套是指IfIf或或ElseElse后面的语句后面的语句块中又包含块中又包含IfIf语句。语句。If If Then1 Then If If Then11 Then End If End If End If End If 例：已知例：已知x x，y y，z z三个数，使得三个数，使得xyzxyz 用一个用一个IFIF语句和一个嵌套的语句和一个嵌套的IFIF语句实现语句实现If xy Then t=x:x=y:y=t If yz Then t=y:y=z:z=t If xy Then t=x:x=y:y=t End If End IfIfIfIfIf语句的嵌套注意事项：书写锯齿型；语句的嵌套注意事项：书写锯齿型；语句的嵌套注意事项：书写锯齿型；语句的嵌套注意事项：书写锯齿型；If If If If 与与与与End IfEnd IfEnd IfEnd If配对配对配对配对IfIfThenThenElseIfElseIf语句语句(多分支结构多分支结构)If If Then1 Then 1 ElseIf ElseIf Then2 Then 2 Else Else 语句块语句块 n+1n+1 End IfEnd If不管有几个分支，依次判断，当某条件满不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；足，执行相应的语句，其余分支不再执行；若条件都不满足，且有若条件都不满足，且有ElseElse子句，则执行该子句，则执行该语句块，否则什么也不执行。语句块，否则什么也不执行。vElseIfElseIf不能写成不能写成 Else IfElse If。说明：说明：例：已知百分制成绩例：已知百分制成绩例：已知百分制成绩例：已知百分制成绩markmarkmarkmark，显示对应的五级制成绩，显示对应的五级制成绩，显示对应的五级制成绩，显示对应的五级制成绩 下列三种方法哪些正确，哪些错误？下列三种方法哪些正确，哪些错误？下列三种方法哪些正确，哪些错误？下列三种方法哪些正确，哪些错误？循环结构 For For NextNext循环循环 Do Do LoopLoop循环循环ForForNextNextNextNext循环结构：循环结构：将一段程序重复执行指定的将一段程序重复执行指定的将一段程序重复执行指定的将一段程序重复执行指定的次数，其中使用一个计数变量，统计执行的次数。次数，其中使用一个计数变量，统计执行的次数。次数，其中使用一个计数变量，统计执行的次数。次数，其中使用一个计数变量，统计执行的次数。格式：格式：For For 循环变量初值循环变量初值 to to 终值终值 Step Step 步长步长 语句块语句块 Exit ForExit For 语句块语句块 Next Next 循环变量循环变量 ForForNextNext循环语句循环语句 循环体循环体循环体循环体 循环变量循环变量循环变量循环变量 =终值终值终值终值 语句块语句块语句块语句块 Exit ForExit ForExit ForExit For 语句块语句块语句块语句块 循环变量加步长循环变量加步长循环变量加步长循环变量加步长 T T T T F F F F 循环变量得初值循环变量得初值循环变量得初值循环变量得初值 功功能能：执执执执行行行行ForForForFor语语语语句句句句时时时时，“循循循循环环环环变变变变量量量量”设设设设为为为为“初初初初值值值值”；执执执执行行行行到到到到NextNextNextNext语语语语句句句句时时时时，步步步步长长长长加加加加（减减减减）到到到到循循循循环环环环变变变变量量量量上上上上；再再再再执执执执行行行行ForForForFor语语语语句句句句时时时时，若若若若“循循循循环环环环变变变变量量量量”超超超超过过过过“终终终终值值值值”则循环结束。则循环结束。则循环结束。则循环结束。步长：未指定值时默认为步长：未指定值时默认为步长：未指定值时默认为步长：未指定值时默认为1 1 1 1。若若若若“步步步步长长长长”是是是是正正正正数数数数或或或或0 0 0 0，则则则则“初初初初值值值值”应应应应大大大大于于于于等等等等于于于于“终值终值终值终值”，否则，否则，否则，否则，“初值初值初值初值”应小于等于应小于等于应小于等于应小于等于“终值终值终值终值”。例：例：计算累加程序计算累加程序 S=1+2+3+4S=1+2+3+4.+x,.+x,并输出结果。并输出结果。方法：接收一个累加的终值，确定一个循环变量，循方法：接收一个累加的终值，确定一个循环变量，循方法：接收一个累加的终值，确定一个循环变量，循方法：接收一个累加的终值，确定一个循环变量，循环变量有环变量有环变量有环变量有2 2 2 2个作用（加数和循环变量），确定一个存储个作用（加数和循环变量），确定一个存储个作用（加数和循环变量），确定一个存储个作用（加数和循环变量），确定一个存储累加和的变量。使用循环计算，最后输出显示结果。累加和的变量。使用循环计算，最后输出显示结果。累加和的变量。使用循环计算，最后输出显示结果。累加和的变量。使用循环计算，最后输出显示结果。Dim s As integer,x As integerDim s As integer,x As integer x=InputBox(x=InputBox(请输入累加的终值请输入累加的终值)For x=l To x For x=l To x s=s+x s=s+x Next Next思考：思考：思考：思考：计算计算计算计算=1+3+5+7=1+3+5+7=1+3+5+7=1+3+5+7X X X X 或或或或 2+4+6+82+4+6+82+4+6+82+4+6+8X X X X 如何编写？如何编写？如何编写？如何编写？DoDoLoopLoop语句语句(循环结构循环结构)Do While Do While Loop Loop语句语句Do Until Do Until Loop Loop语句语句Do Do Loop While Loop While语句语句Do Do Loop Until Loop Until语句语句 Do While Do While Loop Loop语句语句 i=1i=1 Do While i=10 Do While i=10 s=s+i s=s+i i=i+1 i=i+1 Loop Loop 当当i=10i=10成立时，执行循环体成立时，执行循环体循环变量循环变量i i必须有初值必须有初值防止产生死循环防止产生死循环有可能一次也不执行循环体有可能一次也不执行循环体修改循环控制变修改循环控制变修改循环控制变修改循环控制变量，改变加数值量，改变加数值量，改变加数值量，改变加数值 Do Loop While Do Loop While i=1i=1 Do Do s=s+i s=s+i i=i+1 i=i+1 Loop While i=10 Loop While i=10当当i=10i10 Do Until i10 s=s+i s=s+i i=i+1 i=i+1 Loop Loop 当当i10i10成立时，结束执行循环体成立时，结束执行循环体循环变量循环变量i i必须有初值必须有初值防止产生死循环防止产生死循环有可能一次也不执行循环体有可能一次也不执行循环体修改循环控制变修改循环控制变修改循环控制变修改循环控制变