Access程序设计二级培训8第一节模块的基本概念一、模块的概念二、模块的分类第二节创建模块1．Sub子过程2．Function函数过程第三节VBA程序基础一、面向对象基本概念二、进入VBE编程环境三、VisualBasic编辑环境表8.2VBA支持的数据类型1.布尔型数据布尔型数据只有两个值：True和False。布尔型数据转化为其他类型数据时，True转化为-1，False转化为0；其他类型数据转化为布尔型数据时，0转化为False，其他值转化为True。true+2=?false+1=?2.日期型数据“日期/时间”类型数据必须前后用半角“#”括住，如#2008-7-4#。3.VBA常量１）一般常量２）符号常量３）系统常量４）内部常量4、VBA变量１．变量的定义变量的赋值：5．数组（1）一维数组（2）二维数组6．对象变量P210对象常用属性对象常用属性7、VBA常用标准函数P213１）数学函数２）字符串函数３）日期/时间函数４）类型转换函数（6）数据类型转换函数5）可以实现选择操作的函数P226①iif函数②Switch函数③choose函数8.VBA的运算符P219第四节VBA流程控制语句１．语句的概念２．语句的书写规则P2063．注释语句4．声明语句5．赋值语句控制程序执行流程的语句。程序结构主要分为顺序、选择（分支）和循环三种结构。顺序结构就是按照语句的书写顺序依次执行；选择结构是根据某个条件的成立与否分别选择执行不同的语句序列；循环结构就是重复执行一组语句。流程控制语句就是为了实现选择结构和循环结构而提供的语句。（1）选择结构程序语句（2）循环结构程序语句（1）选择（分支）结构程序设计１）if语句①格式一①格式一执行流程：②格式二执行流程：③格式三If语句的嵌套Ⅲ、多层嵌套的格式如下：执行流程：同步训练：同步训练：２）SelectCase语句２）SelectCase语句执行流程：（2）循环结构程序设计1）步长循环(for…next)执行流程：说明：For…next题型同步训练同步训练同步训练2）当型循环①格式一同步训练②格式二同步训练③格式三④注意事项同步训练２）直到型循环①格式一同步训练②格式二同步训练４）循环嵌套４）循环嵌套同步训练同步训练第五节过程调用和参数传递一、过程调用及参数传递1.子过程②Static表示该过程中的局部变量是静态变量，在过程被调用后其值仍然保留；③“形参表列”的一般形式是：变量名[As类型]，……④可以在过程中使用ExitSub语句强制退出子过程。调用格式：格式１：Call子过程名（[实参]）格式２：子过程名[实参]Subs（xasinteger，yasinteger）t=xx=yy=tEndsubSubcommand1_click()a=3b=4Calls(a,b)MsgaMagbEndsub２．参数传递（1）传值调用（2）传址调用例：举例说明有参过程应用。其中主调过程test_Click(),被调过程GetData（）主调过程PrivateSubtest_Click()DimJAsIntegerJ=5CallGetData（J）MsgboxJEndSubPrivateSubGetData(ByReffAsInteger)f=f+2EndSubprivatesubs(byvalpasinteger)p=p*2endsubprivatesubcommand1_click()dimiasintegeri=3calls(i)ifi>4theni=i^2msgboxiendsub同步训练②Static表示该过程中的局部变量是静态变量，在过程被调用后其值仍然保留；③“形参表列”的一般形式是：变量名[As类型]，……④可以在过程中使用ExitSub语句强制退出子过程。调用格式：格式１：Call子过程名（[实参]）格式２：子过程名[实参]3.函数过程subsfun（xassingle，yassingle）t=xx=t/yy=tmodyendsubprivatesubcommand1_click()dimaassingledimbassinglea=5:b=4sfuna,bmsga&chr(10)+chr(13)&bendsub同步训练例：编写一个求解圆面积的函数过程Area（）。代码如下：PublicFunctionArea（RAsSingle）AsSingleIfR<=0ThenMsgBox"圆的半径必须是正数值",vbCritical，"警告"Area=0ExitFunctionEndIfArea=3.14*R*REndFuncti