2008年秋上机试卷
3、添加标签控件和一个命令按钮组控件，并按图2所示为命令按钮组设置有关属性。
4、为命令按钮组编写Click事件代码，要求：首先将表单新方法yyy程序代码复制过来，然后 在末尾添加一条命令，使标签控件显示被选中记录的学号（xh）。 五、程序改错（5分）
下列程序的功能是：第一个循环随机生成20个大写英文字母，并且存放到数组c中，第二个循环将数组c中20个元素排序（从小到大）。要求：
①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 clear n=20
dimension c(n) for i=1 to n
c(i)=chr(65+int(rand()*26)) endfor
Lcontinue=.f.
for i=1 to n-1 step 1 for j=n to i+1 step 1 if c(j) Lcontinue=.f. endif endfor if Lcontinue=.f. exit endif endfor display memo like c* 2008年秋上机试卷 2008年(秋)计算机二级VFP上机试卷(VFP03) 一、项目、数据库和表操作(12分) 打开T：盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1、将dmb中lx字段值为“文化程度”的记录复制到ab表中（注：可使用COPY TO…FOR…命令），并将ab表添加到jxsj数据库。在此基础上，根据下列要求修改ab表： （1）将ab表的dm字段名修改为whcd； （2）设置ab表的whcd字段的标题属性：文化程度； （3）设置mc字段格式，使得在该字段中输入数据时自动删除其前导空格； （4）创建一个主索引abcd，要求whcd字段值不能重复录入。 2、为文化程度（ab）表设置编辑说明（即表注释）：文化程度信息表。 3、为js表添加一个备注字段（字段名为bz，类型为备注型），并为其赋值：如果年龄大于或等于55，则bz字段的值为“老教师”。（注：教师的年龄为当前系统日期的年份减去出生日期的年份） 4、已知文化程度（ab）表和教师（js）表存在相同的文化程度字段（whcd）。以whcd为表达式，为教师表创建普通索引whcd，以ab表为主表、js表为子表，按文化程度代码建立永久关系，并且设置ab表和js表之间的参照完整性：更新级联。 二、设计查询（8分） 已知教师（js）表存储了每名教师的基本信息，其中含院系专业代码（yxzydm，C）、职称（zc，C）等字段，院系专业（yxzy）表为院系专业代码与院系专业名称对照表，含院系专业代码（yxzydm，C）、院系名称（yxmc，C）等字段。按如下要求修改jxgl项目中的查询chaxun： 基于js表和yxzy表统计各院系人数及职称为教授的人数。要求：输出院系名称、人数和教授人数（字段名依次分别为yxmc、rs和jsrs），且仅输出教授人数占院系人数的比例大于或等于20%的记录，查询结果按教授人数降序排序。 三、设计菜单（5分） jxgl项目中已存在菜单menu，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。按如下要求设计菜单，完成后的运行效果如图1所示。 图1 1、在“系统管理”菜单栏中插入VFP系统菜单“页面设置”，并将其访问键修改为P。 2、创建“教师管理”菜单栏，其访问键为T，并创建其子菜单“检索”、“统计”和“打印”，分组线如图所示。 3、为“打印”菜单项设置快捷键“CTRL+P”，为“统计”菜单项设置提示信息“统计教师人数”，并为“统计”菜单项设置命令，其功能是运行查询文件chaxun.qpr。 四、设计表单（10分） 表单f081b用于浏览表数据。按如下要求修改表单，修改后表单运行时如图2所示。 1、修改表单的有关属性，使其运行时自动居中。 2、将xs、cj、js、kc表添加到数据环境中。 3、在表单上添加一个选项按钮组和一个表格。 4、将表格下方左边的命令按钮换为标签控件。 5、使用生成器按图2所示修改选项按钮组的有关属性。 图2 2008年秋上机试卷 6、将选项按钮组的Value属性设置为“A”，并编写其Click事件代码，要求：第1条命令为c=THIS.Value；第2条命令的功能是将表格数据源属性设置为C；第3条命令按钮按图2所示设置标签控件的标题属性，显示被选中表的表名和“表浏览”信息。 五、程序改错（5分） 下列程序的功能是：比较两个字符串的差异，并将差异的位置显示出来。例如，C1=“AbCDEFGHTP”，C2=“ABCDETG大P”，则比较以后显示位置差异：2，6，8，9。要求： ①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改； ②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。 clear c1=\系统\c2=\数据库\n=max(len(c1),len(c2)) for i=1 to n str1=substr(c1,i,1) str2=substr(c2,i,1) if !str1==str2 if chr('str1')>127 ??i,i+1 endif ??i endif endif endfor 2008年秋上机试卷 2008年(秋)计算机二级VFP上机试卷(VFP04) 一、项目、数据库和表操作(12分) 打开E盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1. 按下列要求在数据库JXSJ中新建一个表名为AB的数据库表 （1）按下表所示创建AB表的表结构（包括字段的标题属性）： 字段名 标题 类型 宽度 小数位数 BH 编号 N 4 XM 姓名 C 20 BMRQ 报名日期 D KSRQ 考试日期 D （2）为表设置记录有效性规则：要求先报名、后考试； （3）为BH字段设置默认值：为当前记录号； （4）创建一个普通索引abcd，要求按BMRQ字段排序，BMRQ相同时按BH字段排序。 2. 为学生（XS）表设置插入触发器：班级编号（BJBH字段）的前两位必须为入学年份（来源于入学日期（RXRQ）字段。例如，2008年入学的学生BJBH必须以“08”开头）。 3. 为学生（XS）表增加一个是否转专业字段（字段名为ZZY，类型为逻辑型），并为其赋值：如果院系专业代码（YXZYDM字段）的前四位与学号（XH字段）中第3～6位不一致，则ZZY字段的值设置为.T.。 4. 已知课程（KC）表和课程安排（KCAP）表存在相同的课程代码（KCDM）字段，以KC表为主表，KCAP为子表，按KCDM建立永久关系，并设置KC表和KCAP表之间的参照完整性：更新级联、删除限制。 二、设计查询(8分) 已知教师（JS）表存储了每名教师的基本信息，其中含院系专业代码（YXZYDM，C）、性别（XB，C）等字段，院系专业（YXZY）表为院系专业代码与院系专业名称的对照，含有院系专业代码（YXZYDM，C）、院系名称（YXMC，C）等字段，按如下要求修改JXGL项目中的查询CHAXUN： 基于JS表和YXZY表统计各院系人数及男教师人数。要求：输出院系名称、人数和男教师人数（字段名分别为YXMC、RS和NAMES），且查询结果按男教师人数降序排列，输出去向为文本文件TEMP.TXT。 三、设计菜单(5分) JXGL项目中已存在菜单MENU，已定义了“系统管理”菜单栏及其中的“恢复系统菜单”菜单项。按如下要求设计菜单，完成后的运行效果如图1所示。 1. 在“系统管理”菜单栏中插入VFP系统菜单“导出”，并为其设置跳过条件：当前工作区无表打开时，该菜单跳过，即菜单项不可用（提示：使用ALIAS（）函数可以测试当前工作区中有无表打开）； 2. 创建“教师管理”菜单栏，其访问键为T，并创建其子菜单“录入”、“编辑”、“浏览”和“打印预览”，分组线如图1所示； 3. 为“打印预览”菜单项设置命令，其功能是预览报表文件RTEST。 图1 四、设计表单(10分) 表单F081B用于口令输入，按下列要求修改表单，修改后表单运行时如图2所示。 1. 将左边命令按钮的标题设置为“确定”，且2个命令按钮的TOP属性均设置为82。 2. 修改表单的有关属性，使其运行时自动居中，高度为120，宽度为280。 2008年秋上机试卷 3. 在表单上添加一个标签控件和一个文本框控件，并按图2所示设置标签和文本框控件的有关属性（文本框的“占位符”属性为“*”）。 4. 编写“确定”命令按钮的Click事件代码，其功能是利用IF…ELSE…ENDIF结构实现：若文本框的Value值等于“ABC”，则利用MESSAGEBOX（）函数显示“OK！”，否则显示“口令不正确！”。 五、程序改错(5分) 图2 下列程序的功能是：将二进制数字字符串转换成十进制数字符串（转换结果小数点后保持3位）。其基本算法是：将每一位二进制数字乘以其相应的权，并将乘积相加。二进制数字的权为： 012-1-2 以小数点为界，整数部分从右向左依次为2、2、2、……；小数部分从左到右依次为2、2、-3 2、……。要求：①将下列程序输入到项目的程序文件PCODE中，并对其中的2条错误语句进行修改；②在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句书目。 clear cstr=\ n=AT(\ cstr=iif(n=0,cstr+\ c1=substr(cstr,1,n-1) c2=substr(cstr,n+1) ?c1,c2 m1=0 m2=0 m=0 for i=1 to len(c1) m1=m1+val(left(right(c1,i),1))*2**(i-1) endfor for j=1 to len(c2) m2=m2+val(substr(c2,j,1))*2**(j) endfor m=m1+m2 ?'二进制数'+cstr+'十进制表示为：'+val(m,10,3)