《access13程序函数语句分支》由会员分享，可在线阅读，更多相关《access13程序函数语句分支（12页珍藏版）》请在金锄头文库上搜索。
1、Access数据库（第10章）,2009年,1,第13讲 Access数据库的模块设计,VBA编程环境（进入VBE、VBE界面） VBA程序流程控制（顺序控制、选择控制、循环控制） 创建VBA模块（在模块中加入过程、在模块中执行宏）， 调用和参数传递 VBA程序的调试：设置断点，单步跟踪，设置监视点,Access数据库（第10章）,2009年,2,第13讲 Access数据库的模块设计,VBA编程基础(常量):,常量:【数值】 328, -12.743 【文本字符】 ”0842051023”，”北京” 【日期】 #2009-5-31# 【逻辑】 True，False，Null 符号常量，固有常
2、量，系统定义常量：P236,Access数据库（第10章）,2009年,3,第13讲 Access数据库的模块设计,VBA编程基础(变量):,变量：VB的变量应先定义后使用，定义语句格式如下：Dim AS , AS , 命名规则：P236 : P235表10-1，P237238,Access数据库（第10章）,2009年,4,第13讲 Access数据库的模块设计,VBA编程基础(表达式):,函数：P239241 表10-2到10-5 Inputbox()函数 Magbox()函数,数值表达式：( )、-、+、*、/、Mod、+、- 字串表达式：&、+ 日期表达式：-、 关系表达式：=、=、
3、逻辑表达式：not、and、or,可在立即窗口测试函数和表达式,P241,Access数据库（第10章）,2009年,5,第13讲 Access数据库的模块设计,VBA编程基础(语句):,VB语句规则： 一行一条语句， 一行如有多条语句，语句间用冒号“:”分隔； 或 rem 为注释行； “ _”语句末尾的空格加下划线为续行符,Access数据库（第10章）,2009年,6,第13讲 Access数据库的模块设计,结构化程序设计:,变量定义语句： Dim AS , 赋值语句： set = 调试(立即窗口)输出语句： Debug.Print , ,Access数据库（第10章）,2009年,7,第
4、13讲 Access数据库的模块设计,编辑过程与运行调试,VBE的工程资源管理器,模块代码窗,调试工具栏与本地窗口,Access数据库（第10章）,2009年,8,第13讲 Access数据库的模块设计,结构化程序设计:,数组定义： Dim （, , ) as ,说明：数组必须先定义，后使用；使用格式为： ()，,通常情况，一个数组的所有下标元素为同一数据类型，可将数组类型定义为Variant，则数组的各个下标变量可以存放不同的数据类型。,例：定义一个整型数组xyz(3,4)，则该数组有20个独立的下标变量；,Access数据库（第10章）,2009年,9,第13讲 Access数据库的模块设
5、计,结构化程序设计:_分支,单向选择：,格式1： If Then ,格式2： If Then End If,Access数据库（第10章）,2009年,10,第13讲 Access数据库的模块设计,结构化程序设计:_分支,双向选择：,格式3： If Then Else End If,注：可以是VB的关系表达式，逻辑表达式或逻辑常量，VB的编译系统根据的计算结果(True 或 False)确定下一条语句的去向。,Access数据库（第10章）,2009年,11,第13讲 Access数据库的模块设计,结构化程序设计:_多路分支,格式3： Select Case Case Case Case Ca
6、se Else End Select,功能： 由的值首先和的值进行比较，其结果为True则执行其下的，再执行End Case之后的语句；如比较结果为False,则和下一个值比较，；如和所有的表达式比较都为False,则执行Case Else后的语句序列，如无Case Else字句，则不执行任何语句序列，而执行End Select之后的语句。,Access数据库（第10章）,2009年,12,第13讲 Access数据库的模块设计,结构化程序设计:_多路分支,说明：和Case 后的有三种比较方 式： Case 后有1到多个，表达式间用逗号分隔 值和其中一个相等，其结果为True Is 与进行关系比较 TO 测试条件的值在下限和上限内比较结果为 True 。,例：P252,
