2012春江苏VFP上机考试试题.doc

2012春江苏VFP上机考试试题 2012春二级Visual FoxPro上机试卷 (本试卷完成时间为70分钟) 考试说明: 1.首先登录考生信息,然后启动VFP并在命令窗口中执行下列命令,以设置默认的工作目录:SET DEFA TO T: 2.除非题目要求,否则不要对T盘上的文件进行重命名、复制和删除操作。 一、项目、数据库和表操作(12分) 打开T盘根目录中的项目文件JXGL,在该项目中已有一数据库JXSJ。 1.在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表,并按表格中的要求设置相关属件。 字段名 数据类型 宽 度 字段标题 BMBH C 6 部门编号 ZZXM C 8 作者姓名 LWM C 30 论文名LXL类型 KWMC C 20 刊物名称(1)设置AB表的长表名为:发表论文登记表；(2)设置BMBH字段的格式:删除输入的前导空格；(3)创建唯一索引,索引名为abcd,要求按作者姓名排序,姓名相同时再按论文名排序；(4)设置LX字段的显示类为复选框控件类。2.在AB表中输入如下记录: BMBH ZZXM LWM LX KWMC BO0002 李峰 电脑病毒预防 .T. 计算机世界 3.为KC表设置删除触发器:LX字段值为专业核心课程的记录不允许删除。 4.JS表已存在主索引GH,索引表达式为GH,KCAP表已存在普通索引GH,索引表达式为GH,以JS表为主表、KCAP表为子表按GH建立永久关系,并设置两表之间的参照完整性:更新级联。 二、设计查询(8分) 课程表(KC)中含有课程代码(kcdm,C)、课程名称(kcmc,c)和学分(xf,N)等字段,在成绩表(CJ)中含有学生学号(xh,c)、成绩(cj,N)、课程代码(kcdm,c)等字段。按如下要求修改JXGL项目中的查询CHAXUN: 若成绩不低于60分学生可以取得对应课程的学分,总学分大于或等于20的学生可以毕业,则基于Kc表和cJ表查询所有不能毕业的学生列表。要求查询输出字段为:学号、总学分,查询结果按总学分降序排序。 三、设计菜单(5分) JXGL项目中已存在菜单MENU,其中已定义了文件菜单栏及其中的退出菜单项。按如下要求设计菜单,完成后的运行效果如图1所示。 1.在文件菜单栏右侧创建教学管理菜单栏； 2.在教学管理菜单栏下创建子菜单学生和课程； 3.为学生菜单项设置跳过条件:xs表打开时才可操作； 4.在菜单项学生和课程之间插入分组线； 5.设置整个菜单的清理代码:CLOSE TABLES ALL。四、设计表单(10分) JXGL项目中已经存在表单Formj,该表单用来设置表单中表格控件Grd1的相关属性,如图2所示。按下列要求修改表单: 1.设置表单的标题为表格属性设置； 2.设置表格Grd1中的数据为只读,但能获得焦点,表格的RecordSourceType属性值为0一表； 3.在数据源标签控件右侧添加一个组合框控件,并设置其Name属性为Cbo2、RowSourceType属性为7一文件、RowSource属性为当前目录下的所有.DBF文件； 4.设置复选框控件Checkl的初始状态为选中: 5.为组合框控件Cbo1编写Init事件代码,使它的初值等于3(缺省值)水平滚动条和垂直滚动条(即初始选中下拉列表中的第4条列表项)； 6.为组合框控件Cbo2编写InterActiveChange事件代码,使表单中Grd1控件的RecordSource属性与Cbo2中选定的值一致。 五、程序改错(5分) 下列程序的功能是:输入一个由ASCII码字符和GB2312字符集中汉字字符组成的字符串后,统计并显示出现次数最多的10个字符及其出现次数。要求: 1.将下列程序输入到项目中的程序文件PCODE中,并对其中的2条错误语句进行修改； 2.在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。 CLEAR ACCEPT 请输入: TO cccc &该语句功能是交互式地输入数据(字符串) n=LEN(cccc) IF n=0 RETURN ENDIF CREATE CURSOR TEMP (cc c(2),nn i) &创建临时表存储字符及出现的次数 FOR i=1 TO n c=SUBS(CCCC,i,1) IF ASC(c)127 &汉字字符 c=SUBS(cccc,i,2) i=2 ENDIF LOCATE FOR cc=c IF EOF() INSERT INTO TEMP(cc,nn) VALUE(c,1) Other REPLACE nn WITH nn+1 ENDIF ENDFOR SELECT TOP 10 cc,nn FROM temp ORDER BY 2 DESC 参考答案一、项目、数据库和表操作AB表BMBH字段格式:TAB表索引表达式；zzxm+lwm KC表删除触发器:lx#专业核心课程 或!lx=专业核心课程二、设计查询 SELECT cj.xh,SUM(IIF(CJ=60,XF,O) AS 总学分; FROM jxsj!kc INNER JOIN jxsj!cj; ON kc.kcdm=cj.kcdm; GROUP BY cj.xh; HAVING总学分20; ORDER BY 2 DESC三、设计菜单跳过条件表达式:NOT USED(xs)四.设计表单题号对象名属性/事件/方法名属性值/代码1Form1Caption表格属性设置2Grid1ReadOnly.T.RecordSourceType0-表3.Cbo2NameCbo2RowSourceType7-文件RowSource*.dbfInterAct