2008年春上机试卷
6、为组合框控件的InterActiveChange事件设置代码，要求用一条命令来设置列表框的数据源，使得根据组合框中选择的学校，在列表框中显示毕业于该学校的教师工号（gh）和姓名（xm）。 7、设置表单的Destroy事件处理代码，其功能是关闭所有打开的表和临时表。 五、程序改错
下列程序用来产生30个0～100之间的随机整数，并且找出其中的最大偶数和最小奇数。要求：
①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 clear
dimension a(30) for i=1 to 30
a(i)=int(rand()*200) endfor mmax=-1 mmin=100
for i=1 to 30 ??str(a(i),3)
if mmax
if mmin>a(i) and mod(a(i),2)=1 mmin=a(i) endif endfor
?\最大偶数：\无\?\最小奇数：\无\
2008年春上机试卷
2008年(春)计算机二级VFP上机试卷(VFP04)
一、项目、数据库和表操作(12分)
打开T：盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。
1．按下列要求在数据库JXSJ中新建一个表名为AB的数据库表。 ⑴ 按下表所示创建AB表的表结构（包括字段的标题属性）； 字段名 标题 类型 长度 小数位数 XH 学号 C 10 XM 姓名 C 20 BWBZ 班委 L ZW 职务 C 20 ⑵ 为BWBZ字段设置默认值：.F.； ⑶ 为表设置有效性规则：当BWBZ的值为.T.时，ZW字段的值不能为空；
⑷ 为表创建一个普通索引abcd，要求将班委(BWBZ字段值为.T.)排在前面，非班委(BWBZ字段值为.F.)排在后面。
2．为学生（XS）表设置更新触发器：班级编号(BJBH字段)必须与入学日期(RXRQ字段)的年份保持一致。验证规则是：如果2004年入学，则班级编号以“04”开头，如果2005年入学，则班级编号以“05”开头，以此类推。
3．为KC表增加一个备注字段（字段名为BZ，类型为备注型），并为院系专业代码(YXZYDM字段)为空的记录赋值，BZ字段的值为“各专业的课时数相同”。
4．已知教师（JS）表和课程安排（KCAP）表存在相同的工号（GH）字段，以JS表为主表，KCAP表为子表，按GH建立永久关系，并且设置JS表和KCAP表之间的参照完整性：插入限制。 二、设计查询（8分）
已知课程安排（KCAP）表是用来存储各学期各班课程安排信息的表，其中含有学期编码（XQBM，C）、班级编号（BJBH，C）和课程代码(KCDM，C)等字段，课程（KC）表中含有课程代码（KCDM，C）和课程名称（KCMC，C）等字段，按如下要求修改JXGL项目中的查询CHAXUN：
基于KCAP表和KC表按统计班级同一门课程跨2个或2个以上学期教学的课程。要求输出字段为：BJBH、KCDM、KCMC、开课学期数，查询结果按课程代码排序。
三、设计菜单（5分）
JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项，按如下要求设计菜单，完成后的运行效果如图1所示。
1．在“文件”菜单栏下增加“屏幕设置”菜单项，并创建其子菜单“背景图案…”、“背景色…”；
2．为“背景图案…”菜单项添加过程代码； cF=GETFILE(“bmp.jpg”) _SCREEN.Picture=cF
3．为“背景色…”菜单设置命令：_SCREEN.BackColor=GETCOLOR()；
4．为“屏幕设置”和“退出菜单”菜单项之间插入分组线。 四、设计表单(10分)
表单F072G用于根据所输入的检索词在教材(JC)表中检索教材书目。按下列要求修改表单，修改后表单运行时如图2所示。
1．修改表单的有关属性，使其标题为“教材检索”，且运行时表单自动居中。
2．在表单上分别添加一个标签控件、文本框和命令按钮控件，且标签和命令按钮控件上显
2008年春上机试卷
示的文本分别为“检索词”和“检索”。
3．向表单的数据环境中添加教材(JC)表，并利用鼠标的拖放操作，将该表从数据环境设计器窗口拖放到表单上，以生成一个表格控件(如图2所示），然后将其DeleteMark和ReadOnly属性分别设置为.F.和.T.。
4．为“检索”命令按钮设置Click事件代码，其功能是根据文本框的值检索有关教材，例如在文本框中输入“思想”，则表格中仅显示教材名称(JCMC字段)中包含有“思想”的教材。要求利用两条命令实现功能：首先根据文本框的值对JC表记录进行筛选，然后刷新表单。 五、程序改错（5分）
20个人按已有的编号顺序围成一圈，1、2、3报到，报到3者出圈，并按出圈顺序给予一个新编号，程序算法：定义两个一维数组Old和New；Old的数组元素值为0表示对应的人已出圈，为1 表示仍然在列；New的数组元素存放对应已出圈的人的原编号。要求：
①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 DIMENSION Old(20), New(20) Old=1 CLEAR N=0
FOR i=1 TO 20 m=0
Do While m<3 n=n+1 if n>20 n=0 endif
m=Old(n) + m Endfor Old(n)=0 New(i)=n ENDFOR
Display memo like new
2008年春上机试卷
2008年(春)计算机二级VFP上机试卷(VFP05)
一、项目、数据库和表操作（12分）
打开T：盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1、按下列要求在数据库jxsj中信建一个表名为ab的数据库表。 （1）按下表所示创建ab表的表结构（包括字段的标题属性）：
字段名 xh xm csrq sg 标题 姓名 姓名 出生日期 身高 类型 C C D N 长度 10 20 6 小数位数 2 （2）为xh字段设置输入掩码，使之只能输入数字，不能出现字母或其它非数字字符； （3）为sg字段设置有效性规则：不小于100，且大于250；
（4）为表创建一个普通索引abcd，要求按csrq字段排序，相同时按sg字段排序。 2、为课程（kc）表设置插入触发器：如果课程类型（lx字段）为“通修课程”，则院系专业代码（yxzydm字段）为空，否则不为空。
3、为xs表增加一个备注字段（字段名为bz，类型为备注型），并为它赋值：若学生的籍贯（jg字段）不为“江苏”，则将bz字段的值置为“外省学生”。
4、已知课程（kc）表和教材（jc）表存在相同的课程代码（kcdm）字段，以kc表为主表，jc表为子表，按kcdm建立永久关系，并设置kc表和jc表之间的参照完整性：更新级联。 二、设计查询（8分）
已知课程安排（kcap）表是用来存储各学期各班教学课程安排信息的表，其中含有学期编码（xqbm，C）、班级编号（bjbh，C）、课程代码（kcdm，C）和教师工号（gh，C）等字段，课程（kc）表中含有课程代码（kcdm，C）、课程名称（kcmc，C）和课时数（kss，N）等字段。按如下要求修改jxgl项目中的查询chaxun：
基于kcap表和kc表查询学期编码为“2004-2005学年第1学期”的上课总课时超过10的教师清单。要求输出字段为：工号、上课总课时，查询结果按上课总课时降序排序。 三、设计菜单（5分）
JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项，按如下要求设计菜单，完成后的运行效果如图1所示。
1、创建“教材管理”菜单栏，并创建其子菜单“教材浏览”、“教材查询”。 图1 2、为“教材浏览”菜单项设置命令：SELECT * FROM jc。 3、在“教材浏览”和“教材查询”菜单项之间插入分组线。 四、设计表单
表单f072h用于用户登录。按下列要求修改表单，修改后表单运行时如图2所示。
1、修改表单的有关属性，使表单的标题为“登录”，且无最小化、最大化按钮。 2、分别添加标签控件、文本框控件和命令按钮（如图2所示），且标签控件的显示文本为“再次输入密码”，命令按钮控件上显示文本为“确定”、访问键为“ALT+Y”。
3、为输入密码的两个文本框控件设置PasswordChar属性值，使其在运行时输入的密码均显示为“*”。
图2
4、为添加的用于再次输入密码的文本框控件设置LostFocus事件处理代码，其功能是检查两次输入的密码是否相同：若两次输入的密码不同，则用MESSAGEBOX()函数显示提示信息“两次输
2008年春上机试卷
入的密码不同！”，然后将焦点定位到第一个密码输入文本框。要求用4行命令实现，这4行命令分别是IF…、=MESSAGEBOX()…、THISFORM…、和ENDIF。
5、为添加的命令按钮设置Click事件代码。要求用2条命令实现：首先将VFP主窗口（对象名为_SCREEN）的标题设置为用户名（即文本框Text1的值），然后关闭表单。 五、程序改错（5分）
下列程序的功能是：按图3所示显示杨辉三角型。杨辉三角型中某行的一个值表示二项式某一项的系数Cnm，计算公式是：Cnm=n!/(m!*(n-m)!)。注：INPUT命令的功能是从键盘接受输入的数据。要求：
①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
clear m=0
do while m<2
input \请输入杨辉三角形行数：\enddo m=m-1
?space(36)+\for i=1 to m csx=\
for j=1 to m
csx=csx+str(jc(i)/(jc(j)*jc(i-j)),4) endfor
?space(36-i*2)+csx endfor
***************** func jc para n x=0
for mm=1 to n x=x*mm endfor return x