- 1、本文档共20页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
2006年(秋)VFP上机题2006年(秋)VFP上机题
江苏省高等学校非计算机专业学生
2006年(秋)计算机基础知识和应用能力等级考试上机试卷
二级 Visual FoxPro (试卷代号 VFP01)
(本试卷完成时间 70分钟)
说 明:1.首先运行考试软盘中的“上机考试”程序文件,以输入考生的准考证号、姓名和试卷代号;2.启动VFP系统后,首先在命令窗口中执行下列命令,以设置默认的工作目录: SET DEFA TO A:
3、除非题目要求,否则不要对软盘上的文件进行重命名、复制和删除操作。
一、项目、数据库和表操作(12分)
打开软盘根目录中的项目文件TEST,在该项目中已有一数据库SJK及若干表。
按以下要求修改SJK数据库中图书(TS)表:
设置lsh字段和sm字段的标题属性,分别为“流水号”和“书名”。
设置表的记录有效性规则,要求lsh字段值的前四位为入库日期字段(rkrq)中的年份。
添加一字符型字段,字段名为bc、宽度为20,然后设置其标题为“版次”、字段注释为“出版年月和版次”。
创建一个候选索引abcd,要求以流水号(lsh)为索引关键字,降序排序。
在项目中,将TS表设置为“包含”状态。
TS表和JY表已存在以分类号(flh)字段为索引表达式的主索引tsflh和普通索引flh。以TS表为主表、JY表为子表,基于flh字段建立永久关系,并根据以下要求设置参照完整性规则:
在TS表中修改记录(flh字段的值)时,若JY表中有相关的记录,则系统自动对JY表(flh字段的值)进行修改;
在JY表中插入记录时,若TS表中无相关的记录(flh字段的值),则禁止在JY表中插入。
二、设计查询(8分)
已知在SJK数据库的学生(XS)表中含有学号(xh)、姓名(xm)等字段,成绩(CJ)表中含有学号(xh)、成绩(cj)等字段。按如下要求修改查询CHAXUN:
基于XS表和CJ表查询两门或两门以上课程成绩不及格(即低于60)的学生,要求输出xh、xm和不及格课程门数,查询结果按不及格门数降序排序,相同时按学号排序。
三、设计菜单(5分)
项目TEST中已存在菜单MENU,利用菜单设计器按如下要求修改菜单:
如图所示,增加“教师管理”菜单栏及其子菜单(包含访问键和快捷键的设置);
为“系统管理”菜单中的“恢复系统菜单”菜单项设置命令,功能为:将菜单恢复为VFP系统菜单;
在“系统管理”菜单栏下增加VFP系统菜单项“导入”。
四、设计表单(10分)
下列表单FORMA用来设置用户的权限,根椐下列要求修改表单。
将表单的标题设置为“权限设置”。
将表格的前二列数据改成只读但能获得焦点,且将表格设置为只显示垂直滚动条。
已知A盘根目录下存在用户(USER)表和菜单(MENUTABLE)表,USER表含有用户名 (username) 、用户权限 (userright)等字段;MENUTABLE表含有菜单名 (menuname)、模块名 (modulename)、权限(isright)等字段。假定USER表的username字段值不重复,MENUTABLE表的modulename字段值也不重复。完善“确定”按钮的Click事件代码(提示:在原代码的末尾处添加一行语句),使得选定的模块名存入USER表的userright字段中,每个模块名之间用逗号隔开。
添加名为cmdall、标题为“全选”的命令按钮,并为之编写Click事件代码:单击该按钮时选中所有模块的权限(即将所有的复选框选中)。
完成上述修改后,运行表单,界面如下图所示:
五、程序改错(5分)
下列程序的功能是:在一个英文句子中找出最长的单词(单词间以一个或多个空格分隔),若有多个结果则只需显示第一个单词。要求:
① 将下列程序输入到项目中的程序文件PCODE中,并对其中的2条错误语句进行修改;
② 在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
cString=This is one of the best books
nCount=0
cResult=SPACE(0)
DO WHILE LEN(cString)0
n=AT(SPACE(1),cString)
cWord=ALLT(IIF(n=0,cString,SUBS(cString,1,n))) 取一个单词
cString=ALLT(IIF(n=0,SPACE(0),SUBS(cString,1,n)))
IF LEN(cWord)nCount
nCount= nCount+1
cResult=cWord
ENDIF
ENDDO
WAIT WINDOW 最长的单词是+cResult
江苏省高等学校非计算机专业学生
2006年(秋)计算机基础知识和应用能力等级考试上机试卷
二
文档评论(0)