2008年秋上机试卷
件的自动调整大小属性设置为.F.、高度设置为130、标题设置为变量CC的内容。
3．编写”水平”标签命令按钮Click事件代码，其功能是：将标签控件的自动调整大小属性设置为.T.、高度设置为20、标签控件标题属性为变量C的内容。
图2-1 图2-2
五、程序改错(5分)
完数是指数n的各因子(1视为因子，n不视为因子)之和正好等于该数本身，例如6为完数(因子为1、2、3，且1+2+3=6)。下列程序的功能是：找出1000之内所有完数，并将找出的完数及该数的所有因子输出。输出结果形式为：
6，1，2，3
28，1，2，4，7，14 要求：
①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 CLEAR
FOR i=1 to 1000 m=0 s= ‘’
For j=1 to i-1
if i/j = int(i/j) m = m + j
s = s + ‘,’ + j ENDIF ENDFOR IF i=m ? i ? s ENDIF ENDFOR
2009年春上机试卷
2009年(春)计算机二级VFP上机试卷(VFP01)
一、项目、数据库和表操作（12分）
打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1、在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名 数据类型 宽度 字段标题 Cdcs C 40 传递城市 Cdrq D 传递日期 Cdrs I 火炬手人数 Cdlxt G 传递路线图 （1）设置TAB表的注释：火炬传递城市信息表； （2）设置Cdrq字段的有效性规则及信息：传递日期必须在2008年8月8日前； （3）将Cdrs字段的默认值设置为100；
（4）按Cdcs字段创建主索引，索引名为abcd。 2、在TAB表中输入如下记录： Cdcs Cdrq Cdrs Cdlxt 南京 2008/05/27 208 （插入lxt.jpg文件） 3、设置CJ表的更新触发器，要求课程代码为“60023”的记录不允许修改 4、已知JS表已存在主索引gh，索引表达式为gh，KCAP表已存在普通索引gh，索引表达式为gh，以JS表为主表，KCAP表为子表按gh建立永久关系，并设置两表之间参照完整性：插入限制。
二、设计查询（8分）
已知教材（JC）表存储了教材的基本信息，其中包含出版社名称（CBSMC，C）、出版年月（CBNF，C）、定价（DJ，N，5，1）等字段。按如下要求修改JXGL项目中的查询CHAXUN：
基于JC表统计各出版社2000年以后（含2000年）出版的教材种数及平均定价。要求：输出出版社名称、教材种数、平均定价（字段名依次分别为CBSMC、JCZS和PJDJ），查询结果按教材种数排序，输出去向为屏幕（即主窗口）。（注：JC表中每一条记录为一种教材。） 三、设计菜单（5分）
JXGL项目中已存在菜单MENU，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。按如下要求设计菜单，完成后的运行效果如图1所示。 1、创建“教材信息”菜单栏，其访问键J，子菜单为“编辑”、“浏览”和“统计”，分组线如图1所示：
2、为“编辑”菜单项设置跳过条件，是该菜单项不可用； 3、为“统计”菜单创建子菜单“出版社”和“出版年月”；
4、为“出版社”菜单项设置快捷键CTRL+B，并为其设置过程代码：首先清除屏幕（即主窗口），然后运行查询文件CHAXUN.QPR。
图1
四、设计表单（10分）
表单F081E的功能是：用鼠标在表单上写汉字等操作。按下列要求修改表单，修改后表单运行如图2所示。
1、设置表单的有关属性，使其标题为“鼠标写字”，边框样式属性为“固定对话框”，背景
2009年春上机试卷
颜色为“黄色”。
2、如图2所示在表单的上部添加一个标签控件，用来显示鼠标的位置，并将其对象名修改为COORD，背景样式设置为“透明”。
3、在表单的下部添加一个文本框控件（对象名为Text1）和计时器控件（对象名为Timer1），并设置计时器控件的有关属性，使得表单运行时触发计时器事件的时间间隔为5秒。
4、编写计时器控件的Timer事件代码，实现在文本框中显示当前的系统日期和时间。
五、程序改错（5分） 图2
下列程序的功能是：删除字符串（不包括汉字）中的空格，并将它按字符从小到大的顺序排列以后输出。例如，字符串“B C efA”，输出结果为“ABCef”。要求：
①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 Clear
x=‘B C efA ’ y=’’
x=strtran(x,space(1),space(0)) n=Len(x)
Dimension A(n) for i=1 to n
A(i)=left(x,1) x=Substr(x,i) endfor =ASORT(A) for j=1 to n y=A(j)+y endfor ?y
2009年春上机试卷
2009年(春)计算机二级VFP上机试卷(VFP02)
一、项目、数据库和表操作（12分）
打开T：盘根目录中的项目文件jxgl，在该项目中已有一数据库jxsj。 1、在jxsj数据库中按如下表格中所示的结构创建tab.dbf表，并按表格后的要求设置相关属性。
字段名 cdcs bc xm jj 数据类型 C I C M 宽度 40 50 字段标题 传递城市 棒次 火炬手姓名 火炬手简介 （1）设置tab表的注释：火炬传递人员信息表；
（2）设置bc字段的有效性规则及信息：棒次必须在1至300之间！； （3）将bc字段的默认值设置为1；
（4）创建候选索引，索引名为abcd，要求按传递城市和棒次顺序排列。 2、在tab表中输入如下记录：
cdcs 南京 bc 1 xm 杨阳 jj 曾被誉为世界羽坛“四大天王”之首 3、修改jc表中的数据，将所有教材名称字段内容的两端加书名号“《》”，要求书名的最后一个字与右书名号“》”之间不允许留有空格。
4、设置jc表的删除触发器，要求只允许删除出版年份在2000年之前的记录。
5、已知yxzy表已存在主索引yxzydm，索引表达式为yxzydm，xs表已存在普通索引yxzydm，索引表达式为yxzydm，以yxzy表为主表，xs表为子表按yxzydm建立永久关系，并设置两表之间的参照完整性：更新级联。 二、设计查询（8分）
已知教材（jc）表存储了教材的基本信息，其中含出版社名称（cbsmc，C）、出版年份（cbnf，C）、定价（dj，N，5，1）等字段。按如下要求修改jxgl项目中的查询chaxun：
基于jc表统计各年份（cbnf字段的前6个字符）出版的教材种数及平均定价。要求：输出年份、教材种数、平均定价（字段名依次为NF、jczs和pjdj），查询结果按平均定价降序排列，且仅输出jczs大于或等于5的记录，输出去向为temp.txt文件。（注：jc表中每条记录为一种教材。） 三、设计菜单（5分）
jxgl项目中已存在菜单menu，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。按如下要求设计菜单，完成后的运行效果如图1所示。
图1
1、创建“教材管理”菜单栏，其访问键为B，子菜单为“修改”、“浏览”和“统计”，分组线如图1所示。
2、为“修改”菜单项设置跳过条件，使该菜单项不可用。 3、为“统计”菜单创建子菜单“出版社”和“出版年份”。 4、为“出版年份”菜单项设置快捷键“CTRL+Y”，并为其设置过程代码：首先运行查询文件chaxun.qpr，然后利用MESSAGEBOX（）函数显示提示信息“结果保存在temp.txt文件中”。 四、设计表单（10分）
2009年春上机试卷
表单F081F的功能是：通过连续播放BMP位图文件产生动画效果。按下列要求修改表单，修改后表单运行时如图2-1、图2-2所示。 1、设置表单的有关属性，使其标题为“播放动画”，且无最大化、最小化按钮。
2、在“播放”命令按钮下方添加一个命令按钮，其标题属性设置为“退出”，且编写其Click事件代码，其功能是释放表单。 图2-1 图2-2
3、完善“播放”命令按钮的Click事件代码，其功能是：单击该按钮则其标题在“播放”与“停播”之间切换（即播放动画时显示“停止”，停播时显示“播放”），并且如果单击的是“停止”按钮，则将计时器对象设置为不可使用。 五、程序改错（5分）
下列程序的功能是：删除字符串（不包括汉字）中的空格，并将它按字符从大到小的顺序排列以后输出。例如，字符串“AB C efa”，输出结果为“feCBAa”。要求：
①将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
clear
cstr=\?FC_order(x)
function FC_order() para x
x=strtran(x,space(1),space(0)) n=len(x) y=''
dimension a(n) for i=1 to n a(i)=subs(x,i,1) endfor =asort(a) for j=1 to n y=y+a(j) endfor return y