模块的设计与使用PPT课件

1、第1页/共192页第2页/共192页 第3页/共192页第4页/共192页第5页/共192页第6页/共192页第7页/共192页例9.29.2：建立标准模块，在标准模块中建立一个通用过程，运行过程显示问候信息。（1）单击“模块”对象单击【新建】按钮。（2）输入：sub hello()回车，回车后系统自动建立过程的起始行sub hello()与过程的结束行end sub。（3）在sub hello()与end sub之间输入：MsgBox 你好！。（4）单击【保存】按钮为模块起名：模块1单击【确定】。（5）【运行】菜单【运行子过程】，数据库窗口显示问候信息。第8页/共192页 第9页/共192页

2、工程窗口选择对象属性窗口选择对象的属性代码窗口选择事件第10页/共192页 第11页/共192页 标准模块类模块第12页/共192页 第13页/共192页第14页/共192页第15页/共192页l VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言，VBA的语法与独立运行的Visual Basic编程语言互相兼容，也是面向对象的程序设计语言，功能强大，具有可视化编程环境。l 程序是对数据进行处理的。第16页/共192页l VBA在数据类型和定义方式上均继承了传统的Basic语言的特点。l Access 数据表中的字段使用的

3、数据（OLE对象和备注字段数据类型除外）在VBA中都有对应的类型。l 在VBA中，数据类型用来决定变量可以保存何种数据。VBA支持多种数据类型，为用户编程提供了方便。 第17页/共192页 第18页/共192页第19页/共192页第20页/共192页l常量是指在程序运行的过程中，其值不能被改变的量。l在Access 中，常量的类型有3种： 直接常量、符号常量、系统常量如：10，20%（整型）， 123.0， 345#（双精度）， 345.12 （货币型），#2010-9-10# （日期型），“VBA程序设计”等第21页/共192页 第22页/共192页第23页/共192页l系统建立的常量，如：

4、true、false、yes、no、on、off、null等。系统常量可以在程序设计中直接使用。 l内部符号常量用前两个字母指明该常量的对象库；p 以ac开头的是Access的库常量；p 以vb开头的是VBA的库常量；p 以db开头的是DAO的库常量；p 以ad开头的是ADO的库常量。 第24页/共192页l变量是指在程序运行过程中值会发生变化的数据。l变量的三要素：变量名、变量类型、变量的值。p 由字母、数字、下划线组成，用英文字母开头。p 不能包含空格以及除下划线之外的标点符号。p 不能用VBA的关键字（如：dim）。p 字符个数不得多于255个。p 变量名不区分大小写。 p 变量名必须惟

5、一，同一个过程不能有2个变量有相同的名字。 第25页/共192页 第26页/共192页 第27页/共192页 第28页/共192页 第29页/共192页lVBA中的运算符可分为4种类型：算术运算符、字符串运算符、关系运算符和逻辑运算符。(1) (1) 算术运算符算术运算符 l算术运算符是常用的运算符，用来执行简单的算术运算，VBA提供了8个算术运算符。 乘幂（）、负数（-）乘法（*）、除法（/）、整数除法（）、求模（mod）、加法（+）、减法（-）。第30页/共192页第31页/共192页第32页/共192页(2) (2) 关系运算符关系运算符第33页/共192页(3) (3) 逻辑运算符逻辑

6、运算符第34页/共192页 (4) (4) 连接运算符连接运算符 字符串运算就是将两个字符串连接起来生成一个新的字符串。字符串运算符包括：& 运算符+ 运算符第35页/共192页将两个不同类型的数据（）作字符串连接。 例如：1&“+”&2&“等于”&1+2 结果为： “1+2等于3”注意：l 由于符号“&”还是长整型的类型定义符，在字符串变量后使用运算符“&”时，。l 运算符“&”两边的操作数可以是字符型，也可以是数值型。 例如：12&56 结果为 “1256”第36页/共192页用来连接两个表达式，形成一个新的字符串。【

