江西财经大学数据库书上习题八答案
数据库原理及应用第八章课后习题答案
习题81、什么是数据库的安全性？数据库的安全性是指数据库的任何数据都不允许受到恶意的侵害或未经授权的存取或修改。
主要内涵包括三个方面：①保密性：不允许未经授权的用户存取数据。
②完整性：只允许被授权的用户修改数据。
③可用性：不应拒绝已授权的用户对数据进行存取。
2、什么是数据库的完整性？数据库的完整性是指数据库中数据的正确性和一致性。
数据库的完整性对数据库应用系统非常重要。
3、什么是数据库的完整性约束条件？为了保证数据库中的数据完整性，SQL Server设计了很多数据完整性约束：实体完整性、域完整性、参照完整性、用户定义完整性。
4、DBMS的完整性控制机制应具有哪些功能？1)数据库的完整性约束能够防止合法用户向数据库中添加不合语义的数据。
2)完整性控制机制易于理解，可以降低应用程序的复杂性，提高运行效率。
3)合理的数据完整性设计，能够兼顾数据库的完整性和系统的性能。
完善的数据库完整性，有助于尽早发现应用程序的错误。
5、DBMS在实现参照完整性时需要考虑哪些方面？强制参照完整性时，SQL Server将防止用户执行下列操作：1）在主表中没有关联的记录时，将记录添加或更改到相关表中。
2）更改主表中的值，导致相关表中生成孤立记录。
3）从主表中删除记录，但仍存在于该记录匹配的相关记录。
6、在关系系统中，当操作违反实体完整性、参照完整性和用户定义完整性约束条件时，一般是如何处理的？系统可以采用以下的策略加以处理：1）拒绝(NO ACTION)执行：不允许该操作执行，该策略一般为默认策略。
2）级联(CASCADE)操作：当删除或修改被参照表的一个元组造成了与参照表不一致，则删除或修改参照表中的所有造成不一致的元组。
3）设置为空值（SET-NULL）：当删除或修改被参照表的一个元组造成了与参照表不一致，则将参照表中的所有造成不一致的元组的对应属性设置为空值。
7、数据库安全性和计算机系统的安全性有什么关系？计算机系统中，安全措施是一级一级层层设置。
数据库第8章习题参考答案
第8章习题参考答案2.求程序的运行结果（1）Public Sub 习题8_2_1()Dim i As IntegerDebug.Print Tab(10); "*"For i = 1 To 5Debug.Print Tab(10 - i); "*"; Spc(i - 1); "*"; Spc(i - 1); "*"Next iFor i = 4 To 1 Step -1Debug.Print Tab(10 - i); "*"; Spc(i - 1); "*"; Spc(i - 1); "*"Next iDebug.Print Tab(10); "*"End Subrun：***** * ** * ** * ** * ** * ** * ** * *****(2)Public Sub 习题4_2_2()Dim x, y, i As Doublex = 0: y = 0For i = 1 To 8If i Mod 2 <> 0 Thenx = x - iElsey = y + iEnd IfNextDebug.Print "i="; iDebug.Print "x="; xDebug.Print "y="; yEnd Subrun：x=-16y= 20(3)Public Sub习题4_2_3()Dim m, s, k As Doublem = 28s = 0k = 1Do While k <= Int(m / 2)If Int(m / k) = m / k ThenDebug.Print ks = s + kEnd Ifk = k + 1LoopDebug.Print "s="; sEnd Subrun：124714s= 28(4)Public Sub 习题8_2_4()Dim n, a1, a2, a3, i As Doublen = Val(InputBox("请输入n，要求n>=3"))If n <= 2 ThenExit SubEnd Ifa1 = 1a2 = 1Debug.Print a1; a2For i = 2 To n - 1a3 = a1 + a2a1 = a2a2 = a3Debug.Print a3NextEnd Sub1 12353.改错题(1)Public Sub 改错8_3_1()Dim i, n, s As Doublen = Val(InputBox("请输入n"))i = 2: s = 1Do While i <= ns = s + ii = i + 1LoopDebug.Print "S="; sEnd Sub(2)Public Sub 改错8_3_2_求分式多项和()Dim nm, n, k ,p As integerDim y As Doublenm = Val(InputBox("请输入计算公式1后面的项目数目个数")) n = 1: p = 1: y = 1Do While n <= nmk = 2 * n + 1p = p * (k - 1) * ky = y + ((-1) ^ n) / pn = n + 1LoopDebug.Print "y="; yEnd Sub4.编程题（1）用if……else语句编程Public Sub分段函数1()Dim x, y, z As Doublex = Val(InputBox("请输入x的值："))y = Val(InputBox("请输入y的值："))If x > y And y <> 0 Thenz = x / yElseIf x = y Thenz = x * y * Sgn(y)Elsez = x + yEnd IfDebug.Print "x="; xDebug.Print "y="; yDebug.Print "z="; zEnd Sub（1）用select case语句结构编程Public Sub分段函数2()Dim x, y, z, a As Doublex = Val(InputBox("请输入x"))y = Val(InputBox("请输入y"))a = y - xSelect Case aCase Is > 0z = x + yDebug.Print zCase 0z = x * y * Sgn(y)Debug.Print zCase ElseIf y <> 0 Thenz = x / yDebug.Print zElseDebug.Print "z没有值"End IfEnd SelectEnd Sub（2）Public Sub 求解一元二次方程()Dim a, b, c As IntegerDim d, x1, x2, x3, x4 As Doublea = Val(InputBox("请输入a的整型数："))b = Val(InputBox("请输入b的整型数："))c = Val(InputBox("请输入c的整型数："))d = b * b - 4 * a * cIf d > 0 Thenx1 = (-b + Sqr(d)) / (2 * a)x2 = (-b - Sqr(d)) / (2 * a)Debug.Print "x1="; x1, "x2="; x2Else if d=0 thenx3 = -b / (2 * a)x4 = -b/ (2 * a)Debug.Print "x3=";x3Debug.Print "x4=";x4ElseDebug.Print "方程没有实数解"End IfEnd Sub（3--1）用无条件转向语句GOTO编程Public Sub 数字与星期的转换1()Dim num As Integer10 num = Val(InputBox("请输入整数值：")) If num = 0 ThenDebug.Print "这是星期日"ElseIf num = 1 ThenDebug.Print "这是星期一"ElseIf num = 2 ThenDebug.Print "这是星期二"ElseIf num = 3 ThenDebug.Print "这是星期三"ElseIf num = 4 ThenDebug.Print "这是星期四"ElseIf num = 5 ThenDebug.Print "这是星期五"ElseIf num = 6 ThenDebug.Print "这是星期六"ElseIf num = -1 ThenDebug.Print "程序运行结束"EndElseDebug.Print "输入数据错误！"GoTo 10End IfEnd Sub（3--2）Public Sub数字与星期的转换2 ()Dim x As IntegerDo While Truex = Val(InputBox("请输入数字"))If x = 0 ThenDebug.Print "这是星期日"Exit DoElseIf x >= 1 And x <= 6 ThenDebug.Print "这是星期" + Str(x)Exit DoElseIf x = -1 ThenExit DoElseMsgBox ("输入数据错误！")End IfLoopEnd Sub(4)Public Sub 行李重量计费()Dim an, cn, weight, s_w, distance, fee As Doublean = Val(InputBox("请输入成年人数量"))cn = Val(InputBox("请输入未成年人数量"))weight = Val(InputBox("请输入行李重量"))distance = Val(InputBox("请输入距离"))s_w = weight - 20 * an - 10 * cnIf s_w <= 0 Thenfee = 0ElseIf distance / 100 = Int(distance / 100) Thenfee = 0.2 * s_w * (distance / 100)Elsefee = 0.2 * s_w * (Int(distance / 100) + 1) End IfEnd IfDebug.Print feeEnd Sub（5）Public Sub 求自然数的多项式和()Dim n, s As Integers = 0For n = 1 To 10s = s + (s + n)NextDebug.Print "S=1+(1+2)+(1+2+3)+...+1+2+3+...+10)="; s End SubRun:S=1+(1+2)+(1+2+3)+...+1+2+3+...+10)= 2036Public Sub 求多项自然数阶乘的和()Dim s, t As SingleDim n As Integert = 1s = 0For n = 1 To 20t = t * ns = s + tNextDebug.Print "1！+2！+3！+...+20!="; sEnd SubRun:1！+2！+3！+...+20!= 2.561327E+18(6)Public Sub 既能被3整除又能被5整除正整数个数() Dim i, x As Integerx = 0For i =100 To 200If i / 3 = Int(i / 3) And i / 5 = Int(i / 5) ThenDebug.Print ix = x + 1End IfNextDebug.Print "x="; xEnd SubRun:120135150165180195x= 7（7）Public Sub 输出直角三角形图案1()Dim i, j As IntegerFor i = 1 To 9Debug.PrintNextFor i = 1 To 4Debug.Print Tab(20); "*";For j = 1 To (2 * i - 2)Debug.Print "*";NextDebug.PrintNextEnd SubRun:****************Public Sub 输出直角三角形图案2() Dim i, j As IntegerFor i = 1 To 9Debug.PrintNextDebug.Print Tab(20); "*";For i = 1 To 4Debug.Print Tab(19 - i); "*";For j = 1 To (i + 1)Debug.Print "*";NextDebug.PrintNextEnd SubRun:*******************Public Sub 输出平行四边形图案() Dim i, j As IntegerFor i = 1 To 9Debug.PrintNextFor i = 1 To 5Debug.Print Tab(21 - i);For j = 1 To 6Debug.Print "*";NextDebug.PrintNextEnd SubRun:******************************(8)Public Sub 求选手获得的平均分()Dim score(1 To 11), minno, maxno, sum, aver As Single Dim i As Integerminno = 1maxno = 1sum = 0For i = 1 To 10score(i) = Val(InputBox("请输入选手的成绩值：")) Debug.Print score(i)NextFor i = 2 To 10If score(i) < score(minno) Thenminno = iEnd IfIf score(i) > score(maxno) Thenmaxno = iEnd IfNext iFor i = 1 To 10sum = sum + score(i)Next isum = sum - score(minno) - score(maxno)aver = sum / 8Debug.Print "该选手的平均分是："; averEnd Sub(9)关于素数的求解（9-1）求100之内的所有素数Public Sub 求所有素数之和()Dim s, w, n As Integers = 0For w = 2 To 99 Step 2For n = 2 To Sqr(w)If w Mod n = 0 ThenExit ForEnd IfNextIf n > Sqr(w) Thens = s + wEnd IfDebug.Print "S="; sNextEnd Sub（9-2）Public Sub 求200以内的所有素数()Dim w, n As IntegerDebug.Print "200 以内的所有素数是：" For w = 2 To 199For n = 2 To Sqr(w)If w Mod n = 0 ThenExit ForEnd IfNext nIf n > Sqr(w) ThenDebug.Print w;End IfNextDebug.PrintEnd Sub(10)Public Sub 求水仙花数1()Dim i, j, k, n As IntegerDebug.Print "水仙花数是："For i = 1 To 9For j = 0 To 9For k = 0 To 9n = i * 100 + j * 10 + kIf n = i * i * i + j * j * j + k * k * k ThenDebug.Print n;End IfNext kNext jNext iDebug.PrintEnd SubPublic Sub 求水仙花数2()Dim i, j, k, n As IntegerDebug.Print "水仙花数是："For n = 150 To 999i = Int(n / 100)j = Int(n / 10 - i * 10)k = n Mod 10If n = i * i * i + j * j * j + k * k * k ThenDebug.Print n;End IfNextDebug.PrintEnd Subrun：水仙花数是：153 370 371 407（11）Public Sub 求分数数列和()Dim i, t, n As IntegerDim a, b, s As Singlen = 20a = 2:b = 1: s = 0For i = 1 To ns = s + a / bt = aa = a + bb = tNextDebug.Print "sum="; s;End Sub（12）Public Sub N年达到的利息()Dim y As IntegerDim interest1,interest As DoubleP=10000y = 0interest = 0Do Until interest >= 1000Interest1 =2*p* 0.0225 *(1-0.2) ‘一期2年整存整取扣税后的利息p=p+interest1 ‘扣税后的利息加上本金成为新一期的本金Interest=p-10000 ‘存款以来实际所的利息y = y + 2Debug.Print interest, yLoopEnd SubRun:360 2732.959999999999 4 1119.34656 6。
数据库原理与应用教程第四版 第八章答案
免责声明：私人学习之余整理，如有错漏，概不负责1.简述数据库设计过程。
需求分析、结构设计、行为设计、数据库实施、数据库库运行和维护2.数据库结构设计包含哪几个过程？概念结构、逻辑结构和物理机构3.需求分析中发现事实的方法有哪些？检查文档、面谈、观察业务的运转、研究、问卷调查4.数据库概念结构设计有哪些特点？丰富的语义表达能力、易于交流和理解、易于更改、易于向各种数据模型转换5.什么是数据库的逻辑结构设计？简述其设计步骤。
将概念设计产生的概念模型转换为具体的数据库管理系统支持的组织层数据模型概念结构转换为关系数据模型、对关系数据模型进行优化、设计面向用户的外模式6.把E-R模型转换为关系模式的转换规则有哪些？1)一个实体转换为一个关系模式2)1对1联系可以转换为独立的关系模式，也可以与任意一端对应的关系模式合并3)1对多联系可以转换为独立的关系模式，也可以与多端所对应的关系模式合并4)多对多联系必须转换为独立的关系模式5)三个或三个以上实体间的多元联系可以转换为一个关系模式6)具有相同主码的关系模式可以合并7.数据模型的优化包含哪些方法？1)确定各属性间的函数依赖关系2)对各个关系模式之间的书依赖进行极小化处理，消除冗余联系3)判断每个关系模式的范式，根据实际需要确定最合适的范式4)根据需求分析阶段得到的处理要求，确定是否对某些模式进行分解或合并8.合并为一个E-R图，转为符合第三范式的关系模式，说明主码外码关系模式如下（主码有下划线）：职工（职工编号，姓名，性别，年龄，职务，部门）外码：部门部门（部门号，部门名，电话，地点）设备（设备号，名称，规格，价格，部门）外码：部门零件（零件号，零件名，规格，价格）厂商（厂商号，厂商名，电话，地址）生产表（厂商号，零件号，生产日期）外码：厂商号，零件号装备表（设备号，零件号，零件数量）外码：设备号，零件号9.建立描述顾客在商店的购物情况的数据库应用系统，该系统有如下要求：商店和顾客多对多，顾客每次购物有购物金额和购物日期，，每个客户每天在每个商店最多一次购物。
江西财经大学数据库习题八答案
江西财经大学数据库习题八答案习题八第一题：（1）Public Sub 求z值()Dim x, y, z As Doublex = Val(InputBox("请输入x的值"))y = Val(InputBox("请输入y的值"))m = x - ySelect Case mCase Is < 0z = x + yCase Is = 0z = x * y * Sgn(y)Case Is > 0z = x / yEnd SelectDebug.Print "x=", xDebug.Print "y=", yDebug.Print "z=", zEnd Sub（2）Public Sub 求z的值()Dim x, y, z As Doublex = Val(InputBox("请输入x的值"))y = Val(InputBox("请输入y的值"))If x < y Thenz = x + yEnd IfIf x = y Thenz = x * y * Sgn(y)End IfIf x > y And y <> 0 Thenz = x / yEnd IfDebug.Print "x=", xDebug.Print "y=", yDebug.Print "z=", zEnd Sub（3）Public Sub 求z的值()Dim x, y, z As Doublex = Val(InputBox("请输入x的值")) y = Val(InputBox("请输入y的值")) If x < y Thenz = x + yElseIf x = y Thenz = x * y * Sgn(y)ElseIf x > y & y = 0 Thenz = x / yEnd IfDebug.Print "x=", xDebug.Print "y=", yDebug.Print "z=", zEnd Sub第二题：Public Sub 求一元二次方程()Dim A, B, C As DoubleA = Val(InputBox("请输入A的值"))B = Val(InputBox("请输入B的值"))C = Val(InputBox("请输入C的值"))D = B ^ 2 - 4 * A * CIf D = 0 Thenx1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / 2 * A x2 = (-B + Sqr(B ^ 2 - 4 * A * C)) / 2 * A End IfIf D > 0 Thenx1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / 2 * A x2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / 2 * A End IfIf D < 0 ThenDebug.Print "此方程无实解"End IfDebug.Print "A=", ADebug.Print "B=", BDebug.Print "C", CDebug.Print "x1=", x1Debug.Print "x2=", x2End Sub第三题：Public Sub 今天的日期()Dim d As Integerd = InputBox("请输入今天的日期")If d = "0" ThenMsgBox ("今天是周日")End IfIf d = "1" ThenMsgBox ("今天是周一")End IfIf d = "2" ThenMsgBox ("今天是周二")End IfIf d = "3" ThenMsgBox ("今天是周三")End IfIf d = "4" ThenMsgBox ("今天是周四")End IfIf d = "5" ThenMsgBox ("今天是周五")End IfIf d = "6" ThenMsgBox ("今天是周六")End IfIf d < 0 Or d > 6 ThenDebug.Print "输入数据错误"End IfDebug.Print "d="; dEnd Sub第四题：Public Sub 计算行李费用()Dim A, w, s, p As DoubleA = Val(InputBox("请输入a的值"))w = Val(InputBox("请输入w的值"))s = Val(InputBox("请输入s的值"))If (A > 18 And w < 20) Or (A < 18 And w < 10) Then p = 0 End IfIf (A >= 18 And w > 20) And (s Mod 100 <> 0) Thenp = 0.2 * (w - 20) * (Int((s / 100)) + 1)End IfIf (A >= 18 And w > 20) And (s Mod 100 = 0) Thenp = 0.2 * (w - 20) * (s / 100)End IfIf (0 < A < 18 And w > 10) And (s Mod 100 <> 0) Then p = 0.2 * (w - 10) * (Int((s / 100)) + 1)End IfIf (0 < A < 18 And w > 10) And (s Mod 100 = 0) Then p = 0.2 * (w - 10) * (s / 100)End IfDebug.Print "a=", ADebug.Print "w=", wDebug.Print "s=", sDebug.Print "p=", pEnd Sub第五题：（1）求1+（1+2）+......（1+2+3 (10)Public Sub sum_example()Dim i, s As Integers = 0i = 1Do While i < 11s = s + (i * (i + 1)) / 2i = i + 1LoopDebug.Print "s=", sEnd Sub(2)求1！+2！+ (10)Public Sub sum_example()Dim i, s, t As Doubles = 0i = 1t = 1Do While i < 11s = s + ti = i + 1t = i * tLoopDebug.Print "s=", sEnd Sub第六题：Public Sub 找数()Dim s, n As StringDim i As Integern = 0For i = 100 To 200If (i Mod 3 = 0) And (i Mod 5 = 0) Then n = n + 1s = s & Str(i)End IfNext iDebug.Print "n=", nDebug.Print "s", sEnd Sub第七题：（1）Public Sub 三角状星型输出()Dim i, j As IntegerFor i = 1 To 10Debug.PrintNextFor i = 1 To 4Debug.Print Tab(20); "*";For j = 1 To 2 * i - 2Debug.Print "*";Next jDebug.PrintNext iEnd Sub（2）Public Sub 三角状星型输出3()Dim i, j As IntegerFor i = 1 To 10Debug.PrintNextFor i = 1 To 4Debug.Print Tab(20 - 2 * i); "*"; For j = 1 To 2 * i - 2 Debug.Print "*";Next jDebug.PrintNext iEnd Sub（3）Public Sub 三角状星型输出4()Dim i, j As IntegerFor i = 1 To 10Debug.PrintNextFor i = 1 To 5Debug.Print Tab(20 - i); "*";For j = 1 To 5Debug.Print "*";Next jDebug.PrintNext iEnd Sub第八题：Public Sub 评委得分()Dim a(1 To 10), s As DoubleDim i As Integers = 0For i = 1 To 10a(i) = Val(InputBox("请输入" & "a(" & i & ")")) Debug.Print "a(i)="; a(i)max = a(1)If a(i) > max Thenmax = a(i)End Ifmin = a(1)If a(i) < min Thenmin = a(i)End IfNextFor i = 1 To 10s = s + a(i)Nexts = s - max - minDebug.Print "s", sDebug.Print "s/8="; s / 8End Sub第九题：Public Sub 素数()Dim i, x, s As Integers = 0For x = 2 To 100For i = 2 To 50If x / i = Int(x / i) Then Exit For End IfNext iNext xIf Thens = s + xDebug.Print "s="; sEnd IfEnd SubPublic Sub 素数()Dim flag As BooleanDim i, x, s As Integers = 0For x = 2 To 100flag = tureFor i = 2 To Int(x / 2)If x / i = Int(x / i) Thenflag = FalseExit ForNext iIf flag Thens = s + xEnd IfNext xDebug.Print "s="; sEnd Sub第十题：Public Sub 水仙花数()Dim a, b, c, i As IntegerFor i = 0 To 999a = i \ 100 '百位上的数b = (i - a * 100) \ 10 '十位上的数c = i Mod 10 '个位上的数If a ^ 3 + b ^ 3 + c ^ 3 = i Then Debug.Print i End IfNext iEnd Sub第十一题：Public Sub sum_example()Dim s As DoubleDim a, b, t, i As Integer s = 0i = 1a = 2b = 1Do While i <= 20s = s + (a / b)t = aa = a + bb = ti = i + 1LoopDebug.Print "s=", sEnd Sub。
信息系统分析与设计_江西财经大学中国大学mooc课后章节答案期末考试题库2023年
信息系统分析与设计_江西财经大学中国大学mooc课后章节答案期末考试题库2023年1.以下关于信息和数据的说法错误的是答案:数据具有相对性，信息具有绝对性2.下述关于企业信息系统的层次结构和信息处理的描述正确的是（）答案:企业信息系统最上层是战略层，所处理的问题结构性差3.信息系统开发过程模型用来说明系统开发的步骤、任务、成果、分工等，对于规模庞大的复杂系统，为了改善进度压力，降低总成本，通常会选择使用( )。
答案:增量模型4.以下哪种系统不能算作信息系统的典型应用（）答案:CAD5.信息系统战略规划的方法不包括（）。
答案:螺旋法6.下列关于进行子系统划分的原则叙述中，正确的是（）。
答案:子系统之间信息关联程度低，接口简单7.BPR的含义是（）。
答案:企业流程再造8.企业系统规划法（BSP）是信息系统专用的一种规划方法，该方法不包括（）。
答案:完成数据库设计9.设计数据库概念模型（ER图）的阶段是（）。
答案:分析阶段10.耦合是指一个系统内两个模块之间的相互依赖关系，以下耦合度最低的形式是（）。
答案:数据耦合11.以下描述了模块设计应遵守的原则，正确的是（）。
答案:尽量设计功能内聚的模块12.以下关于开发过程方法的说法不正确的是（）。
答案:增量法适合于规模较小的项目13.辅助软件开发、运行、维护、管理、支持等工作的软件称为（）工具。
答案:CASE14.社会可行性的分析不包括（）。
答案:系统开发人员是否熟练掌握相关技术15.以下描述了模块设计应遵守的原则，正确的是（）。
答案:尽量设计功能内聚的模块16.既是输入设备又是输出设备的是（）。
答案:智能IC卡17.编写程序属于（）的任务。
答案:实施阶段18.一个窗口的启动模块定义为Private void Form1_Load()，该模块负责界面多个控件及数据的初始化工作，该模块的内聚类型是（）。
答案:时间内聚19.在UML提供的图中，（）可以描述企业的业务流程。
数据库原理习题
数据库原理习题(含答案)(总51页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--第一章绪论Ⅰ、学习要点1、准确掌握数据、数据库、数据库系统、数据库管理系统等基本术语、概念；2、数据独立性的概念、分类及实现途径；3、数据模型的概念、分类、要素及作用；4、数据库三级模式体系结构的含义及作用；5、关系数据模型的三要素容。
Ⅱ、习题一、选择题：1、使用二维表格结构表达数据和数据间联系的数据模型是（）A、层次模型B、网状模型C、关系模型D、实体—联系模型2、DB、DBS、DBMS间的关系是（）A、DB包括DBMS和DBSB、DBMS包括DB和DBSC、DBS包括DB和DBMSD、DBS与DB和DBMS无关3、在数据库中存储的是（）A、数据B、数据模型C、数据及数据之间的联系D、信息4、数据库系统中，用（）描述全部数据的整体逻辑结构。
A、外模式B、模式C、模式D、数据模式5、数据库中，导致数据不一致的根本原因是（）A、数据量太大B、数据安全性不高C、数据冗余D、数据完整性约束不强6、划分层次型、网状型和关系型数据库的原则是（）A、记录的长度B、文件的大小C、联系的复杂程度D、数据及联系的表示式7、数据库三级模式体系结构的划分，主要有利于保持数据库的（）A、数据安全性B、数据独立性C、结构规化D、操作可行性8、数据库系统中，用（）描述用户局部数据的逻辑结构，它是用户和数据库系统间的接口。
A、外模式B、模式C、模式D、数据模式9、数据库系统中，用（）描述全部数据的物理存储视图。
A、外模式B、模式C、模式D、数据模式10、数据库系统中用于定义和描述数据库逻辑结构的语言是（）A、DMLB、DDLC、DCLD、SQL211、数据库系统支持的数据共享指的是（）A、同一应用的多个程序共享同一数据集合B、多个用户、同一语言程序共享同一数据集合C、多个用户共享同一数据文件D、多种语言、多个用户、多个应用相互覆盖地使用同一数据集合12、数据库系统中，当模式发生变化时，采用（）来保证数据的物理独立性。
数据库课后答案71737
数据库课后答案71737(总95页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--目录第1部分课程的教与学第2部分各章习题解答及自测题第1章数据库概论基本内容分析教材中习题1的解答自测题自测题答案第2章关系模型和关系运算理论基本内容分析教材中习题2的解答自测题自测题答案第3章关系数据库语言SQL基本内容分析教材中习题3的解答自测题自测题答案第4章关系数据库的规范化设计基本内容分析教材中习题4的解答自测题自测题答案第5章数据库设计与ER模型基本内容分析教材中习题5的解答自测题自测题答案第6章数据库的存储结构基本内容分析教材中习题6的解答第7章系统实现技术基本内容分析教材中习题7的解答自测题自测题答案第8章对象数据库系统基本内容分析教材中习题8的解答自测题自测题答案第9章分布式数据库系统基本内容分析教材中习题9的解答自测题自测题答案第10章中间件技术基本内容分析教材中习题10的解答自测题及答案第11章数据库与WWW基本内容分析教材中习题11的解答第12章 XML技术基本内容分析教材中习题12的解答第2部分各章习题解答及自测题第1章数据库概论基本内容分析本章的重要概念（1）DB、DBMS和DBS的定义（2）数据管理技术的发展阶段人工管理阶段、文件系统阶段、数据库系统阶段和高级数据库技术阶段等各阶段的特点。
（3）数据描述概念设计、逻辑设计和物理设计等各阶段中数据描述的术语，概念设计中实体间二元联系的描述（1:1，1:N，M:N）。
（4）数据模型数据模型的定义，两类数据模型，逻辑模型的形式定义，ER模型，层次模型、网状模型、关系模型和面向对象模型的数据结构以及联系的实现方式。
（5）DB的体系结构三级结构，两级映像，两级数据独立性，体系结构各个层次中记录的联系。
（6）DBMSDBMS的工作模式、主要功能和模块组成。
（7）DBSDBS的组成，DBA，DBS的全局结构，DBS结构的分类。
数据库课后习题参考答案与解析.doc
第1章数据概述一．选择题1．下列关于数据库管理系统的说法，错误的是CA．数据库管理系统与操作系统有关，操作系统的类型决定了能够运行的数据库管理系统的类型B．数据库管理系统对数据库文件的访问必须经过操作系统实现才能实现C．数据库应用程序可以不经过数据库管理系统而直接读取数据库文件D．数据库管理系统对用户隐藏了数据库文件的存放位置和文件名2．下列关于用文件管理数据的说法，错误的是DA．用文件管理数据，难以提供应用程序对数据的独立性B．当存储数据的文件名发生变化时，必须修改访问数据文件的应用程序C．用文件存储数据的方式难以实现数据访问的安全控制D．将相关的数据存储在一个文件中，有利于用户对数据进行分类，因此也可以加快用户操作数据的效率3．下列说法中，不属于数据库管理系统特征的是CA．提供了应用程序和数据的独立性B．所有的数据作为一个整体考虑，因此是相互关联的数据的集合C．用户访问数据时，需要知道存储数据的文件的物理信息D．能够保证数据库数据的可靠性，即使在存储数据的硬盘出现故障时，也能防止数据丢失5．在数据库系统中，数据库管理系统和操作系统之间的关系是DA．相互调用B．数据库管理系统调用操作系统C．操作系统调用数据库管理系统D．并发运行6．数据库系统的物理独立性是指DA．不会因为数据的变化而影响应用程序B．不会因为数据存储结构的变化而影响应用程序C．不会因为数据存储策略的变化而影响数据的存储结构D．不会因为数据逻辑结构的变化而影响应用程序7．数据库管理系统是数据库系统的核心，它负责有效地组织、存储和管理数据，它位于用户和操作系统之间，属于AA．系统软件B．工具软件C．应用软件D．数据软件8．数据库系统是由若干部分组成的。
下列不属于数据库系统组成部分的是B A．数据库B．操作系统C．应用程序D．数据库管理系统9．下列关于客户/服务器结构和文件服务器结构的描述，错误的是DA．客户/服务器结构将数据库存储在服务器端，文件服务器结构将数据存储在客户端B．客户/服务器结构返回给客户端的是处理后的结果数据，文件服务器结构返回给客户端的是包含客户所需数据的文件C．客户/服务器结构比文件服务器结构的网络开销小D．客户/服务器结构可以提供数据共享功能，而用文件服务器结构存储的数据不能共享数据库是相互关联的数据的集合，它用综合的方法组织数据，具有较小的数据冗余，可供多个用户共享，具有较高的数据独立性，具有安全控制机制，能够保证数据的安全、可靠，允许并发地使用数据库，能有效、及时地处理数据，并能保证数据的一致性和完整性。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
习题8解答2. 求程序运行结果题1）试写出下列程序运行结果Public Sub Fig1()Dim i As IntegerDebug.Print Tab(10); "*"For i = 1 To 5Debug.Print Tab(10 - i); "*"; Spc(i - 1); "*"; Spc(i - 1); "*" Next iFor i = 4 To 1 Step -1Debug.Print Tab(10 - i); "*"; Spc(i - 1); "*"; Spc(i - 1); "*" Next iDebug.Print Tab(10); "*"End Sub解答：***** * ** * ** * ** * ** * ** * ** * *****2）求下列程序运行结果Public Sub 作业2()Dim x, y, i As Doublex = 0: y = 0For i = 1 To 8If i Mod 2 <> 0 Thenx = x - iElsey = y + iEnd IfNextDebug.Print "i="; iDebug.Print "x="; xDebug.Print "y="; yEnd Sub解答：i= 9x=-16y= 203）求下列程序的运行结果Public Sub 作业3()Dim m, s, k As Doublem = 28s = 0k = 1Do While k <= Int(m / 2)If Int(m / k) = m / k ThenDebug.Print ks = s + kEnd Ifk = k + 1LoopDebug.Print "s="; sEnd Sub解答：124714s= 284）当n=10时，求下列程序运行结果Public Sub 作业4()Dim n, a1, a2, a3, i As Doublen = Val(InputBox("请输入n，要求n>=3")) If n <= 2 ThenExit SubEnd Ifa1 = 1a2 = 1Debug.Print a1; a2For i = 2 To n - 1a3 = a1 + a2a1 = a2a2 = a3Debug.Print a3 Next End Sub解答：1 123 5 8 13 21 34 55 3. 改错题1）程序改错,下面的每个程序均有两个错误，试调试修改正确。
(1)计算1+2+3+…+N 的值。
Public Sub Sum()Dim i, n, s, y, k As Double n = Val(InputBox("请输入n")) i = 1: s = 0 Do While i <=n s = s+ i i = i + 1 LoopDebug.Print "S="; s End Sub(2)程序的功能是计算公式Y=1-1/3！+1/5！-1/7！…，式中除第1项外，其余各项可用1/（2N+1）表示。
4. 编程题1）已知**()/ 0X Y X Y Z X Y S gn Y X YX Y X Y Y ìï+<ïïï==íïïï>ïî当当当且试编成求Z 的值，请分别使用Select Case 和If …ElseIf …EndIf 编写程序。
2）编写程序，求一元二次方程Ax 2+Bx+C = 0的解，输入为系数A,B 和C 。
解答：Public Sub exer841() Dim A, B, C As DoubleDim delta, r1, r2 As DoubleA = Val(InputBox("请输入A的值"))B = Val(InputBox("请输入B的值"))C = Val(InputBox("请输入C的值"))delta = B * B - 4 * A * CIf delta < 0 ThenDebug.Print "无解"ElseIf delta = 0 Thenr1 = -B / (2 * A)Debug.Print "唯一解为：" & Str(r1)Elser1 = (-B + Sqr(delta)) / (2 * A)r2 = (-B - Sqr(delta)) / (2 * A)Debug.Print "解为："; Str(r1); Spc(1); Str(r2)End IfEnd Sub3）用整数0-6依次表示星期日、星期一、……、星期六，编程实现下列功能：用键盘输入一个整数，在显示器上输出对应的中文表示星期几，如果键入的整数范围不在-1到6之内，则显示“输入数据错误”，返回要求再次键入正确数字。
当键入-1时，程序终止。
4）乘火车旅行的行李收费标准如下：成年人可免费携带重量20公斤的行李，未成年人可免费携带10公斤的行李，超出这个重量，火车站将加收费用，收费标准是每公斤每百公里收费为0.20元，不足百公里按百公里记。
试编程按不同类型的人和行李重量来记收费用。
解答：Public Sub exer844()Dim person As IntegerDim weight, charge As Doubleperson = Val(InputBox("1: 成年人;" & Chr(13) & Chr(10) & " 2: 未成年人", "选择乘客类型", 1))weight = Val(InputBox("输入行李重量"))If person = 1 And weight > 20 Thencharge = 0.2 * (weight - 20)ElseIf person = 2 And weight > 10 Thencharge = 0.2 * (weight - 10)Elsecharge = 0End IfDebug.Print "收费标准："; chargeEnd Sub5）编写程序完成求和S=1+(1+2)+(1+2+3)+…+（1+2+…+10）。
如果求S=1! + 2! + 3! + …+ 10!，试编写程序并比较其同异。
解答：Public Sub exer845()Dim i As IntegerDim s, sum As Longs = 0sum = 0For i = 1 To 10s = s + isum = sum + sDebug.Print s, sumNextEnd SubPublic Sub exer845()Dim i As IntegerDim s, sum As Longs = 1sum = 0For i = 1 To 10s = s * isum = sum + sDebug.Print s, sumNextEnd Sub6）编程求100到200之间即能被3整除又能被5整除的正整数的个数，并显示这些数。
解答：Public Sub exer846()Dim i, count As Integercount = 0For i = 100 To 200If i Mod 15 = 0 Thencount = count + 1End IfNextDebug.Print countEnd Sub7）编程完成下列图形的打印。
其中第一个*所在列为第10行，第20列。
********* ********************************************************8）使用数组输入十个评委的评分，要求去除最高分、最低分，求应试者的最后得分。
解答：Public Sub exer848()Dim score(1 To 10) As DoubleDim i As IntegerDim min, max, sum As DoubleFor i = 1 To 10score(i) = Val(InputBox("输入分数"))Nextmin = score(1)max = score(1)For i = 1 To 10sum = sum + score(i)If score(i) > max Thenmax = score(i)End IfIf score(i) < min Thenmin = score(i)End IfNextsum = sum - max - minDebug.Print "最后得分为" & Str(sum / 8)End Sub9）编程求2到100间的所有素数，并求它们的和。
10）使用循环嵌套语句编程求：在0至999的范围内，找出所有这样的数，其值等于该数中各位数字的立方和。
如：153 = 12+52+32解答1：Public Sub exer8410()Dim a, b, c As IntegerDim num, sum As IntegerFor num = 1 To 999a = num \ 100 '也可用int(num/100)b = (num Mod 100) \ 10c = num Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = num ThenDebug.Print numEnd IfNext numEnd Sub解答2：Public Sub exer8410b()Dim a, b, c As IntegerDim num, sum As IntegerFor a = 0 To 9For b = 0 To 9For c = 0 To 9num = 100 * a + 10 * b + cIf num > 0 And num = a ^ 3 + b ^ 3 + c ^ 3 ThenDebug.Print numEnd IfNext cNext bNext aEnd Sub11）有一个分数数列：23581321,,,,,,求出这个数列前20项之和。