Vba面向对象程序设计复习.ppt

Access数据库应用与VBA编程,总复习,复习要点,第一章 数据、信息、信息的特征 数据模型概念、数据模型的三要素、常见的数据模型 关系的操作 关系完整性 DBMS、DBS 实体间的联系的类型 数据库特征 关键字（码）,第三章,数据定义语言（DDL）、数据操纵语言（DML） 涉及内容： 单、多表查询，未修XX内容的子查询，聚合函数查询、通配符等，但不含update、insert、delete子句，不含交叉查询,第七章 常见函数 涉及的函数包括： mid、sqr、int、inputbox、val、常见聚合函数 sin、cos、exp、ln写表达式用、未出现在编程中 运算符包括： mod 、（整除运算）、(幂运算)、like等 （算术、字符、日期和时间、关系和逻辑）表达式及其运算符 日期常量 变量类型,第八章,求和问题，数组定义、输入、排序、输出 判断闰年的条件并输出其结果、判断素数的条件并输出其结果 判断整除（mod, int()） 分支结构 双重循环 输入值到（数组）变量并排序 交换 求数组中的最（大、小、均）值 图案输出（tab()）等内容。 程序题：由双循环图形打印部分；累加、累乘等。没有流程图部分。包含Exit For语句 。,第九章,对象（属性、行为）的概念、类的概念、容器类和控件类（举例） Form、Me的含义 事件和方法的区别 属性、事件和方法的举例 根据现实生活中的概念，设计类（含属性和行为），并描述类间的继承关系，比如交通工具、学校等。 从下列方面描述OOP过程：(构造界面、命名控件、设置属性、编写事件代码) 理解对象与类的四种关系。所有对象的属性和方法部分没有涉及。,考试题型如下：,一、SQL操作题1（按SQL命令在SQL视图的操作，给出下列查询问题中SQL操作的正确命令。每小题5分，共10分。） 【1】 【2】 二、SQL操作题2（按SQL命令在SQL视图的操作，给出下列查询问题中SQL操作的正确命令。每小题5分，共10分。） 【3】 【4】 三、SQL操作题3（按SQL命令在SQL视图的操作，给出下列查询问题中SQL操作的正确命令。每小题5分，共10分。） 【5】 【6】,考试题型如下：,四、填空题（在下列各题标示的空缺处填充合适的内容，使其意义正确。每个标示的空缺1分，共13分。） 五、单项选择题（下列各题从四个备选答案中选出一个正确答案的代号。答案错选或未选者，该题不得分。每小题1分，共10分） 注:答题时每行题号与答案分别以“15 XXXXX” 、“610 YYYYYY”、形式来标示。,考试题型如下：,六、写出下列VBA程序的运行结果（按VBA程序运行后所输出的格式写出结果。每小题5分，共15分。） 1.程序一 ( 见*阅读理解程序一) 2.程序二 ( 见*阅读理解程序二) 3.程序三 ( 见*阅读理解程序三) 七、综合编程（按要求编写VBA程序。每小题为6分,共24分。） 八、论述题（用200字以上论述。8分）,复习内容,第一章 数据库系统概论 人们用计算机对数据进行处理的应用系统称为计算机信息系统，而计算机信息系统的核心是数据库。 数据是记录现实世界中各种信息并可以识别的物理符号，是信息的载体，是信息的具体表现形式。,信息是数据所包含的意义。信息具有如下重要特征： (1) 信息具有表征性。它能够表达事物的属性、运动特性及状态。 (2) 信息具有可传播性。信息可以进行获取、存储、传递、共享。 (3) 信息具有可处理性。信息可以进行压缩、加工、再生。 (4) 信息具有可用性、可增值性、可替代性。,数据处理实际上是指利用计算机对各种形式的数据进行一系列的存储、加工、计算、分类、检索、传输等处理。如果稍加扩展就包括数据的采集、整理、编码、输入和输出等数据组织，这一数据组织过程也应属于数据处理的内容，只不过这一过程主要是由人对其进行有效的处理，并把数据组织到计算机中。,数据库就是在计算机存储器中用于存储数据的仓库。即：将采集的数据存放在建立于磁盘、光盘等外存媒介的“仓库”中，这个“仓库”就是数据库( Database或Data Base,简称DB )。 与货仓、书库需要管理员和一套管理制度一样，数据库的管理也需要一个管理系统，这个管理系统就称为数据库管理系统(DataBase Management System，简称DBMS )。 以数据库为核心，并对其进行管理的计算机系统称为数据库系统(Data Base System，简称DBS )。 数据库的特征： (1)数据结构化。 (2)实现数据共享。 (3)减少数据冗余度。 (4)数据独立性。 (5)统一的数据安全保护。,数据库系统至少应该包括以下三个部分 (1)数据库。 (2)物理存储设备。 (3)数据库软件。 （4）数据库管理员 数据模型 模型是现实世界特征的模拟和抽象。在数据库中，用数据模型(Data Model)这个工具来对现实世界进行抽象，数据模型是数据库系统中用于提供信息表示和操作手段的形式构架。数据模型应满足三方面要求：一是能比较真实地模拟现实世界；二是容易为人所理解；三是便于在计算机上实现。 两种类型：第一类模型是概念模型，也称信息模型，它是独立于计算机之外的模型 ； 另一类模型是数据模型，它是直接面向计算机的，是按计算机系统的观点对数据进行建模，主要用于DBMS的实现，常称为基本数据模型或数据模型，数据库中常用的基本数据模型有网状模型、层次模型和关系模型（Access用的)。,数据模型的三要素: 数据结构、数据操作和完整性约束三部分组成。 关系模型的基本概念 (1)关系 一个关系就是一张二维表，通常将一个没有重复行、重复列的二维表看成一个关系，每个关系都有一个关系名。在Access中，一个关系对应于一个表文件，其扩展名为.ACCdb。,(2)元组 二维表的每一行在关系中称为元组。在Access中，一个元组对应表中一个记录。 (3)属性 二维表的每一列在关系中称为属性，每个属性都有一个属性名，属性值则是各个元组属性的取值。在Access中，一个属性对应表中一个字段，属性名对应字段名，属性值对应于各个记录的字段值。,关系的操作 关系作为一张二维表，其可进行的操作包括：选择、投影、自然联接。 1.选择操作 给定一个关系，从中筛选出满足某种条件的记录(或元组)的过程称为选择。 2.投影操作 给定一个关系，从中只检索期望得到的字段(或属性)的过程称为投影。 3.自然联接操作 与选择、投影操作只需一个关系参与运算不同，自然联接操作要求二个关系参与运算，其结果为一个新的关系。,关系完整性约束,完整性通常包括：实体完整性、参照完整性、域完整性和用户定义完整性; 实体完整性是通过关系的主关键字(PK)来实现的，这里主关键字不能取“空值”。 参照完整性是指参照关系K中外部关键字的取值必须与被参照关系R中某元组主关键字的值相同，否则违法了参照完整性约束。 域完整性是指一个或多个列必须满足的约束条件，当用户插入或更新数据时，所插入或更新的数据在指定了域完整性的列上必须满足所施加的约束条件 用户定义完整性是指针对某一具体业务规则提出的关系数据库必须满足的约束条件，它反映某一具体应用所涉及的数据必须满足的语义要求。,关系（Relationship ） 实体内部的关系 组成实体的各属性之间的关系 。如“职工”实体中，假设有“职工号”和“部门经理号” 。 不同实体之间的关系 例。“玩具”实体（设有属性：ID号、名称、价格、重量、商标ID）和“商标”实体（设有属性：商标ID、商标名称、商标说明）之间的“商标ID” 关系用菱形框表示，框内写上关系名，并用连线将有关的实体连接起来。,关系有三种类型: 一对一（1:1） 一对多（1:n） 多对多（m:n）,第三章 Access中SQL语言的应用,SQL题：单、多表查询，未修XX内容的子查询，聚合函数查询、通配符等，但不含update、insert、delete子句，不含交叉查询 。,3.1 SQL语言概述,SQL全称是结构化查询语言(Structured Query Language) SQL语言结构简洁，功能强大，简单易学。 SQL语言是关系数据库的标准语言。 SQL分成3类：,22,3.2 数据查询,SELECT语句 单表查询 多表查询 子查询 学习SQL语言可以认为是一个学习填空的过程。语言的框架已经在设计语言编译器时就给定了，用户不可违背，必须遵守语言提供好的规范，用户做的就是把自己需要表达的东西以填空的方式填入其中。,23,17:00:12,24,回顾数据查询的知识点,数据查询通过Select语句表达 语句格式 SELECT ALL|DISTINCT ， FROM ， WHERE GROUP BY HAVING ORDER BY ASC|DESC ；,17:00:12,25,回顾数据查询的知识点,SELECT子句：指定要显示的属性列 FROM子句：指定查询对象(基本表或视图) WHERE子句：指定查询条件 GROUP BY子句：对查询结果按指定列的值分组，该属性列值相等的元组为一个组。通常会在每组中作用集函数。 HAVING短语：筛选出只有满足指定条件的组 ORDER BY子句：对查询结果表按指定列值的升序或降序排序,填格方法 select 字段列表 from 数据表列表（二个以上数据表） where 条件（已知条件和联接条件） 子查询是一个SELECT语句，它嵌套在一个SELECT语句（也可是INSERT语句、DELETE语句或UPDATE语句）的WHERE子句部分，子查询的SELECT查询总是使用圆括号括起来。 创建子查询： WHERE 表达式 NOT IN (子查询语句),单表查询 查询所有男性读者的姓名、性别和身份证号，结果按年龄从大到小（升序）排列。 select 姓名,性别,身份证号,mid(身份证号,7,8) as 出生日期 from 读者 where 性别=“男“ order by 出生日期 在入库图书中查询各分类号2006年后出版图书的册数（库存数量）,结果按其册数由高到低列示。 select 分类号,sum(库存数量) as 册数 from 图书 where year(出版时间)=2006 order by 册数 desc group by 分类号,多表查询 求课程成绩在85分以上人的学号、姓名和成绩 select 学生表.学号,姓名,成绩 from 学生表,成绩表 where 学生表.学号 = 成绩表.学号 and 成绩=85 求总学分在6分以上的学生姓名。 select 姓名,sum(学分) from 学生表,成绩表,课程表 where 学生表.学号 = 成绩表.学号 and 课程表.课程号 = 成绩表.课程号 group by 姓名 having sum(学分)= 6,查询每个同学选课的最高分、平均分，并按平均分的降序输出。 SELECT a.学号,姓名,max(成绩) as 最高分,avg(成绩) as 平均分 from 学生表 a,成绩表 b where a.学号=b.学号 group by a.学号,姓名 order by avg(成绩) desc,子查询 1）求“会计学”专业的所有的同学学号、姓名和班号。 select 学号,姓名,班号 from 学生表 where 班号 in (select 班号 from 班级表 where 专业 = “会计学“); 2）求没有修“高等数学III”同学的学号和姓名。 select 学号, 姓名 from 学生表 where 学号 not in (select 学号 from 成绩表 ,课程表 Where 成绩表.课程号 = 课程表.课程号 and 课程名 = “高等数学III“);,3)在成绩表中查询既选修了A0101课程,又选修了C3004课程的学生的学号、课程号和成绩。 select 学号,课程号,成绩 From 成绩表 where 课程号=“A0101“ and 学号 in (select 学号 from 成绩表 where 课程号=“C3004“) 4)查询选修了“邓小平理论”课程的同学学号、选课成绩。 select 学号,成绩 From 成绩表 where 课程号 in (select 课程号 from 课程表 where 课程名=邓小平理论),5）查询和杨小建一个班的学生的学号、姓名、班号。 SELECT 学号,姓名,班号 from 学生表 where 班号 in(select 班号 from 学生表 where 姓名=“杨小建“); 6）查询既选修“高等数学III”课程又选修“税法”两门课程的学生编号、学生姓名、课程名称和成绩。 SELECT a.学号,姓名,c.课程号,成绩 from 学生表 a,成绩表 b,课程表 c where a.学号=b.学号 and 课程名=“高等数学III“ and b.课程号 in (select c.课程号 from 成绩表 b,课程表 c where b.课程号=c.课程号 and 课程名=“税法“);,第七章 Access语言基础,重点是数据类型（含英文写法）、常量写法、表达式运算符。 数据类型的作用是什么？VBA中有哪些数据类型？ 数据类型的作用是（功能 ） 确定运算 确定范围 确定内存中的表示 VBA中有以下数据类型： 字节型、布尔型、整型、长整型、单精度、双精度、浮点型、货币型、日期型、串类型（记住英文写法）。,2）写出下列数据的常量表示方法。 （1）字符型：庐山，He said: Thats fabulous. ，上海世博会 （2）数值型：率，2.681012，0.0000000003897(科学记数法) （3）日期型，日期时间型： 2009年国庆节，2010年的元旦零点时刻。 （4）逻辑型：假，真 解： (1) 江西庐山 He said: “Thats fabulous.“ 上海世博会 (2) 3.14159 2.68E+12 0.3897E-10 (3) #2009-10-01# #2010-12-31,0:59:59p# (4) FALSE NO TRUE YES,第七章 Access语言基础,变量 Access中，根据变量存在的方式，分为内存变量和字段变量。 变量定义与特性 变量(Variable)是指在程序运行期间其数值会变化的量。 变量的名是指在程序运行期间是不变的， 变量的值是指在程序运行期间是可变的。 简单变量定义 Dim As type As type表示可选 与语句Option Explicit对应,命名规则： （1）第一个字符必须使用英文字母。 （2）不能在变量名中使用空格、句点（.）、惊叹号（!）、或、&、$，#等字符。 （3）变量名的长度不可以超过255个字符。 （4）使用的变量名不能与VBA内在的函数、过程、语句以及方法的名称相同。不能使用与程序语言的关键字相同的名称。 例如，strMyString、intCount、MyForm、姓名、性别等都是合法的变量名；而2x、a+b、等是不合法的变量名。 变量赋值 Let = Dim a, b, c as Integer a = 12 b = 20 Let c= a * b,变量赋值，与数学中的等号不同，是将表达式的值赋给，具有方向性，如x=x+1，表示将x 中的内容取出，加1后又赋给x，两边的x值是不等的，这在数学中是不成立的。,涉及的函数： mid、sqr、int、inputbox、val、常见聚合函数 sin、cos、exp、log、ln写表达式用、未出现在编程中 Tab(n) 打印输出定位函数,函数,函数应用实例,b = “中华人民共和国“ ? Left(b,4) （输出结果为中华人民，因为Left为从左求4个字符子串函数) ? Mid(b,3,2) （输出结果为人民，因为Mid为从第3个位置开始，截取2个字符的求子串函数) ?mid(“会计学原理”，4，2） 原理 ? mid(trim(“ 会计学原理 ”)，1，2） 会计 ? Mid(ltrim(“ 会计专业课程 ”)，3，2） 专业 ? right(rtrim(“会计专业课程 ”)，2） 课程 ? left(ltrim(“ 会计专业课程 ”)，2） 会计 ?len(“会计专业课程”) 6,a=9 ? Sqr(a) （输出结果为3，因为sqr为开平方函数） a=3 b=4 Ab=“12” ? (val(ab) mod (a*b) 0.00 ?int(val(“15“)/4) 3 a = inputbox(“请您输入数据，结果为字符串类型“) 假定输入5566。 ? a 输出a的值，结果为5566字符串类型。 a =val( inputbox(“请您输入数据，结果为字符串类型“) ) 假定输入5566。 ? a 输出a的值，结果为5566数字型。,VBA的表达式包括：数值表达式、字符表达式、日期（时间）表达式、关系表达式和逻辑表达式。,算术表达式 A=3：B=4 a=a+b ?a 写出以下数学公式的表达式： x = (-b+sqr(b2 - 4*a*c)/(2*a)。 解：abs(a*a+b*b)/abs(a*a-b*b) ； (a/b+c/d)/(b/a-d/c),日期和时间表达式 ? #2004-08-01# - #2004-07-01# 31 ? #2004-07-01,22:00#- #2004-07-01,18:00# 14400 ? #2004-08-01# 31 2004-07-01 ?#2006-08-09#+#2008-09-09# 非法表达式 P.134 .,字符表达式 ? “江西 “南昌“ 江西 南昌 ? “江西 ” & “南昌” 江西 南昌 注意：字符“江西”后面有3个空格, 输出结果中保留空格, 通配符“a*a“表示以a开头，以a结尾的字符串 ? “aBBBa“ Like “a*a“ 返回 True。 第三个字母为T，后面为任何的字符串 ? “BAT123khg“ Like “B?T*“ 返回 True。 ? “CAT123khg” Like “B?T*” 返回 False。,第八章 程序设计,VBA按程序功能分类： 数值计算（累加、累乘等） 数值排序 （数组） 图表的设计 程序题涉及的内容：由双循环图形打印部分；累加、累乘等。包含Exit For语句 。没有流程图部分。,i=9 X=-16 Y=20,1、写出程序运行结果 Public Sub 作业2() Dim x, y, i As Double x = 0: y = 0 For i = 1 To 8 If i Mod 2 0 Then x = x - i Else y = y + i End If Next Debug.Print “i=”; i Debug.Print “x=”; x Debug.Print “y=”; y End Sub,i=1 x=-1 y=0,i=2 x=-1 y=2,i=3 x=-4 y=2,i=4 x=-4 y=6,i=5 x=-9 y=6,i=6 x=-9 y=12,i=7 x=-16 y=12,i=8 x=-16 y=20,初值 x=0 y=0,分析程序执行的过程：,一、写出程序结果,写出程序运行结果 Public Sub P170_2_4() Dim n, a1, a2, a3, i As Double n = Val(InputBox(“请输入n，要求n=3“) If n = 2 Then Exit Sub End If a1 = 1 a2 = 1 Debug.Print a1; a2 For i = 2 To n - 1 a3 = a1 + a2 a1 = a2 a2 = a3 Debug.Print a3 Next End Sub,结果 1 1 2 3 5 8 13 21 34 55,一、写出程序结果,Public Sub 分析程序写结果2() Dim i, s As Integer i = 1: s = 0 Do While i 20 求20以内能被7整除数之和 If Int(i / 7) = i / 7 Then s = s + i End If i = i + 1 Loop Debug.Print “S=“ + Str(s), “ I=“ + Str(i) End Sub,S=21 I=20,一、写出程序结果,Public Sub 分析程序写结果3() Dim i, j As Integer i = 0: j = 1 Do While j = 20求20以内能被2 和4整除数的1/2之和 If (j Mod 2) = 0 And (j Mod 4) = 0 Then i = i + j / 2 End If j = j + 1 Loop Debug.Print “I=“ + Str(i) Debug.Print “J=“ + Str(j) End Sub,结果 I=30 J=21,一、写出程序结果,Public Sub P170_2_1写出程序运行结果() Dim i As Integer Debug.Print Tab(10); “*” 第10列输出第一个”*” For i = 1 To 5 打印上5行 Debug.Print Tab(10 - i); “*“; Spc(i - 1); “*“; Spc(i - 1); “*“ Next i For i = 4 To 1 Step -1 打印下4行 Debug.Print Tab(10 - i); “*“; Spc(i - 1); “*“; Spc(i - 1); “*“ Next i Debug.Print Tab(10); “*“ End Sub,* 第10列 * * * * * * * * * * * * * * * * * * * * * * * * 第10列,一、写出程序结果,Public Sub 图案18() 打印如图所示三角图形,要求符号为字母 For i = 1 To 6 Debug.Print Tab(31 - i); For j = 1 To 2 * i - 1 Debug.Print Chr(64 + i); Next j Debug.Print Next i End Sub,一、写出程序结果,1、求 s=1+2+.+100 方法一： Public Sub 累加_1() 累加s=1+2+.+100 s = 0 i = 1 Do While i = 100 s = s + i i = i + 1 Loop Debug.Print “s=“ & Str(s) Debug.Print “i=“ & Str(i) End Sub,二编程题,1、求 s=1+2+.+100 方法二： Public Sub 累加_2() 累加s=1+2+.+100 s = 0 For i = 1 To 100 s = s + i Next Debug.Print s End Sub,思考：偶数、奇数之和；平方数、立方数和等的编程？,2、求 d=10!=1*2*.*10 Public Sub 编程2_累成1() 阶乘d=10!=1*2*.*10 Dim i, d As Double d = 1 i = 1 Do While i = 10 d = d * i i = i + 1 Loop Debug.Print d End Sub,2、求s=1!+2!+.+10! Public Sub编程2_累成2() 求s=1!+2!+.+10!的单循环方法 s = 0: d = 1 For i = 1 To 10 d = d * i s = s + d Next Debug.Print s End Sub,二编程题,二编程题,3、输入两个正整数m和n，求其最大公约数和最小公倍数。 解题思路: 最大公约数 采用辗转相除法可以获得， 最小公倍数 就是 x*y/最大公约数 了 辗转相除法求两个数的最大公约数的步 骤如下： 先用小的一个数除大的一个数，得第一 个余数； 再用第一个余数除小的一个数，得第二 个余数； 又用第二个余数除第一个余数，得第三 个余数； 这样逐次用后一个数去除前一个余数， 直到余数是0为止。那么，最后一个除 数就是所求的最大公约数（如果最后的 除数是1，那么原来的两个数是互质数),Public Sub gys() 求两个正整数的最大公约数和最小公倍数 Dim x,y, m, n, r, gb As Integer m = Val(InputBox(“输入一个数“) n = Val(InputBox(“输入一个数“) x = m: y = n Do While (n 0) 或者 while(n)求两个正整数的最大公约数 r = m Mod n m = n n = r Loop gb = x * y / m 最小公倍数 Debug.Print “最大公约数 “ & Str(m) Debug.Print “最小公倍数为：“ & Str(gb) End Sub,For i = 1 To 9 Do x = Int(Rnd(2) * 1000) Loop Until x = 200 And x max Then max = x End If If x min Then min = x End If Next i Debug.Print Debug.Print “max=“; max Debug.Print “min=“ & Str(min) End Sub,4、产生10个200_300的随机数并找出最大和最小数 Public Sub 随机数200_300() 产生10个200_300的随机数并找出最大和最小数 Dim x As Integer, i As Integer Do x = Int(Rnd(2) * 1000) Loop Until x = 200 And x = 300 Debug.Print x; “ “; max = x min = x,二编程题,Public Sub 编程5_数据排序() Dim a(1 To 10), i, j, t As Double For i = 1 To 10 a(i) = Val(InputBox(“请输入数据到数组“ Next i Debug.Print,二编程题,下面为排升序的程序 For i = 1 To 10 - 1 For j = i + 1 To 10 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i 输出排序后的结果 For i = 1 To 10 Debug.Print a(i); Next i End Sub,思