VisualFoxPro 60参考答案.doc

第一章Visual FoxPro 6.0基础知识习题精练一参考答案：一、单项选择题1.A 2.C 3.C 4.A 5.D 6.B 7.B 8.B 9.A 10.D 11.B 12.B 13.C 14.D 15.A 16.A 17.B 18.D 19.C 20.A 21.B 22.C 23.B 24.C 25.A 26.C 27.A 28.D 29.B 30.B 31.B 32.D 33.A 34.B 35.C 36.B 37.C 38.A 39.C 40.B 41.A 42.D 43.C 44.B 45.A 46.B 47.C 48.A 49.B 50.B 51.D 52.B 53.D 54.A 55.C 56.A 57.D 58.A 59.D 60.C 61.A 62.D 63.C 64.C 65.B 66.C 67.C 68.B 69.A 70.C 71.A 72.B 73.A 74.D 75.B 76.B 77.A 78.D 79.D 80.A 81.A二、填空题1.通用型 G 4 2.备注型4 3.FPT 4.变量 数组 对象 5.数值型 逻辑型 货币型 6.严格的 YMD 7.$ ￥ 4 8.字段变量和内存变量 9.利用赋值号“=”赋值 利用STORE命令赋值 10.? ? 11.私有数组 全局数组 局部数组 12.1 65000 13.不 小写 大写 14.函数名 函数返回值 函数名 参数 函数返回值 15.PRG .DBC .DBF习题精练二参考答案一、选择题1.B 2.C 3.A 4.C 5.C 6.D 7.C 8.D 9.D 10.A 11.C 12.D 13.D 14.C 15.A16.D 17.D 18.C 19.D 20.B 21.C 22.A 23.C 24.B 25.A 26.D 27.C 28.B 29.D 30.B 31.B 32.C 33.D 34.C 35.C 36.D 37.B 38.B 39.B 40.B 41.C 42.A 43.D 44.B 45.D 46.C 47.C 48.C 49.C 50.B 51.B 52.A 53.C 54.D 55.A 56.B 57.B 58.B 59.A 60.D 61.D 62.D 63.A 64.C 65.B 66.C 67.A 68.D 69.A 70.A 71.C 72.B 73.D 74.C 75.C 76.B 77.B 78.D 79.B 80.B 81.A 82.A 83.B 84.B 85.D 86.A 87.B 88.B 89.D 90.D 91.B 92.D 93.D 94.B 95.A 96.A 97.C 98.A 99.C二、填空题1.人工管理、文件管理、数据库系统管理 2.一对一、一对多、多对多 3.元组,属性 4.候选关键字 5.外部关键字 6.数据结构、数据操作、数据的完整性约束条件。 7.层次模型、网状模型、关系模型。 8.投影、选择、连接。 9.实体完整性、参照完整性、用户定义的完整性。 10.实体完整性 11.信息的载体,记录信息,依靠数据,数据具体含义 12.数据库管理系统、面向对象 13.事物之间的联系 14.插入,修改,删除,查询 15.字段、表 16.关系模型 17.属性、元组 18.投影 19.关键字 20.选择、投影、联接 21.关系 22.标题栏、菜单栏、工具栏、工作区、状态栏、命令窗口 23.菜单方式、命令方式 24.向导、设计器、生成器 25.隐藏、关闭、命令窗口、关闭 26.文件位置 27.10 亿、255、255 28.128、10、254、20 29.64K、8192 30.Mem 、Restore From MM 31.逻辑型、.F. 32.T. 33. Set Default To A: 34. -26.00、2 35.Set Century On 36.N、C、N、C、5、123.458、247、32、-246.92 37.Substr、Right、Left、!38.208520.45 39.F. 40.0 41.M. 或者M- 42.145.3 43.6.7944.t=Ctod(m+/+D+/+y) 45.个人电子计算机 46.XY3 47.679 48.101.00、Z=X2、100.00三、判断题1.T 2.F 3.T 4.F 5.T 6.F 7.F 8.T 9.T 10.F 11.F 12.F 13.T 14.F 15.F 16.T 17.F 18.F 19.F 20.F 21.F 22.T 23.F 24.F第二章数据库、表的基本操作习题精练一参考答案：一、单项选择题1. B 2. A 3. D 4. B 5. C 6. D 7. A 8. B 9. B 10. C 11. C 12. D 13. D 14. C 15. C 16. D 17. B 18. C 19. D 20. D 21. D 22. B 23. C 24. D 25. A 26. D 27. C 28. B 29. A 30. D 31. C 32. C 33. A 34. A 35. D 36. A 37. A 38. A 39. B 40. B 41. C 42. A 43. C 44. B 45. D 46. B 47. D 48. B 49. C 50. C 51. B 52. A 53. C 54. C 55. C 56. A 57. C 58. A 59. D 60. D61. C 62. A 63. A 64. C 65. C 66. A 67. C 68. A 69. D 70. D 71. C 72. B 73. A 74. A 75. B 76. B 77. A 78. D 79. C 80. A 81. A 82. D 83. A 84. C 85. C 86. A 87. D 88. B 89. A 90. D 91. A 92. C 93. B 94. C 95. D96. D 97. C 98. B 99. C 100. C 101. D 102. C 103. B 104. A 105. C 106. D 107. B 108. D 109. A 110. C 111. C 112. D 113. C 114. C 115. B 116. A 117. A 118. A 119. A 120. A 121. C 122. A 123. B 124. D 125. C 126. B 127. C 128. D 129. D 130. C 131. A 132. D 133. C 134. D 135. C 136. D 137. D 138. C 139. A 二、填空1. APPEND 2. 11 3. .T. 4. .dbf 5. .CDX 结构化复合索引 6. 1 多个 多个7. 逻辑 物理 8. 索引关键字 9. GO 10DELETE NEXT 510. SORT TO PL ON 总分/D ,英语 FOR 性别“男”11. COUNT FOR 性别“女” .AND.数学80 TO FS12. 表|删除记录 13. MODIFY STRUCTURE 14. 主索引 候选索引 惟一索引 15. 规则16. BROWSE 17. 一 多 18. EOF() 19. DELETE 20. ZAP21. COUNT TO FSMAN FOR 性别=“男” AND 政治分数 9022. REPLACE ALL总分 WITH 总分+20 FOR 学生干部23. REPLACE ALL 总分 WITH 0 24. COPY TO NEW FOR 性别=男 AND 外语=8525. COPY TO COPY STRUCTURE TO 26. LOCATE JOIN 27. 逻辑 28. 删除标记29. INSERT BEFORE 30. 8 31. 物理删除 32. append blank 33. modify structure34. replace ALL英语 WITH 英语+10 35. 表结构 36. 独立 复合 37. 文件末尾38. 字段名称 类型 宽度 39. 浏览 编辑 40. 普通 41. 1 GO BOTTOM 42. LOCATE FOR 43. 11 44. LIST NEXT 4 45. LIST FOR YEAR(进馆日期)=199046. REPLACE 出生日期 WITH 1978-10-28 47. DELETE PACK48. DELETE FOR LEFT(分类号,1)=“A” 49. LOCATE FOR CONTINUE50. REPLACE ALL 年龄 WITH 年龄+1 年龄字段应为整型 51. 黑色 彻底删除52. ALL NEXT REST RECORD 53. 物理 逻辑 54. .IDX .CDX55. .CDX 打开 56. 升序 ASCEND DESCEND 57. UNIQUE习题精练二参考答案一、选择题1.D 2.C 3.D 4.B 5.B 6.A 7.C 8.A 9.B 10.D 11.D 12.D 13.C 14.C 15.C 16.C 17.A 18.C 19.C 20.B 21.A 22.C 23.B 24.B 25.D 26.B 27.B 28.A 29.B 30.D 31.C 32.B 33.B 34.A 35.B 36.C 37.D 38.D 39.C 40.A 41.D 42.C 43.C 44.D 45.C 46.A 47.C 48.B 49.C 50.B 51.D 52.C 53.C 54.A 55.C 56.C 57.D 58.C 59.B 60.D 61.A 62.B 63.C 64.B 65.D 66.D 67.C 68.B 69.A 70.C 71.B 72.C 73.A 74.B 75.C二、填空题1.数据库表,自由表 2.其他数据库 3.显示812 号记录内容 4.插入对象5. Replace 6.以“独占”方式打开数据表 7.F. , .T. , 1 8.将指针定位于满足条件的第一条记录上,逻辑9.Delete All For Substr(分类号,1,1)=“J” 或 Delete All For Left(分类号,1)= “J”Delete All For Year(出版日期)字段名或别名.字段名23.bjbh+Str(cj, 3)+Dtoc(csrq) 24.254, 20, 8, 1, 425.List For 职称=教授 Or 职称=副教授 或者 List For 教授$职称26.Use gz Index gz1, gz227.Average Year(Date( )-Year(csrq) For xw=博士 To age28.Count For xb=女 And zc=教授三、判断题1.T 2.F 3.T 4.F 5.T 6.F 7.F 8.T 9.T 10.F 11.F 12.F 13.F 14.F 15.F 16.T 17.F 18.T 19.F 20.F 21.T 22.F 23.T 24.F 25.T 26.F 27.F 28.F 29.F 30.F 31.F 32.F 33.T 34.T 35.F 36.F 37.T 38.F 39.F 40.T第三章查询与视图习题精练一参考答案：一、单项选择题1.D 2.D 3.D 4.C 5.D 6.A 7.B 8.D 9.D 10.B 11.D 12.D 13.D 14.A 15.B 16.C 17.D 18.D 19.D 20.C 21.C 22.D 23.B 24.D 25.B 26.A 27.D 28.D 29.C 30.A 31.D 32.D 33.C 二、填空1.可用字段 2.不能 3. 查询条件 4.本地视图 5).修改 6.联接 7.联接 8.查询文件,数据库文件 9.DO 查询.QPR 10.USE 视图名NODATA 11. 表 视图习题精练二参考答案 一、选择题1.B 2.D 3.A 4.A 5.D 6.B 7.C 8.C 9.C 10.D 11.A 12.B 13.D 14.C 15.A 16.B 17.A 18.C二、填空题1.查询条件 2.设置输出字段,选定符合条件的记录,使记录按照指定的字段进行排序3.满足指定条件 4. SQL Select, qpr 5.虚表 6.自由表,视图 7.本地视图,远程视图 8.连接 9.Open Database jsgl / Use cx_js / Browse 10.更新三、判断题1.F 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.F 12.T第四章关系数据库标准语言SQL习题精练一参考答案：一、单项选择题 1.B 2.A 3.A 4.D 5.A 6.A 7.B 8.D 9.B 10.A 11.C 12.B 13.A 14.B 15.C 16.D 17.B 18.D 19.C 20.D 21.B 22.A 23.B 24.A 25.B 26.A 27.B 28.C 29.A 30.D 31.C 32.A二、填空1.CREATE TABLE 借阅 (借书证号 C(4),总编号 C(6),借书日期 D(8) 或 CREA TABL 借阅 (借书证号 C(4),总编号 C(6),借书日期D(8) 2. COUNT(DISTINCT 总编号) 或 COUN(DISTINCT 总编号) 或 COUNT(DIST 总编号) 或 COUN(DIST 总编号)3. 单价=20 (出版单位=清华大学出版社 OR 出版单位=电子工业出版社) 或 (出版单位=电子工业出版社 OR 出版单位=清华大学出版社) 单价=15 and 单价=0 ERROR 单价应该大于等于0! 或 SET CHEC单价=0 ERRO 单价应该大于等于0! 8.总编号+借书证号 或 借书证号+总编号9.IN (SELECT 总编号 FROM 借阅) 或 IN (SELE 总编号 FROM 借阅)10.OR 出版单位=电子工业出版社 ORDER BY 出版单位DESC 11.INTO cursor 或 INTO cursor cursorname12.INSERT INTO R(NO,NAME,CLASS) VALUES(30,郑和,95031) 或 INSE INTO R(NO,NAME,CLASS) VALUES(30,郑和,95031) 13.UNION14.DELETE FROM R WHERE NO=20 或 DELE FROM R WHERE NO=20 或 DELE FROM R WHER NO=20 或 DELETE FROM R WHER NO=20 15.GROUP BY16.UPDATE R SET NAME=王华 WHERE NO=10 或 UPDA R SET NAME=王华 WHERE NO=10 或 UPDA R SET NAME=王华 WHER NO=1017.SUM AVG 18. NULL 19.结构化查询语言 20.INTO VALUES 21.UPDATE WHERE22.学生.学号=选课.学号 23. UPDATE 24.COUNT(学号) 25.VALUES 26.SET27.ORDER BY 28.BETWEEN 29.LIKE 30.INTO ARRAY 31.WHERE习题精练二参考答案一、单项选择题1.D 2.B 3.A 4.B 5.D 6.B 7.A 8.A 9.D 10.D 11.A 12.D 13.B 14.C 15.B 16.A 17.D 18.B 19.A 20.D 21.C 22.D 23.B 24.C 25.C 26.B 27.D 28.B 29.B 30.A 31.D 32.D 33.A 34.D 35.A 36.B 37.D 38.D 39.A 40.D 41.C 42.A 43.A 44.D 45.C 46.C 47.D 48.B 49.A 50.C 51.C 52.A二、填空题1.Union 2.数据查询 3.Sum(工资) 4.Insert Into 5.Alter, Alter, Check 6.And, In7.As, 项目 8.Top, Order By 9.Add, Check 10.On 11.Update, Set三、写出实现下列功能的SQL 命令1.Select xm, csrq From jsqk Where hf2.Select xm From jsqk, xb Where jsqk.xbbh=xb.xbbh And (xbmc=会计系 ;Or xbmc=经济系)3.Select Avg(jcgz) From gz, jsqk Where gz.jsbh=jsqk.jsbh And xb=女4.Select xm, xl From jsqk Where xb=男5.Select Avg(jcgz) From gz, jsqk Where gz.jsbh=jsqk.jsbh And “教授”$ zc6.Select xm From gz, jsqk Where gz.jsbh=jsqk.jsbh And jcgz=2000 Group By xbmc13.Select Top 1 xbbh, Count(*) tt From jsqk, kyqk Where jsqk.jsbh=kyqk.jsbh ;Group By xbbh Order By tt Desc14.Insert Into jsqk (jsbh, xm, xb, xl, xw, zc ) Values ;(199009, 和红, 女, 研究生, 博士, 助教)15.Delete From jsqk Where xm=和红16.Update gz Set zwbt=zwbt+200 Where jcgz+zwbt200017.Update gz Set zwbt=zwbt*1.1 Where jsbh In(Select jsbh From jsqk ;Where zc=教授)第五章VisualFoxPro程序设计基础习题精练一参考答案：参考答案：一、选择题1. B 2.C 3.A 4.C 5.D 6.C 7.A 8.C 9.B 10.B 11.A 12.D 13.B 14.D 15.B 16.D 17.D 18.B 19.B 20.C 21.C 22.D 23.D 24.A 25.D 26.C 27.B 28.C 29.B 30.D 31.C 32.D 33.C 34.B 35.C 36.D 37.D 38.C 39.A 40.A 41.B 42.B 43.A 44.C 45.C 46.C 47.C 48.B 49.D 50.B 51.B 52.B 53.A 54.D 55.C 56.D 57.B 58.A 59.B 60.B 61.B 62.B 二、填空题 1.全局变量 2.运算符 3.nK AND n%2=0 4.私有变量5.1 100以内自然数的和 2Y=* * * 6.1 0 2 J=I+1 3 STR(N) 7.1RETURN .F. 2 (-B+SQR(DELTA)/(2*A) 8.DO SUB WITH 2,AREA 9.1 GETPHN 2 CONTINUE10.1)1NOT.EOF() 2 I10.AND.数量民族汉 5A-姓名 15.1OFF 2 ON 三、程序设计题 1.源程序如下： ? 1994是个偶数,它的各位数字之和为23,请打印出比1994小的所有这样的数? 按任一键开始wait i=1j=1a=0dime arry(20)do while a=1 b=5 do while b=9 c=5 do while c=9 d=6 do while d=9 store (a*1000+b*100+c*10+d) to x if x1994 .and. a+b+c+d=23 arry(i)=x i=i+1 endif d=d+2 enddo c=c+1 enddo b=b+1 enddoa=a+1enddoj=i-1i=1do while i=0 set colo to w+/6 x1,j clea to x2,j+1 x1,79-j clea to x2,80-j j=j-1enddoset colo to 4/32,20 clea to 8,594,21 say 用百钱买百鸡,鸡公一值钱五,鸡母一值钱三5,21 say 鸡雏一值钱三,问公、母、雏各几？10,20 say 按任一键继续wait set colo to 2/5,1/6,79,12 clea to 16,67nc=0i=1do while nc=20np=int(7*nc)/4)if 4*np7*nc nc=nc+1else if np0 .and. a0 .and. b0 .and. c0 read n=1 m=0 do while 5*n=x m=m+int(x/(5*n) n=n+1 enddo 11,10 say ltrim(str(x)+的阶乘的末尾零的个数是：+ltrim(str(m) l=Y 18,3 say 是否做下一个数？Y/N get l read if upper(l)=N isdo=.f. endif enddo clear retu 5.源程序如下： set talk offset colo tocleartext 本程序求出100之内所有勾股数。endtextwait 按任一键继续cleacreate table fox16(aa n(4),bb n(4),cc n(4)set safety offset confirm offuse fox16zapx=1y=2do while x*x+y*y100 do while x*x+y*y0 .and. N=15 .and. int(N/2)N/2readdime a(N,N)a=0i=1j=(N+1)/2a(i,j)=1k=2do while k=N*N i=i-1 j=j+1 do case case i=0 .and. j=N+1 i=i+2 j=j-1 case i=0 i=N case j=N+1 j=1 endcase if a(i,j)=0 a(i,j)=k else i=i+2 j=j-1 a(i,j)=k endif k=k+1enddoclear5,4 say ltrim(str(N)+阶魔方阵排列如下：i=1do while i=N j=1 do while j=2 .and. n=500 20,6 say 请稍候 i=1 j=1 w=0 do while in if mod(n,i)=0 w=i+w j=j+1 endif i=i+1 enddo if w=n 8,10 say *答案：* 9+3*m,25 say 完全数：+str(n) 10+3*m,24 say 完全数因子的个数：+str(j-1) m=m+1 endif n=n+1enddo20,6 clear to 20,20return8.源程序如下： set talk offset stat offset safe offset colo to 6+/1,5+/3,Bclearcreat table fox32(a1 N(10),a2 N(6),a3 N(6)15,25 say 正在运行,稍侯dime x(3)i=1j=1k=1do while i6 x(1)=i do while j6 x(2)=j do while k6 x(3)=k appe blan gather from x k=k+1 enddo k=1 j=j+1 enddo j=1 i=i+1enddodele all for a1=a2 .or. a2=a3 .or. a1=a3pack15,25 clear to 15,60set heading offdisp allrow(),20 say 共有+str(reccount(),2)+种借法。useclose alldelete file fox32.dbfreturn9.源程序如下： set talk offclearwait 按任一键开始set color to B/G,W/G,Wdimension a(20)i=0sum1=0n=0do while i=9 n=2*i+1 sum1=sum1+n i=i+1enddoj=0sum2=0p=0do while j=9 p=2*j sum2=sum2+p j=j+1enddod=(330-300)/(sum1-sum2)a=(300-sum2*d)/10i=1do while i=20 a(i)=a+(i-1)*d i=i+1enddom=4set color toclearset colo to G/B,W/B1,29 say 等差数列值表set color to B/BR+m=3k=1do while m12 n=22 do while n=50 m,n say A(+ltrim(str(k)+)=+ltrim(str(a(k) n=n+9 k=k+1 enddo m=m+2enddoreturn10.源程序如下： set talk offcleardime var(250)var=0i=3s=0j=17,2 say 请稍候do while i=250 k=int(i/2) m=2 num=0 do while m=k if mod(i,m)=0 num=num+1 m=m+1 else m=m+1 endif enddo if num=0 s=s+1 var(s)=i endif i=i+1enddo10,5 say 这13个连续合数为n=2do while n=13 do while (var(n-1)+j)0ZS=INT(ZS/10)ZSW=ZSW+1ENDDOXSW=0DO WHILE INT(X)#XX=X*10XSW=XSW+1ENDDOFJW=IIF(XMAX，则把B的值赋给MAX；如果BMIN，则把B的值赋给MIN；直到N的值超过20。（3）最后的平均值应等于累加和S除以去掉最大和最小值之后的数值个数（18）。【程序代码】：SET TALK OFFCLEARS=0N=1STORE 0 TO MAX，MINDO WHILE N=20INPUT “B=” TO BS=S+BIF MAXBMIN=BENDIFN=N+1ENDDO?“AVERAGE=”+STR(S-MAX-MIN)/18，19，2)SET TALK ON此题也可用数组来完成，程序代码如下：SET TALK OFFCLEARDIMENSION A(20)S=0N=1STORE 0 TO MAX，MINFOR I=1 TO 20INPUT A(+STR(I，2)+)TO A(I)S=S+A(I)IF MAX A(I)MIN= A(I)ENDIFENDFOR?“AVERAGE=”+STR(S-MAX-MIN)/18，19，2)SET TALK ON此题还可用数组函数ASORT()来实现，ASORT()函数的功能是按升序或降序对数组中的元素排序，这样在求和时就可以把第一个和最后一个数组元素去掉，直接把其余18个元素分别求和后再求平均值。程序代码：SET TALK OFFCLEARDIMENSION A(20)S=0FOR I=1 TO 20INPUT A(+STR(I，2)+) TO A(I)ENDFOR=ASORT(A)FOR N=2 TO 19S=S+A(I)ENDFOR?“AVERAGE=”+STR(S/18，19，2)SET TALK ON13编程输出下列图形： 122233333 4444444555555555444444433333 2221【解题思路】这是一道典型的图案输出显示的问题，通过二重循环的控制来完成。具体步骤：（1）外循环除了用于控制图案组成元素外，还要控制输出的行数。从题目要求可知，输出显示的行数与给定的图案半高N（5）有关，可以换算出来。所以外循环的循环变量初值为1，终值为2N-1（11）。（2）内循环除用于控制图案组成元素外，还要控制输出的列数。从题目要求可知，每行输出的列数都不相同，但有规律可循，即每行输出的列数刚好与当前的行数I有关，同样可换算出来。对于给出的图案，可以将它分解为两个三角形，上面一个三角形每行中的列是逐行递增的（第一行输出2*I-1即1列，第5行输出2*I-1即9列），而下面一个三角形每行中的列是逐行递减的，所以内循环分为两个分别处理两个三角形。（3）内循环控制的所有列输出在同一行中，且每列之间有一空格，但是外循环控制的所有行应换行输出在不同的行中。【程序代码】：SET TALK OFFCLEARN=5P=2*N-1FOR I=1 TO PIF I=N?SPAC(N-I+1)FOR J=1 TO 2*I-1?STR(I，1)ENDFORELSE?SPAC(I-N+1)FOR K=1 TO 2*(2*N-I)-1?STR(2*N-I，1)ENDFORENDIFENDFORSET TALK ON14.编写一个自定义函数，实现将任意一个日期型表达式转换为中文大写形式。（如12/15/