access8-VBA编程入门语法.ppt

第8章VBA编程入门内容提要内容提要8-1 VBA概念8-2 VBA编程基础 8-3 VBA常用语句8-4 VBA程序流程控制8-5 数组8-6 VBA与宏8-7 小结及练习VBA(Visual Basic for Application)VBA(Visual Basic for Application)是是Microsoft OfficeMicrosoft Office系列软件的内置编系列软件的内置编程语言，其语法结构与程语言，其语法结构与Visual BasicVisual Basic编编程语言互相兼容，采用的是面向对象的程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。编程机制和可视化的编程环境。8-1 VBA概述8-1-1 VBA简介1.1.集合和对象集合和对象vVBAVBA中的应用程序是由许多对象组成的，如中的应用程序是由许多对象组成的，如表、窗体、查询等。对象是帮助构造应用程序表、窗体、查询等。对象是帮助构造应用程序的元素，以特定的方式组织这些对象，就形成的元素，以特定的方式组织这些对象，就形成了应用程序。了应用程序。v数据库窗口把可供选择的对象排列在一起，数据库窗口把可供选择的对象排列在一起，形成不同的类。形成不同的类。8-1-2 面向对象程序设计的基本概念2.2.对象的属性、事件和方法对象的属性、事件和方法属性 属性描述了对象的自身性质。其格式为：对象名.属性=属性值事件 事件是指可以发生在一个对象上且能够被该对象所事件是指可以发生在一个对象上且能够被该对象所识别的动作。识别的动作。如：单击某个命令按钮就产生该按钮的如：单击某个命令按钮就产生该按钮的“单击单击”事事件件 当某个对象发生某一事件后，就会驱动系统去执行当某个对象发生某一事件后，就会驱动系统去执行预先编好的、与这一事件相对应的一段程序。预先编好的、与这一事件相对应的一段程序。方法 方法是系统事先设计好的，可以完成一定操作的特殊过程，是附属于对象的行为和动作。在需要使用的时候可以直接调用。其调用格式为：对象名.方法名 AccessAccess中除数据库的中除数据库的7 7个对象外，还提供个对象外，还提供一个重要的对象：一个重要的对象：DoCmdDoCmd对象对象 除窗体、控件的除窗体、控件的SetFocus(SetFocus(获得控制焦点获得控制焦点)方法外，用得最多得是方法外，用得最多得是 DoCmdDoCmd对象对象 的一些方的一些方法。使用这些方法，可以在法。使用这些方法，可以在VBAVBA中运行中运行AccessAccess的操作。的操作。打开当前数据库中的打开当前数据库中的“雇员雇员”窗体窗体 DoCmd.OpenForm EmployeesDoCmd.OpenForm Employees 在数据库窗口中选择在数据库窗口中选择“雇员雇员”窗体窗体 DoCmd.SelectObject acForm,DoCmd.SelectObject acForm,EmployeesEmployees ,True,True在数据库窗口中关闭在数据库窗口中关闭“雇员雇员”窗体窗体 DoCmd.Close acForm,DoCmd.Close acForm,“EmployeesEmployees”,acSaveYes,acSaveYes删除数据库中的删除数据库中的“雇员雇员”表表 DoCmd.DeleteObject EmployeesDoCmd.DeleteObject Employees DoCmd 对象的常用方法（参照教材P190页）例8-1 新建一个窗体并添加两个命令按钮，运行窗体后，单击第一个按钮，新式一个消息框；单击第二个按钮，退出当前窗体。（参照教材P191页）通过此例，体会可视化编程、面向对象、事件过程、应用方法等基本概念。进入进入VBEVBE编程环境编程环境VBEVBE窗口的组成窗口的组成 VBEVBE窗口由工具栏、工程资源管理器窗口、窗口由工具栏、工程资源管理器窗口、属性窗口、代码窗口和立即窗口组成。属性窗口、代码窗口和立即窗口组成。在在VBEVBE环境中编写环境中编写VBAVBA代码代码8-1-3 VBA编程环境标准工具条视图视图Microsoft AccessMicrosoft Access按钮：切换按钮：切换Access 2000Access 2000窗口窗口插入按钮：插入模块或过程插入按钮：插入模块或过程运行子过程运行子过程/用户窗体按钮：运行模块中的程序用户窗体按钮：运行模块中的程序中断按钮：中断正在运行的程序中断按钮：中断正在运行的程序重新设置按钮：结束正在运行的程序重新设置按钮：结束正在运行的程序设置模式按钮：在设计模式和非设计模式之间切换设置模式按钮：在设计模式和非设计模式之间切换工程资源管理器按钮：用于打开工程资源管理器工程资源管理器按钮：用于打开工程资源管理器属性窗口按钮：用于打开属性窗口属性窗口按钮：用于打开属性窗口对象浏览器按钮：用于打开对象浏览器对象浏览器按钮：用于打开对象浏览器Microsoft Accsee插入模块运行子过程/用户窗体设计模式中断重新设计 工程资源管理器 对象浏览器属性窗口工程窗口选择对象属性窗口选择对象的属性代码窗口选择事件VBE编程环境8-2-1 8-2-1 常量、变量常量、变量8-2 VBA编程基础常量：在程序运行中其存储的值不会改变。变量：在程序运行中其值可以改变。VBA使用常量、变量来存储值。用来保存在程序运行期间数据。常量 在程序运行过程中，其值不会被改变的量称为常量。在VBA中有三类常量：直接常量 如：如：1010，20%20%，123.0123.0，“AB”AB”，“VBAVBA程序设计程序设计”等等 符号常量系统常量 指指VBAVBA系统预先定义好的，用户可以直接引用的量。系统预先定义好的，用户可以直接引用的量。如：如：acFormacForm，acQueryacQuery，vbOkvbOk，vbRedvbRed 符号常量 在程序中，某个常量多次被使用，则可以使用一在程序中，某个常量多次被使用，则可以使用一个符号来代替该常量，这样不仅在书写上方便，而且个符号来代替该常量，这样不仅在书写上方便，而且有效地改进了程序的可读性和可维护性。有效地改进了程序的可读性和可维护性。VBAVBA中使用关键字中使用关键字ConstConst 声明符号常量。声明符号常量。其格式如下：其格式如下：Const Const 常量名常量名 类型符号类型符号=常数表达式常数表达式如：如：Const PI#=3.1415926 变量是内存中的临时单元，存放在程序执行过程中产生的中间结果和最后输出结果。在程序中使用变量，就要给变量定义名称及类型，即对变量进行声明。变量 变量命名规则变量命名规则变量名必须以字母或汉字开头，后可跟字母、变量名必须以字母或汉字开头，后可跟字母、变量名必须以字母或汉字开头，后可跟字母、变量名必须以字母或汉字开头，后可跟字母、汉字、数字或下划线组成（不能含有小数点和空汉字、数字或下划线组成（不能含有小数点和空汉字、数字或下划线组成（不能含有小数点和空汉字、数字或下划线组成（不能含有小数点和空格），长度不超过格），长度不超过格），长度不超过格），长度不超过255255255255个字符的字符串；个字符的字符串；个字符的字符串；个字符的字符串；不能使用不能使用不能使用不能使用VBAVBAVBAVBA中的关键字；中的关键字；中的关键字；中的关键字；VBAVBAVBAVBA中不区分变量名的大小写；中不区分变量名的大小写；中不区分变量名的大小写；中不区分变量名的大小写；变量名的最后一个字符可以是变量名的最后一个字符可以是变量名的最后一个字符可以是变量名的最后一个字符可以是%、&、！、！、！、！、#、$等表示数据类型的声明符。等表示数据类型的声明符。等表示数据类型的声明符。等表示数据类型的声明符。说明：常量名的命名规则与变量名的命名规则相同说明：常量名的命名规则与变量名的命名规则相同8-2-2 数据类型与变量的声明 在VBA中，数据类型用来决定变量可以保存何种数据。VBA支持多种数据类型，为用户编程提供了方便。参照教材P196页表8-1 VBA的数据类型 VBAVBA的数据类型的数据类型数据类型数据类型数据类型数据类型类型声明符类型声明符类型声明符类型声明符存储空间存储空间存储空间存储空间 取值范围取值范围取值范围取值范围整型（整型（整型（整型（IntegerInteger）%2 2-32768-327683276732767长整型（长整型（长整型（长整型（LongLong）&4 4-2147483648-214748364821474836472147483647单精度浮点型单精度浮点型单精度浮点型单精度浮点型（SingleSingle）！4 4负数：负数：负数：负数：-3.402823E38-3.402823E38-1.401298E-45-1.401298E-45正数：正数：正数：正数：1.401298E-451.401298E-453.402823E383.402823E38双精度浮点型双精度浮点型双精度浮点型双精度浮点型（DoubleDouble）#8 8负数：负数：负数：负数：-1.79769313486232E308-1.79769313486232E308-4.94065645841247E-3244.94065645841247E-324正数：正数：正数：正数：4.94065645841247E-3244.94065645841247E-3241.79769313486232E3081.79769313486232E308货币型货币型货币型货币型(Currency)(Currency)8 8-922337203685477.5808-922337203685477.5808922337203685477.5807922337203685477.5807日期型日期型日期型日期型(Date)(Date)8 8100100年年年年1 1月月月月1 1日日日日99999999年年年年1212月月月月3131日日日日字符型字符型字符型字符型(String)(String)$0 0字符字符字符字符6540065400个字符个字符个字符个字符字节型字节型字节型字节型(Byte)(Byte)1 10 0255255逻辑型逻辑型逻辑型逻辑型(Boolean)(Boolean)2 2TrueTrue或或或或FalseFalse对象型对象型对象型对象型(Object)(Object)4 4任何引用的对象任何引用的对象任何引用的对象任何引用的对象变体型变体型变体型变体型(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的的的的变体型变量。变体型变量。变体型变量。变体型变量。关键字Dim或Static的区别：Dim 声明：随过程的调用而分配存贮单元，每次：随过程的调用而分配存贮单元，每次调用都对变量初始化；过程体结束，变量的内容自动调用都对变量初始化；过程体结束，变量的内容自动消失，存储单元释放。消失，存储单元释放。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 中中可可以以强强制制显显式式声声明明，可可以以在在窗窗体体模模块块、标标准准模模块块和和类类模模块块的的通通用用声声明明段段中中加加入入语语句句：Option ExplicitOption Explicit声明而未赋值的变量的值为：数值型变量初始化为0；字符型变量为零长度字符串；变体型变量初始化为 Empty。变量的初始化8-2-3 运算符和表达式（教材P199页）运算符运算符算算算算术术运算符运算符运算符运算符例如：例如：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)运算符不能相运算符不能相运算符不能相运算符不能相邻邻。例。例。例。例a+-ba+-b是是是是错误错误的。的。的。的。(2)(2)乘号不能省略。例乘号不能省略。例乘号不能省略。例乘号不能省略。例x x 乘以乘以乘以乘以y y 应应写成：写成：写成：写成：x*yx*y。(3)(3)括号必括号必括号必括号必须须成成成成对对出出出出现现，均使用，均使用，均使用，均使用圆圆括号。括号。括号。括号。(4)(4)表达式从左到右在同一基准上表达式从左到右在同一基准上表达式从左到右在同一基准上表达式从左到右在同一基准上书书写，无高低。写，无高低。写，无高低。写，无高低。v运算运算运算运算优优先先先先级级 算算算算术术运算符运算符运算符运算符 连连接运算符接运算符接运算符接运算符 关系运算符关系运算符关系运算符关系运算符 逻辑逻辑运算运算运算运算表达式例例1 1：用人单位招聘秘书：年龄小于：用人单位招聘秘书：年龄小于4040岁的女性，学历专科或本科，岁的女性，学历专科或本科，年龄年龄4040，性别，性别=“=“女女”，(学历学历=“=“专科专科”，学历，学历=“=“本科本科”)And And OrAnd And Or例例2 2：算术表达式：算术表达式：正确的正确的VBAVBA表达式：表达式：3 3=x And x=7=x And x=7 错误的错误的VBAVBA表达式：表达式：3=x=7 3=x=7 或或 3=x Or x=73=x Or x=7 考虑：考虑：若分别写成：若分别写成：年龄年龄40 And 40 And 性别性别=女女 And (And (学历学历=专科专科 And And 学历学历=本科本科)年龄年龄40 Or =0 x=0 ThenThen y=2*x+1 y=2*x+1 MsgBox y:&y MsgBox y:&yEnd SubEnd SubPrivate Sub p1()Dim x As Integer,y As Integer x=InputBox(“请输入x值”)If x=0 Then y=2*x+1 Else y=1 MsgBox y:&yEnd Sub根据输入根据输入x x的值，观察的值，观察y y的输出结果的输出结果多行多行 If If 语句语句格式：格式：If If 表达式表达式 Then Then 语句组语句组1 1 Else Else 语句组语句组22 End If End If多行多行IfIf语句的执行过程是：语句的执行过程是：如果如果“表达式表达式”的值为真，的值为真，则执行语句组则执行语句组1 1；否则执行语句组；否则执行语句组2 2。当执行完语句组。当执行完语句组1 1或语句组或语句组2 2后，程序流程跳转到语句后，程序流程跳转到语句End IfEnd If的后面。的后面。语句组可以由一条或多条语句组成，语句组不能与语句组可以由一条或多条语句组成，语句组不能与ThenThen书写在同一行，否则书写在同一行，否则VBAVBA认为是一个单行认为是一个单行IfIf语句，语句，会导致会导致ElseElse没有匹配的没有匹配的IfIf。语句语句“End IfEnd If”是多行是多行IfIf语句的结束标志。在多行语句的结束标志。在多行IfIf语句中，即使省略语句中，即使省略ElseElse子句，也要写该结束标志。省略子句，也要写该结束标志。省略ElseElse子句时的多行子句时的多行IfIf语句形式为：语句形式为：If If 表达式表达式 Then Then 语句组语句组 End IfEnd If 例：例：计算分段函数算分段函数单单行行If If语语句句实现实现：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 If x0 Then y=sin(x)+sqr(x*x+1)(x*x+1)多行多行If If语语句句实现实现：If x0 Then y=sin(x)+sqr(x*x+1)Else y=cos(x)x3+3*x End IfIf语句的嵌套If语句的嵌套是指If或Else后面的语句块中又包含If语句。If Then If Then End If End If 例：已知x，y，z三个数，使得xyz 用一个IF语句和一个嵌套的IF语句实现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 IfIf If语句的嵌套注意事项：书写锯齿型；语句的嵌套注意事项：书写锯齿型；If If 与与End IfEnd If配对配对IfIfThenThenElseIfElseIf语句语句(多分支结构多分支结构)If If Then1 Then 1 ElseIf ElseIf Then2 Then 2 Else Else 语句块语句块 n+1n+1 End IfEnd If不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。vElseIf不能写成 Else If。说明：例：已知百分制成绩例：已知百分制成绩markmark，显示对应的五级制成绩，显示对应的五级制成绩 下列三种方法哪些正确，哪些错误？下列三种方法哪些正确，哪些错误？：与：与 同类型的下面四种形式之一：同类型的下面四种形式之一：表达式表达式 例：例：AA 一组枚举表达式一组枚举表达式(用逗号分隔用逗号分隔)2,4,6,8 2,4,6,8 表达式表达式1 To 1 To 表达式表达式2 2 60 To 10060 To 100 Is Is 关系运算符表达式关系运算符表达式 Is 60Is =A And Ucase(strC)=A And Ucase(strC)=0 And strC=0 And strC y，x，y）循环结构（参照教材P211页）For Next循环 Do Loop循环ForNext循环结构：将一段程序重复执行指定将一段程序重复执行指定的次数，其中使用一个计数变量，统计执行的次数。的次数，其中使用一个计数变量，统计执行的次数。格式：For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量ForNext循环语句 P211循环体循环体 循环变量循环变量 =终值终值 语句块语句块 Exit ForExit For 语句块语句块 循环变量加步长循环变量加步长 T T F F 循环变量得初值循环变量得初值 功能：执执行行ForFor语语句句时时，“循循环环变变量量”设设为为“初初值值”；执执行行到到NextNext语语句句时时，步步长长加加（减减）到到循循环环变变量量上上；再再执执行行ForFor语语句句时时，若若“循循环环变变量量”超超过过“终终值值”则循环结束。则循环结束。步长：未指定值时默认为步长：未指定值时默认为1 1。若若“步步长长”是是正正数数或或0 0，则则“初初值值”应应大大于于等等于于“终值终值”，否则，否则，“初值初值”应小于等于应小于等于“终值终值”。例：计算累加程序 S=1+2+3+4.+x,并输出结果。方法：接收一个累加的终值，确定一个循环变量，循方法：接收一个累加的终值，确定一个循环变量，循环变量有环变量有2 2个作用（加数和循环变量），确定一个存储个作用（加数和循环变量），确定一个存储累加和的变量。使用循环计算，最后输出显示结果。累加和的变量。使用循环计算，最后输出显示结果。Dim s As integer,x As integer x=InputBox(请输入累加的终值)For x=l To x s=s+x Next思考：思考：计算计算=1+3+5+7=1+3+5+7X X 或或 2+4+6+82+4+6+8X X 如何编写？如何编写？例：计算累乘程序 S=1*2*3*4X 方法：接收一个累乘的终值，确定一个循环变量，方法：接收一个累乘的终值，确定一个循环变量，循环变量有循环变量有2 2个作用（乘数和循环变量），确定一个个作用（乘数和循环变量），确定一个存储累乘积的变量。使用循环计算，最后输出显示结存储累乘积的变量。使用循环计算，最后输出显示结果。果。Dim S As integer,i As integer x=InputBox(请输入累加的终值)S=1 For i=l To x S=S*i Next注意：注意：累乘的乘数和乘积变量的初值为累乘的乘数和乘积变量的初值为1 1。注意：出了循环，循环控制变量值的问题。出了循环，循环控制变量值的问题。例程序段：例程序段：For i=2 To 13 Step 3 For i=2 To 13 Step 3 循环执行次数循环执行次数 debug.Print i debug.Print i 输出输出 i i的值分别为的值分别为:2 5 8 11 2 5 8 11 Next i Next i debug.Print i debug.Print i 出了循环输出为出了循环输出为:i=14:i=14例例:改变循环控制变量对循环的影响改变循环控制变量对循环的影响 Private Sub Command1_Click()Private Sub Command1_Click()j=0 j=0 For i=1 To 20 Step 2 For i=1 To 20 Step 2 i=i+3i=i+3 j=j+1 j=j+1 Print Print 第第;j;j;次循环次循环i=;ii=;i Next i Next i Print Print 退出循环后退出循环后i=;ii=;i End Sub End Sub正常情况：正常情况：i=1,3,5,7,9,11,13,15,17,19i=1,3,5,7,9,11,13,15,17,19现在：现在：i=4,9,14,19i=4,9,14,19DoLoop循环语句(用于控制循环次数未知)形式形式1 1：Do While|Until Do While|Until 语句块语句块 Exit Do Exit Do 语句块语句块 Loop Loop 形式形式2 2：DoDo 语句块语句块 Exit DoExit Do 语句块语句块 Loop While|Until Loop While|Until DoLoop语句(循环结构)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 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 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必须有初值必须有初值防止产生死循环防止产生死循环有可能一次也不执行循环体有可能一次也不执行循环体修改循环控制变修改循环控制变量，改变加数值量，改变加数值 Do Loop Until i=1i=1 Do Do s=s+i s=s+i i=i+1 i=i+1 Loop Until i10 Loop Until i10当当i10i10成立时，结束执行循环体成立时，结束执行循环体循环变量循环变量i i必须有初值必须有初值防止产生死循环防止产生死循环至少执行一次循环体至少执行一次循环体修改循环控制变修改循环控制变量，改变加数值量，改变加数值补充：WhileWend语句格式如下：While Wend说明：该该语语句句的的功功能能与与Do Do While While .Loop.Loop实实现现的循环完全相同。的循环完全相同。三种循环语句：即三种循环语句：即For For、DoDoLoopLoop，共同，共同的特点是重复执行一个语句系列的特点是重复执行一个语句系列(循环体循环体)，不同点是控制重复次数的时机和方法不，不同点是控制重复次数的时机和方法不一样。一样。参照教材参照教材P206-P214P206-P214页实例，掌握程序的控页实例，掌握程序的控制结构。制结构。数组：数组不是一种数据类型，而是一组相同类型的变量的集合。可以像使用普通变量一样使用数组中的每一个元素。使用数组的好处是用一个 数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，可以提高处理数据的效率，缩短和简化程序。8-5 数组 数组不是一种数据类型，而是一组相同类型数组不是一种数据类型，而是一组相同类型的变量的集合，的变量的集合，数组必须先声明后使用。数组必须先声明后使用。两类数组：两类数组：两类数组：两类数组：静态静态静态静态(定长定长定长定长)数组、动态数组、动态数组、动态数组、动态(可变长可变长可变长可变长)数组数组数组数组 1.1.一维数组一维数组 定义一维数组的形式：定义一维数组的形式：Dim Dim 数组名数组名(下界下界 ToTo上界上界)As)As 类型类型 声明了数组的名、维数、大小、类型声明了数组的名、维数、大小、类型 8-5-1 数组的定义说明：明：数数数数组组名的命名名的命名名的命名名的命名规则规则与与与与变变量的命名相同。量的命名相同。量的命名相同。量的命名相同。数数数数组组的元素个数：上界的元素个数：上界的元素个数：上界的元素个数：上界-下界下界下界下界+1+1。缺缺缺缺省省省省 为为0 0，若若若若希希希希望望望望下下下下标标从从从从1 1开开开开始始始始，可可可可在在在在模模模模块块的的的的通通通通用用用用部部部部分分分分使使使使用用用用Option Option BaseBase语语句句句句将将将将设设为为1 1。其其其其使使使使用用用用格格格格式式式式是：是：是：是：Option Base 0|1Option Base 0|1 后面的参数只能取后面的参数只能取后面的参数只能取后面的参数只能取0 0或或或或1 1例如：例如：例如：例如：Option Base 1 Option Base 1 将数将数将数将数组组声明中缺省声明中缺省声明中缺省声明中缺省 下下下下标设为标设为1 1下界下界下界下界 和和和和 不能使用不能使用不能使用不能使用变变量，量，量，量，必必必必须须是常量是常量是常量是常量，常量，常量，常量，常量可以是直接常量、符号常量，一般是整型常量。可以是直接常量、符号常量，一般是整型常量。可以是直接常量、符号常量，一般是整型常量。可以是直接常量、符号常量，一般是整型常量。如果省略如果省略As子句，子句，则数数组的的类型型为变体体类型。型。数数数数组组中中中中各各各各元元元元素素素素在在在在内内内内存存存存占占占占一一一一片片片片连连续续的的的的存存存存储储空空空空间间，一一一一维维数数数数组组在内存中存放的在内存中存放的在内存中存放的在内存中存放的顺顺序是按下序是按下序是按下序是按下标标大小的大小的大小的大小的顺顺序。序。序。序。例：Dim mark(1 to 100)As Integer例：Dim a(-1 to 3)As Integer声明一维数组a，包含了5个整型元素a(-1)、a(0)、a(1)、a(2)、a(3)；在定义静态数组时，每一维的元素个数必须是常数，不能是变量或表达式。如：错误的声明，下标是变量 Dim x(n)或：n=Inputbox(“输入n”）Dim x(n)As Single注意：在数组声明中的下标说明了数组的整体，即每维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。例如：Dim x(10)As Integer x(10)=100 表示声明了数组表示声明了数组x x，有有1111个数组元素个数组元素对对x(10)x(10)这个数这个数组元素赋值组元素赋值定义二维数组的形式：定义二维数组的形式：Dim Dim 数组名数组名(下界下界1 1 To To上界上界1 1，下界下界2 2 To To上界上界2 2)As)As 类型类型例如：例如：Dim a(2,3)As SingleDim a(2,3)As Single 二二维维数数组组在内存的存放在内存的存放顺顺序是序是“先行后列先行后列”。数数组组a a的各元素在内存中的存放的各元素在内存中的存放顺顺序是：序是：a(0,0)a(0,1)a(0,2)a(0,3)a(0,0)a(0,1)a(0,2)a(0,3)a(1,0)a(1,1)a(1,2)a(1,3)a(1,0)a(1,1)a(1,2)a(1,3)a(2,0)a(2,1)a(2,2)a(2,3)a(2,0)a(2,1)a(2,2)a(2,3)2.二维数组例：例：Dim lArray(0 To 3Dim lArray(0 To 3，0 To 4)As Long 0 To 4)As Long 共有共有 4 45 5个元素等价于个元素等价于:Dim lArray(3:Dim lArray(3，4)As Long4)As Long 动态数组指在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小。形式如下：ReDim ReDim 数组名数组名(下标下标，下标，下标2)As 2)As 类型类型 例：例：PrivatePrivate Sub S1()Sub S1()Dim x()As SingleDim x()As Single n=Inputbox(“n=Inputbox(“输入输入n”n”）ReDim x(n)ReDim x(n)End SubEnd Sub3.动态数组说明：u DimDim、StaticStatic、Public Public 声明声明语语句是句是说说明性明性语语句，可出句，可出现现在在过过程内或通用声明段；程内或通用声明段；ReDimReDim语语句是句是执执行行语语句，句，只能出只能出现现在在过过程内；程内；uu 在在过过程中可多次使用程中可多次使用ReDimReDim来改来改变变数数组组元素的个数元素的个数uu ReDimReDim中的下中的下