《vfp数据库程序设计基础》

样例-综合-数学 试卷 云南省高中会考试卷哪里下载南京英语小升初试卷下载电路下试卷下载上海试卷下载口算试卷下载 单元测验（四）《 数据库程序设计基础》 一、 选择 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 1. VFP6.0程序的三种基本结构是_________。 （A）顺序结构、选择结构和循环结构 （B）顺序结构、选择结构和逻辑结构 （C）模块结构、转移结构和循环结构 （D）网状结构、选择结构和逻辑结构 2. 用MODIFY COMMAND命令建立命令文件的缺省扩展名是__________。 （A）.TXT （B）.FMT （C）.PRG （D）.BAK 3.VFP6.0命令文件（或称程序文件）的缺省扩展名是__________。 （A）.FRM （B）.PRG （C）.FOR （D）.DOC *4. 在VFP6.0程序中，一条命令的长度不能超过_________个字符。 （A）8192 （B）254 （C）256 （D）127 5. 可以用MODIFY COMMAND命令编辑的文件是__________。 （A）ABC.DBF （B）STUD.IDX （C）PAK.BAK （D）WP_SKQ.PRG 6. 建立命令文件ABC.PRG的命令是__________。 （A）USE ABC.PRG （B）MODIFY COMMAND ABC （C）MODIFY STRUCTURE ABC.PRG （D）MODIFY ABC.PRG 7. VFP6.0的命令文件命令行的数目无限制,但编译后的程序模块不能超过_______。 （A）3600KB （B）64KB （C）256KB （D）128KB 8. 在CONFIG.FPW文件中，可用命令_______为VFP启动时自动执行VFP中相应的命令。 （A）COMMAND （B）DO （C）CREATE （D）RUN 9. 如果当前目录下有SEE.PRG、SEE.FRX、SEE.TXT和SEE.BAK这样一些文件，当执行命令MODIFY COMMAND SEE时,打开的文件是_______。 （A）SEE.TXT （B）SEE.FRX （C）SEE.PRG （D）SEE.BAK 10. 当程序输入或修改完毕，可以按_______ 键存盘并返回VFP。 （A）Ctrl+N （B）Ctrl+Y （C）Ctrl+W （D）Ctrl+Q 11. VFP中执行命令_________,可运行命令文件ZK.PRG. （A）DO ZK.PRG （B）RUN ZK.PRG （C）ZK （D）CALL ZK.PRG 12. 在程序中执行命令________将退出VFP返回到操作系统。 （A）RETURN （B）CANCEL （C）QUIT （D）EXIT 13. 如果当前目录下有ZK.PRG、ZK.MPR、ZK.QPR和ZK.FRX这些文件， 当执行DO ZK命令时，系统实际运行的文件是______________。 （A）ZK.PRG （C）ZK.MPR （C）ZK.FRX （D）ZK.QPR 14. 清除屏幕上4～8行、5～24列一块矩形区域的命令是______________。 （A）@4,5 CLEAR TO 8,24 （B）@4,5,8,20 （C）@(4,5) CLEAR (8,20) （D）@4,5,8,20 CLEAR 15. 命令@12,10 CLEAR的作用是___________。 （A）清除从坐标(12,10)开始至屏幕左上角所构成的矩形区域 （B）清除从坐标(12,10)开始至幕右下角所构成的矩形区域 （C）从第12行的第10列开始清除本行 （D）清除屏幕上其坐标为(12,10)的这一点 16、内存变量按其在程序中的使用范围分类不可能是( ) A.私有变量 B.全局变量 C.局部变量 D.循环变量 17、命令文件中，如同一语句分两行输入，则应( )。 A.该语句行第一行行尾加“逗号” B.在该语句行第二行行尾加“分号” C.在该语句行第一行行尾加“分号” C.在该语句行第二行行尾加“逗号” 18.下列语句中，可给内存变量赋多种类型值的语句是( )。 A.repalce B.wait C.input D.accdpt 19.下列关于执行cancel命令的论述有误的是( )。 A.关闭所有文件 B.清除全部私有内存变量 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 C.中断程序进行，还回到命令窗口 D.若已编译成独立执行的可执行程序，则返回操作系统 21. 用ACCEPT命令给内存变量输入数据时， 内存变量得到的数据类型是______________。 （A）取决于所输入的数据类型 （B）数值型 （C）字符型 （D）日期型 22. 在执行ACCEPT命令时，如果不输入会何容而直接回车，则存入内存变量的内容为_____。 （A）0 （B）.F. （C）.T. （D）空串 23. 用INPUT命令输入的数据类可以是___________。 （A）数值型、字符型、备注型 （B）数值型、字符型、日期型、逻辑型 （C）数值型、备注型、日期型 （D）数值型、字符型、日期型、屏幕型 24. 用INPUT 命令输入日期型数据“12/16/98 ”时， 正确的 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式是___________。 （A）12/16/98 （B）"12/16/98" （D）CTOD("12/16/98") （D）DTOC("12/16/98") 25. 用WAIT命令给内存变量输入数据时， 内存变量所获得的数据是________________。 （A）任意长度的字符串 （B）一个字符串和一个回车符 （C）数值型数据 （D）一个字符 26. 在交互方式下,可对L型变量输入数据的命令__________。 （A）ACCEPT （B）WAIT （C）READ （D）INPUT 30. 当使用命令___________输入数据时，其内存变量必须事先赋予初值。 （A）WAIT （B）ACCEPT （C）@...SAY...GET/READ （D）INPUT 38. 能放在可执行命令末尾的注释命令是_______________。 （A）REM （B）＆＆ （C）* （D）ABCD 39. 命令“CLEAR"的功能是_______________。 （A）清除当前文件内容 （B）关闭数据库 （C）清除屏幕 （D）清除内存 40. 可以关闭数据库文件的命令是_________________。 （A）CLEAR FIELDS （B）CLOSE DATABASE （C）CLOSE INDEX （D）CLEAR ALL 41. 只能关闭当前工作区中打开的格式文件的命令是_____________。 （A）CLOSE PROCEDURE （C）CLOSE DATABASES （C）CLOSE FORMAT （D）CLOSE ALL 42. IF命令可以嵌套的层数不能超过____________层。 （A）384 （B）128 （C）256 （D）10 43. 不能将LOOP作为有效命令使用程序结构是________________。 （A）IF……ENDIF （B）SCAN……ENDSCAN （C）DO CASE……ENDCASE （D）DO WHILE……ENDDO 44. 下面命令执行后输出的结果是_____________。 CJ=82 ?IIF(CJ>=60.IIF(CJ>=85,"优秀"，"良好"),"差” （A）优秀 （B）差 （C）良好 （D）82 45. DO CASE命令的嵌套使用，嵌套的最大层数为_______________。 （A）48 （B）384 （C）256 （D）128 46. 在下面的DO循环中，一共要循环_____________次。 M=5 N=1 DO WHILE N<=M N=N＋1 ENDDO （A）1 （B）6 （C）4 （D）5 47. 在下面的DO循环中，一共要循环_____________次。 X=10 Y=5 DO WHIE Y>=X Y=Y-1 ENDDO （A）15 （B）10 （C）6 （D）5 48. DO WIHIL命令的嵌套层数最多可达______________层。 （A）24 （B）384 （C）256 （D）128 49. 执行命令_______后，可为程序调试打开跟踪窗口并挂起程序。 （A）SET TALK ON （B）SET ECHO ON （C）SET STEP ON （D）SET DEBUG ON 50. 过程文件中一定具有_______语句。 A.parameters B.priv C.procedure D.close 二、 是非判断题 1. 在编写FoxBASE＋程序时，每行只能写一条命令，命令的前面不需要行号。 （ ） 2. FoxBASE＋程序中每一条命令必须从第1列开始书写。（ ） 3. 使用 MODIFY FILE 命令建立文件的缺省扩展名为.PRG。（ ） 4. ACCEPT 命令可用于输入任何类型的数据。（ ） 5. 用 ACCEPT 命令输入字符串时，必须使用定界符。（ ） 6. 命令 @...SAY...GET/READ 中的 GET 变量必须事先赋值。（ ） 7. 程序未尾的 RETURN 命令不能省略。（ ） 8. 在 DO CASE 命令所构成的多分支结构中，如果有多个CASE子句的条件为.T. (真)，将依次执行这些CASE 子句后面的命令序列。（ ） 9. ON ERROR 命令只能检测在它以后执行的命中的错误。（ ） 10. 命令 CLEAR ALL 的作用是清除整个屏幕。（ ） 三、填空题 1. 菜单选择程序。 SET TALK OFF DO WHILE .T. CLEAR XZ=0 @1,16 SAY"1.输入" @2,16 SAY"2.修改" @3,16 SAY"3.打印" @4,16 SAY"4.退出" @5,16 SAY"请选择(1～4):"GET XZ PICT'9'RANGE 1,4 _____________①__________ DO CASE CASE XZ=1 DO A1 && 输入 CASE XZ=2 DO A2 && 修改 CASE XZ=3 DO A3 && 打印 CASET X4 ____________②_________ ENDCASE ENDDO 2. 在数据库文件 XS.DBF 中查询姓名为刘春林的记录， 若其总分大于等于250分，则显示他的学号、姓名、专业和总分。 SET TALK OFF USE XS ____________①__________ SEEK "刘春林" IF FOUND() IF___________②_________ ?"学号:",学号 ?"姓名:",姓名 ?"专业:",专业 ?"总分:",总分 ELSE ?"刘春林的总分小于250分!" ENDIF ELSE ?"库中没有刘春林的记录!" ENDIF USE RETURN 3. 逐条显示数据库 STU.DBF 中的所有记录。 SET TALK OFF USE STUD N=1 DO WHILE ___________①__________ DISPLAY _____________②_____________ WAIT "按任意键显示下一条记录!" N=N＋1 ENDDO USE RETURN 4. 将库 ABC.DBF 中每个男学生的学号、姓名及性别显示在屏幕上。 SET TALK OFF ___________①__________ @1,16 SAY "学号 姓名 性别" @2,16 say"==============================================" N=1 DO WHILE.NOT.EOF() IF____________②____________ @N＋2,18 SAY "学号:"GET 学号 @N＋2,26 SAY "姓名:"GET 姓名 @N＋2,36 SAY "性别:"GET 性别 ENDIF ____________③__________ N=N＋1 ENDDO USE RETURN 5. 向库 STUD.DBF 中追加一条新记录。 SET TALK OFF USE STUD _____________①____________ @2,20 SAY"学 号:"GET 学号 @3,20 SAY"姓 名:"GET 姓名 @4,20 SAY"性 别:"GET 性别 @5,20 SAY"出生日期:"GET 出生日期 @6,20 SAY"籍 贯:"GET 籍贯 @7,20 SAY"专 业:"GET 专业 @8,20 SAY"代 培 否:"GET 代培否 @9,20 SAY"总 分:"GET 总分 ② USE RETURN 6. 只允许编辑库文件 STUD.DBF 中一条录的部分字段内容。 SET TALK OFF CLE STUD ACCEPT "输入学号:"TO XH LOCATE FOR 学号＝XH @2,20 SAY "学 号:"GET 学号 @3,20 SAY "姓 名:"GET 姓名 @4,20 SAY "性 别:"GET 姓别 * 使前面的 GET 只显示而不具有输入功能 ________________________ @5,20 SAY "出生日期:"GET 出生日期 @6,20 SAY "籍 贯:"GET 籍贯 @7,20 SAY "专 业:"GET 专业 @8,20 SAY "代 培 否:"GET 代培否 @9,20 SAY "总 分:"GET 总分 READ USE RETURN 7. 在库 SSS.DBF 中查询某专业的学生。 SET TALK OFF USE SSS ZY=SPACE(10) @2,20 SAY "请输入专业名称:" GET ZY _____________①_____________ GO TOP LOCATE FOR 专业=ZY IF ____________②____________ @3,20 SAY "没有符合条件的记录，按任意键结束!" WAIT CLEAR RETURN ENDIF * 逐条显示该专业所有学生的记录 DO WHILE .NOT.EOF() DISPLAY ________________③_______________ ENDDO WAIT RETURN 8. 在库 ABC.DBF 中查询姓名为李小燕的记录。 SET TALK OFF USE ABC _____________________ SEEK "李小燕" IF FOUND() DISPLAY ELSE ?"库中没有李小燕的记录!" ENDIF USE RETURN 9. 本程序是在所给库中查找指定姓名的记录，如果找到则删除此记录 set talk off | else kname=space(8) | ? "查无此人" accept "输入数据库名：" to kname | endif use _____________ | use _______________ | set talk on accept "姓名：" to name | ___________ locate __________ | if .not.______ | _____________ | __________ | 10. 设学生的数学、 物理、 英语这三门课程的期末考试成绩存在放在库 CJ.DBF 中。如果某一学生三门课程的成绩均达到 85 分以上(包括 85 分在内)， 应在该学生记录的“等级”这一字段中填入“优秀”。 SET TALK OFF USE CJ DO WHIL.NOT.EOF() IF 数学>=85____________①___________ ______________②_____________ SKIP ENDIF ENDDO USE RETURN 11. 在库 STUD.DBF 中查找总分最高者并输出其姓名、专业和总分。 USE TALK OFF USE STUD XM=姓名 ZY=专业 ZF=总分 DO WHILE.NOT.EOF() _______________①_____________ IF ZF<总分 ____________②____________ ____________④____________ ____________⑤____________ ENDIF ENDDO CLEAR ?XM, ZY, ZF USE RETURN 12. 设成绩库 CJK.DBF 中“数学”(数值型字段)这门课程的学分为4， 其学分值计算的方法如下： 数学≥90，学分值为4； 80≤数学〈90,学分值为3； 70≤数学〈80,学分值为1； 60≤数学〈70，学分值为1； 数学〈60，学分值为0。 计算任一学数学这门课程的学分值的程序如下： SET TALK OFF USE CJK ACCEPT"输入学号:"TO XH XF=0 && 存放学分值 LOCATE FOR 学号＝XH DO CASE CASE__________①__________ XF=4 CASE___________②___________ XF=3 CASE___________③___________ XF=2 CASE___________④___________ XF=1 OTHERWISE XF=0 ENDCASE ?"学号:",XF USE RETURN 13. 逐条显示库 ABC.DBF 中所有女学生的记录。 SET TALK OFF USE ABC DO WHILE.NOT.EOF() IF 性别＝"男" ___________①__________ ___________②__________ ENDIF DISPLAY WAIT "按任意键继续显示下一个女生的记录..." ___________③_________ ENDDO USE RETURN 14. 按程中的要求填容。 SET TALK OFF ACCEPT"输入数据库名:" TO KM USE &KM * 连续显示1～5 条记录 ____________①__________ WAIT GO BOTTOM * 显示最后 4 条记录 ____________②__________ LIST REST USE RETURN 15. 设学生情况库 XSK.DBF 中有学号、姓名、性别等字段，成绩库 CJK.DBF 中有学号、数学、物理、英语、总分等字段。 SET TALK OFF SELECT 2 USE CJK SELECT 1 USE XSK * 将库 XSK.DBF 与 CJK.DBF 按要求进行连接 JOIN WITH B TO ZK ___________①___________ SELECT 3 USE ZK GO BOTTOM * 从库的尾部向头部方向进行查询 DO WHILE ___________②__________ IF 总分>=240 ?学号，姓名，性别，总分 WAIT"按任意键继续查询..." ENDIF _________③________ ENDDO CLOSE ALL RETURN 16. 设 SP1.DBF、SP2.DBF 和 SP3.DBF 这三个库文件中的字段如下表所示。 SET TALK OFF SELECT 1 USE SP1 SELE SP 2 USE SP2 ___________①_________ SELECT 3 USE SP3 ___________②_________ SELECT 1 SET RELATION 学号 INTO B ___________③_________ LIST 学号，姓名，性别，专业->数学，B->英语，C->德育分 SET RELATION TO CLOSE ALL RETURN 17. 设学生库 SK.DBF 与成绩库 CK.DBF 中的记录如下： 学生库 SK.DBF： Record # 学号 姓名 性别 专业 1 960004 方平军 男 机械工程 2 960109 王子李 男 计算机 3 960207 肖丹苹 女 经济管理 4 960202 李小锋 男 经济管理 5 960520 李旭君 女 电子工程 成绩库 CK.DBF： Record # 学号 上机 笔试 1 960004 82 78 2 960109 72 83 3 960207 92 95 4 960202 90 93 5 960520 75 86 要求生成一个新库 XK.DBF，该库中有五个字段：学号、姓名、专业、上机、笔试、写入的记录应该满足“上机成绩不低于 80 分”的条件。然后，从新库中显示“上机成绩不低于 90 分，并且笔试成绩不低于 90 分”的学生清单。 SET TALK OFF SELECT 2 USE CK SELECT 1 USE SK JOIN WHTH B TO XK FOR ________①_______ FIELDS ______②______ SELECT 3 USE XK LIST FIELDS 姓名 FOR ________③_______ WAIT "" CLOSE ALL RETURN 18. 设数据库 XK.DBF 中存放的是某班学生的学号和姓名，如： Record # 学号 姓名 1 0001 雷建春 2 0002 洪晴雨 . . . . . . . . . 现要将每个学生的数学、物理、英语这三门课程的成绩输入成绩库 FS崐.DBF 中，该库有“学号”、“姓名”、“数学”、“物理”、“英语”五个字段崐，但无任何记录。在输入时，要求只输入学生的学号，其姓名在库 XK.DBF 中去查崐找。 SET TALK OFF SELECT 1 USE XM ___________①_________ COUNT TO N SELECT 2 USE FS Y=1 DO WHILE Y<=N DO WHILE.T. CLEAR XH=SPACE(4) @2,16 SAY "输入学号:" GET XH PICT "9999" READ IF LEN(TRIM(XH))=0 CLEAR CLOSE ALL ENDIF _________②________ SEEK XH IF ___________③__________ WAIT "库中此学号，按任意键重新输入!" ELSE XM=姓名 EXIT ENDIF ENDDO S1=0 S2=0 S3=0 @4,16 SAY "数学:"GET S1 PICT "999.9" @5,16 SAY "物理:"GET S2 PICT "999.9" @6,16 say "英语:"GET S3 PICT "999.9" READ SELECT 2 ____________④_________ REPLACE 学号 WITH XH,姓名 WITH XM REPLACE 数学 WITH S1,物理 WITH S2,英语 WITH S3 Y=Y＋1 ENDDO CLOSE DATA RETURN 四、 读程序选结果 1. 设一职工(ZG.DBF)有以下记录： Record # 编号 姓名 年龄 职称 工资 1 2001 王致远 38 讲师 690 2 2002 陈小华 28 助教 490 3 2003 邓景亭 50 副教授 820 4 2004 张力平 28 讲师 660 5 2005 赵丰阳 54 副教授 850 6 2006 李开扬 26 讲师 550 7 2007 王泉林 52 教授 960 写出执行以下程序后的结果： SET TALK OFF USE ZG SUM ALL 工资 TO A FOR 年龄<=30 .AND. 工资<600 AVERAGE ALL 工资 TO B FOR 职称＝"副教授".AND.工资〈850 INDEX ON 年龄 TO DX INDEX ON 工资 TO GZ SET INDEX TO DX GO BOTTOM REPLACE 职称 WITH"教授",工资 WITH 980 SET INDEX TO DX GO TOP REINDEX 职称 WITH "副授",工资 WITH 760 REINDEX GO TOP ?姓名，工资 USE RETURN (1) 变量 A、B 的值分别为_________。 （A）1040、820 （B）1700、835 （C）660、820 （D）550、850 (2) 第一条 REPLACE 命令将___________的职称改成了教授。 （A）邓景亭 （B）张力平 （C）赵丰阳 （D）王致远 (3) 第二条 REPLACE 命令将____________的职称改成了副教授。 （A）陈小华 （B）李开扬 （C）王致远 （D）张开平 (4) 最后一条?命令显示的姓名和工资是__________。 （A）张力平、660 （B）王致远、690 （C）王泉林、960 （D）李开扬、550 2. 有以下两个库文件，其中库文件 SEE.DBF 中的记录如下： Record # 学号 姓名 性别 专业 1 0004 方平军 男 机械工程 2 2009 王子李 男 计算机 3 1007 肖丹苹 女 经济管理 4 1002 李小锋 男 经济管理 5 3020 李旭君 女 电子工程 库 JCY.DBF 中的记录如下： Recod # 学号 数学 物理 1 0004 82 78 2 2009 72 83 3 1007 92 95 4 1002 90 93 5 3020 85 86 执行以下程序： SET TALK OFF SELECT 2 USE JOY SELECT 1 USE SEE LOCATE FOR "李" $ 姓名 XH＝学号 XM＝姓名 SELECT 2 LOCATE FOR 学号＝XH SX＝数学 ?XH，XM，SX SELECT 1 CONTINUE XH＝学号 SELECT 2 CONTINUE ?学号，A->姓名，物理 CLOSE ALL RETURN (1) 第一条命令?显示的值分别为________。 （A）1002、李小锋、90 （B）0004、方平军、82 （C）2009、王子李、72 （D）1002、李小锋、78 (2) 第二条命令?显示的值分别为________。 （A）2020、李旭君、85 （B）3020、李旭君、86 （C）2009、王子李、83 （D）1002、李小锋、93 3. 有以下两个库文件，其中库文件 KU1.DBF 中的记录如下： Record # 学号 姓名 性别 专业 1 96004 罗华东 男 机械工程 2 96005 姜山 男 计算机科学 3 96006 张玲 女 经济管理 4 96007 王先林 男 应用化学 库 KU2.DBF 中的记录如下： Record # 学号 上机 笔试 1 96004 84 77 2 96005 56 83 3 96006 91 93 4 96007 63 51 执行以下程序： SET TALK OFF SET DELETED ON SELECT 2 USE KU2 INDEX ON 学号 TO XH2 SELECT 1 USE KU1 INDEX ON 学号 TO XH1 SET RELATINO TO 学号 INTO B COPY TO KU3 FIELDS 学号，姓名，性别，B－〉上机，B－〉笔试 USE KU3 DELETE ALL FOR 上机〉60.OR.笔试〉６０ LIST GO 2 XH＝学号 XM＝姓名 WAIT USE RETURN (1) 程序中的 LIST 命令共显示出__________条记录。 （A）4 （B）3 （C）2 （D）1 (2) 变量 XH、XM 的值分别为_________。 （A）96006、张玲 （B）96005、姜山 （C）96004、罗华东 （D）96007、王先林 (3) 程序执行到 RETURN 命令时，被关闭的库文件是_________。 （A）KU1.DBF、KU2.DBF、KU3.DBF （B）KU3.DBF （C）KU2.DBF 和 KU3.DBF （D）KU1.DBF 和 KU3.DBF 4. 设有以下两个数据库 BOOK1.DBF 和BOOK2.DBF： .USE BOIOK1 .LIST Record # 书号 书名 出版社 出版日期 单价 库存量 1 S1150 工具软件 新天地 04/10/94 15.50  180 2 S2010 BASIC语言 电子科大 10/12/95 12.00 700 3 S5765 多媒体 蜀风 08/06/96 18.00 600 4 S3321 FOXBASE 联大 11/07/96 14.40 350 .USE BOOK2 .LIST Record # 书号 书店 订购数 1 S2010 新潮 20 2 S2010 大众科技 100 3 S5765 大众科技 150 4 S3321 书海 80 5 S5765 书海 20 下面的程序要产生新的数据文件 BOOK.DBF，新库中的字段有：书号、书名崐、出版、订购数、单价。 SET TALK OFF SELECT 2 USE BOOK2 SELECT 1 USE BOOK1 JOIN WITH B TO BOOK3 FOR 书号＝B-〉书号； FIELDS 书号，书名，出版社，书店，订购数，单价 SELECT 3 USE BOOK3 COUNT TO S1 SUM 订购数 TO S2 FOR 单价〈＝１５ CLOSE ALL RETURN (1) 变量S1的值为________。 （A）20 （B）4 （C）5 （D）3 (2) 变量S2的值为________。 （A）200 （B）120 （C）180 （D）８０ 5. 设库 KU.DBF 中有以下记录： 姓名 性别 工龄 工资 刘大顺 男 12 420 李钢 女 15 510 于开喜 男 22 640 将小玲 女 10 360 邓武林 男 17 600 王定南 男 25 670 程序如下： SET TALK OFF USE KU SET FILTER TO 工龄〉15.AND.工资〉600 SUM 工龄 TO G1 SET FILTER TO SET DELETED ON DOUNT TO G2 ?G1,G2 USE RETURN 当程序执行到?命令时： (1) 变量G1的值是（ ） （A）780 （B）2420 （C）1310 （D）1910 (2) 变量G2的值是（ ） （A）3 （B）4 （C）5 （D）6 6. 设数据库文件 GM1.DBF 中有以下记录： 记录号 学号 姓名 性别 年龄 总分 1 98001 皮小刚 男 18 2 98002 张其红 女 19 3 98003 江建历 男 19 4 98004 李青青 女 18 5 98005 马平 男 20 数据库文件 GM2.DBF 中有以下记录： 记录号 学号 语文 八上语文短文两篇二年级语文一匹出色的马课件部编版八上语文文学常识部编八上语文文学常识二年级语文一匹出色的马课件 数学 英语 平均分 1 98001 89 86 89 2 98002 62 78 82 3 98003 90 98 94 4 98004 85 72 92 5 98005 56 65 71 程序如下： SET TALK OFF SET SAFE OFF CLEAR SELE A INDEX ON 学号 TO SY1 REPLACE ALL 平均分 WITH (语文＋数学＋英语)/3 SELE B USE GM1 SET RELATON TO 学号 INTO A REPLACE ALL 总分 WITH A－〉语文＋A－〉数学＋A-〉英语 FOR 学号＝A崐 －〉学号 INDEX ON STR(年龄,2,2)＋STR(总分,3,2) TO SY2 ?姓名，总分，A－〉平均分 LOCATE FOR 总分〉＝250 DISPLAY CONTINUE ?姓名，A－〉语文，A－〉数学，A－〉英语 CLOSE ALL RETURN (1) 程序中第1条?命令显示的结果是（ ）。 （A）皮小刚 246 88 （B）李青青 249 83 （C）江建历 282 94 （D）张其红 222 74 (2) 程序中第2条?命令显示结果是（ ）。 （A）江建历 19 （B）皮小刚 18 （C）李青青 18 （D）马平 20 (3) 程序中第3条?命令显示的结果是（ ）。 （A）江建历 90 98 94 （B）张其红 62 78 82 （C）李青青 85 72 92 （D）马平 56 65 71 五、 写出程序的运行结果 1. SET TALK OFF STORE 0 TO X,Y DO WHILE.T. X＝X＋1 Y＝Y＋X IF X〉＝5 EXIT ENDIF ENDDO ?X,Y 当程序执行到?命令时，X与Y的值分别为_______________。 2. 设 ZGK.DBF 为职工数据文件，“姓名”为该库中一字符字段名。 USE ZGK DO WHILE.NOT.EOF() IF.NOT."张"$姓名 SKIP LOOP ENDIF DISPLAY SKIP ENDDO USE RETURN 本程序的作用______________。 3. SET TALK OFF A＝1 DO WHILE A〈5 B＝1 DO WHILE B〈5 IF A*B〈10 B＝B＋1 ELSE EXIT ENDIF ENDDO A＝A＋1 ENDDO ?A,B 当程序执行到?命令时，A与B的值分别是______________。 4. SET TALK OFF A＝0 DO WHILE A〈＝3 B＝0 DO WHILE B〈＝4 C＝0 DO WHILE C〈＝9 S＝100*A＋10*B＋C IF S＝2*A＋B＋5*C ?S ENDIF C＝C＋1 ENDDO B＝B＋1 ENDDO A＝A＋1 ENDDO 程序中的?命令显示的结果是_______________。 5. SET TALK OFF STOR 1 TO A STORE 10 TO B DO WHILE A<=5 Y＝1 DO WHILE Y<=2*A－1 @A,B SAY "*" B＝B＋1 Y＝Y＋1 ENDDO B＝10－A A＝A＋1 ENDDO RETURN 程序运行后在屏幕上显示的结果是_____________。 6. set talk off store 1 to x,y do while .t. x=x+1 y=y+x if x>=5 exit endif enddo ?x,y 则程序运行后x为 ______ ，y为 ___________ 7. *tyb.prg set talk off use ab copy to yb stru exte use yb zap append blank repl field_name with "姓名"，field_type with c field_len with 6 append blank repl fielk_name with "总分" field_type with "N"，; field_len with 5,field_dec with 1 use crea tt from yb set talk on 本程序的作用是_________________________________________________ 8.有如下程序： *yb.prg set talk off clear public aa,bb prin c,d store 2 to aa,bb,cc,dd,ee,ff disp memo ? do bz1 with aa,cc,ee ?aa,bb,a1,c1 set talk on return *bz1.prg para a1,c1,e1 ?aa,bb aa=bb+ff bb=a1+e1 a1=c1+e1 ff=c1+e1 e1=a1+c1 ?aa,bb,a1,ff,ee return 程序yb的运行结果为： 六、程序设计题(多读现成的程序，自然就可以自己编写程序了！)