7、例】 “ +”运算符应用示例。“4321”+1234 结果为数值：5555“4321”+“1234”结果为 43211234abcd+1234 出错4321+“1234” & 100 结果为 5555100第37页/共192页 第38页/共192页 第39页/共192页第40页/共192页 第41页/共192页 abs(x)返回x的绝对值x是任意实数int(x)返回x的整数部分返回值小于等于xfix(x)返回x的整数部分x0时，返回值大于等于xsqr(x)返回x的平方根要求x大于等于0rnd(x)返回01之间的随机数为单精度类型，不包含0和1round(x,n)返回有n位小数的xn是小

8、数位数， n位以后的数四舍五入第42页/共192页 第43页/共192页 第44页/共192页 len(x)返回x的长度x为字符串或变量space(x)返回x个空格组成的字符串x为数字ucase(x)将x中的小写字母转大写x为字符串lcase(x)将x中的 大写字母转小写x为字符串trim(x)去掉x的首部和尾部空格x为字符串第45页/共192页 ltrim(x)去掉x的首部空格x为字符串rtrim(x)去掉x的尾部空格x为字符串left(x,n)从x左边开始取n个字符，得到子字符串x为字符串right(x,n)从x右边开始取n个字符，得到子字符串x为字符串mid(x,m,n)从x第m个字符开

9、始取n个字符x为字符串instr(x,y)返回y在x中的位置x和y均为字符串第46页/共192页 第47页/共192页 第48页/共192页 weekday(x,n)返回17的整数，表示星期几x为日期值hour(x)返回x的小时数x为时间值minute(x)返回x的分钟数x为时间值second (x)返回x的秒数x 为时间值date()返回计算机系统日期函数无参数now()返回计算机系统日期和时间函数无参数year(x)返回x的年份x为日期值month(x)返回x的月份x为日期值day(x)返回x的日期号码x为日期值第49页/共192页 第50页/共192页asc(x)返回x首字符的ASCII

10、码x是字符串或字符串变量名chr(x)返回数字x对应的字符x为数字，ASCII码str(x)将x转成字符串x 为数字序列val(x)将x转换为数字x是数字字符组成的字符串第51页/共192页第52页/共192页第53页/共192页第54页/共192页按钮取值按钮取值符号常量符号常量按钮个数和作用按钮个数和作用0 0VbOKOnlyVbOKOnly只显示确定按钮，是默认值。只显示确定按钮，是默认值。1 1VbOKCancelVbOKCancel显示确定、取消按钮。显示确定、取消按钮。2 2VbAbortRetryIgnoreVbAbortRetryIgnore显示终止、重试、忽略按钮。显示终止、

11、重试、忽略按钮。3 3VbYesNoCancelVbYesNoCancel显示是、否、取消按钮。显示是、否、取消按钮。4 4VbYesNoVbYesNo显示是、否按钮。显示是、否按钮。5 5VbRetryCancelVbRetryCancel显示重试、取消按钮。显示重试、取消按钮。图标取图标取值值符号常量符号常量图标样式图标样式说明说明1616VbCriticalVbCritical显示临界信息图标。显示临界信息图标。圆圈中间有叉号圆圈中间有叉号3232VbQuestionVbQuestion显示查询图标。显示查询图标。圆圈中间有问号圆圈中间有问号4848VbExclamationVbExcl

12、amation显示警告图标。显示警告图标。三角形中间有叹号三角形中间有叹号6464VbInformationVbInformation显示消息图标。显示消息图标。标注圆圈中间有倒立的叹号标注圆圈中间有倒立的叹号第55页/共192页1VbOK“确定”按钮2VbCancel“取消”按钮3VbAbort“终止”按钮4VbRetry“重试”按钮5VbIgnore“忽略”按钮6VbYes“是”按钮7VbNo“否”按钮第56页/共192页 第57页/共192页 第58页/共192页 第59页/共192页 。 第60页/共192页 第61页/共192页 第62页/共192页 第63页/共192页 ：国华 第

13、64页/共192页第65页/共192页第66页/共192页第67页/共192页第68页/共192页第69页/共192页第70页/共192页第71页/共192页（5）转到窗体视图单击命令按钮，显示结果。第72页/共192页第73页/共192页第74页/共192页 第75页/共192页 第76页/共192页 第77页/共192页 第78页/共192页 第79页/共192页 第80页/共192页第81页/共192页第82页/共192页第83页/共192页第84页/共192页第85页/共192页第86页/共192页第87页/共192页第88页/共192页 第89页/共192页第90页/共192页 第9

14、1页/共192页第92页/共192页（2）建立1个标签 “名称”为：b1“标题”：为：计算月实发工资。（3）建立1个命令按钮 “标题“为：本月实发工资“名称”为：c1。（4）按钮c1的click事件代码如下：Dim jbgz, sfgz, yyg as Single Jbgz=val(inputbox(“请输入基本工资”, “计算实发工资”, 300) Yyg=val(inputbox(“请输入本月营业额”, “本月营业额”) Sfgz=jbgz+yyg*5% Msgbox(“实发工资为：”, sfgz)（6）转到窗体视图输入信息框分别输入：1000、20000单击命令按钮，结果显示如图所示。

15、第93页/共192页 第94页/共192页第95页/共192页 第96页/共192页 第97页/共192页 第98页/共192页 第99页/共192页第100页/共192页第101页/共192页第102页/共192页第103页/共192页 第104页/共192页 第105页/共192页 第106页/共192页 第107页/共192页 第108页/共192页 第109页/共192页 第110页/共192页 第111页/共192页 第112页/共192页 第113页/共192页 第114页/共192页IsNumeric(x)验证x是否为数值，若返回true， 是数值IsDate(x)验证x是否为日

16、期值，若返回true， 是日期或可识别的有效日期IsNull(x)验证x是否为无效值，若返回true，是无效值IsEmpty(x)验证x是否已被初始化，若返回true，未被初始化IsArray(x)验证x是否为数组，若返回true，是数组IsError(x)验证x是否为一个错误值，若返回true，有错误IsObject(x)验证x是否为对象变量，若返回true，是对象 第115页/共192页 第116页/共192页 。第117页/共192页 第118页/共192页 第119页/共192页 第120页/共192页 第121页/共192页 。第122页/共192页 第123页/共192页 第124

17、页/共192页 第125页/共192页 第126页/共192页 第127页/共192页分析：i=0 s=0+0=0 i=i+2=2 i=2 s=0+2=2 i=i+2=4 i=4 s=2+4=6 i=i+2=6分析：i=6 s=6+6=12 i=i+2=8 i=8 s=12+8=20 第128页/共192页 第129页/共192页 第130页/共192页 第131页/共192页 第132页/共192页 第133页/共192页 第134页/共192页 第135页/共192页 第136页/共192页 第137页/共192页 第138页/共192页 第139页/共192页第140页/共192页第14

18、1页/共192页第142页/共192页 第143页/共192页 第144页/共192页第145页/共192页第146页/共192页第147页/共192页第148页/共192页第149页/共192页（5）转到窗体视图单击“最大、最小数”命令按钮，如果输入2、5、21、29、6、8、15、11、90、33，显示结果如图第150页/共192页l 在定义数组时可以不指定下标，而改在程序运行需要时再指定，即数组元素的数量是可动态改变的。l 定义一个动态数组的方法： 先用 Dim Dim 定义数组； 例如： Dim bAges( ) As integerDim bAges( ) As integer 然后用 ReDim ReDim 声明数组大小； 例如： ReDim bAges(10)ReDim bAges(10)第151页/共192页 dim a() as integer dim a() as integer 声明动态数组，括号中为空 redim a(9) redim a(9) 给数组分配空间 redim a(20) redim a(20) 给数组重新分配空间 redim a(0) redim a(0) 释放数组所占空间说明：（1 1）redimredim不但能改变数组大小，而且能改变数组维数。（2