后表单运行时如图2所示。
1． 修改表单有关属性，使表单运行时自动居中，边框样式为“固定对话框”，标题为“查询”。 2． 修改下拉列表框的RowSource属性，使其下拉列表中显示MZ视图中的两列数据。
3． 在下拉列表框控件与表格控件之间添加一个标签控件，并将其对象名改为Lmz，显示文本为“所有民族”。 4． 设置表格控件的数据源，要求RecordSourceType属性为“别名”，RecordSource属性为JS表。
5． 为下拉列表框控件的InteractiveChange事件编写事件代码，其功能是根据下拉列表框中选择的值，修改标签Lmz的标题，并使表格中显示相应民族的教师数据。要求是：首先修改表单的UserMethod方法程序（完善一条命令、在空白处添加一条命令），然后在下拉列表框控件的InteractiveChange事件中调用该UserMethod方法。
6． 为“打印”命令按钮编写Click事件代码，要实现的功能是预览报表文件RTEST。
五、程序改错（5分）
下列程序的功能是：统计一个字符串中包含的汉字、英文字母及其它字符个数。要求： ① 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
c=\数据库
STORE 0 TO hz, yw, qt &&变量分别用于汉字、英文字母和其它字符计数 DO WHILE c >0 x=ASC(LEFT(c,1)) IF x>127 hz=hz+1 c=SUBS(c,3) ELSE IF x>64 AND x<91 OR x>96 AND x<123 yw= yw+1 ELSE qt=qt+1 ENDIF c=SUBS(c, 3) ENDIF ENDDO
WAIT WIND \汉字:\英文字母:\其它字符:\
VFP04
一、项目、数据库和表操作（12分）
开练习盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1． 按下列要求在数据库JXSJ中新建一个表名为AB的数据库表。 （1）按下表所示创建AB表的表结构（包括字段的标题属性）： 字段名 RQ BH XSSL KPSL 标题 日期 编号 销售数量 开票数量 类型 D C N N 长度 10 6 6 小数位数 0 0 （2）设置RQ字段的默认值：为系统当前日期；
（3）为表设置有效性规则：KPSL小于或等于XSSL；
（3）为表创建一个普通索引abcd，要求按RQ字段排序，相同时按BH字段排序。
2． 为教材（JC）表设置插入触发器：国际标准图书编号（ISBN字段）必须以“IS”开头，否则不允许插入。 3． 为成绩（CJ）表增加一个平时成绩字段（字段名为PSCJ），其类型和宽度与成绩（CJ）字段相同，并将所有记录的PSCJ置为85。
4． 已知教师（JS）表和课程安排（KCAP）表存在相同的工号（GH）字段，以JS表为主表，KCAP表为子表，按GH建立永久关系，并设置JS表和KCAP表之间的参照完整性：删除限制。
5
二、设计查询（8分）
已知课程安排（KCAP）表是用来存储各学期各班教学课程安排信息的表，其中含有学期编码（XQBM，C）、班级编号（BJBH，C）和课程代码（KCDM，C）等字段，课程（KC）表中含有课程代码（KCDM，C）、课程名称（KCMC，C）和课时数（KSS，N）等字段。按如下要求修改JXGL项目中的查询CHAXUN：
基于KCAP表和KC表统计班级编号为“040202”班每学期的开课门数和总课时数。要求输出字段为：学期编码、开课门数、总课时数，查询结果按学期编码排序。
三、设计菜单（5分）
JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，完成后的运行效果如图1所示。
1． 创建“运行”菜单栏，并创建其子菜单项“PRG程序”和“表单程序…”； 2． 将菜单项“PRG程序”中的“P”字母设置为访问键“ALT + P”； 3． 在菜单项“PRG程序”和“表单程序…”之间插入分组线。 4． 指定“表单程序…”菜单执行命令：DO FORM ?。 四、设计表单（10分）
表单F072B用于根据所选择民族，显示所选民族的教师工号（gh）与姓名（xm），其数据源为数据库中的视图MZ和表JS。按下列要求修改表单，修改后表单运行时如图2所示。
1． 修改表单的有关属性，使表单运行时自动居中。
2． 修改下拉列表框的有关属性，使其下拉列表中显示MZ视图中的两列数据。
3． 设置表格控件的数据源，要求RecordSourceType属性为“SQL说明”，RecordSource属性值设置为“SELECT gh, xm FROM js INTO CURSOR temp”。
4． 在表格控件上面添加一个文本框控件，将其对象名改为Tmz，Value属性值为“所有民族”，且将该控件设置为不能响应用户引发的事件。
5． 为下拉列表框控件的InteractiveChange事件编写事件代码，其功能是根据下拉列表框中的选择（所选民族）控制文本框Tmz的Value属性值和表格中显示的数据。要求是：用两条命令分别设置文本框Tmz的Value属性值和表格的RecordSource属性值。
6． 修改表单上的命令按钮控件，将其标题改为“退出”，访问键为ALT+X。
五、程序改错（5分）
下列程序是对“.86*75*85*87*67*78.32.70*81*90.80*84*81”密码进行解码，规则是：\号后的两位数字作为ASCII码转换为字符，\号后的两位数字加30作为ASCII码转换为字符，例如，将\解码为：\。要求：
① 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
m=SPACE(0)
STORE \ TO c, cc DO WHILE LEN(c)>0
d=LEFT(c, 1) c=SUBS(c, 2) n=0 IF d=\
6
m=m+CHR(VAL(LEFT(c, 2))) m=m+CHR(VAL(LEFT(c, 2))+30)
ELSE ENDDO c=SUBS(c, 2)
ENDDO
WAIT WINDOW cc+\解密后的代码为：\
VFP05
一、项目、数据库和表操作（12分）
打开练习盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1． 按下列要求在数据库JXSJ中新建一个表名为AB的数据库表。 （1）按下表所示创建AB表的表结构（包括字段的标题属性）： 字段名 XH TSBH JYRQ YQTS 标题 学号 图书编号 借阅日期 逾期天数 类型 C C D N 长度 10 20 3 小数位数 0 （2）设置TSBH字段的格式属性，使之在输入时字母均转变为大写字母； （3）为JYRQ字段设置有效性规则：借阅日期不允许在当前系统日期之后；
（4）为表创建一个普通索引abcd，要求按XH字段排序，相同时按JYRQ字段排序。 2． 为教材（JC）表设置插入触发器：单价（DJ字段）超过30元的不允许插入。
3． 针对成绩（CJ）表，根据成绩（CJ）字段的值修改备注（BZ）字段的值：CJ大于或等于85，BZ字段的值为“优”。
4． 已知院系专业信息（YXZY）表和学生（XS）表存在相同的院系专业代码（YXZYDM）字段，以YXZY表为主表、XS表为子表，按YXZYDM 建立永久关系，并设置YXZY表和XS表之间的参照完整性：插入限制。 二、设计查询（8分）
已知课程（KC）表中含有课程代码（KCDM，C）、课程名称（KCMC，C）等字段，在成绩（CJ）表中含有学生的学号（XH，C）、成绩（CJ，N）、课程代码（KCDM，C）等字段，按如下要求修改JXGL项目中的查询CHAXUN：
基于KC表和CJ表统计各门课程的学习人数、平均分。查询的输出字段为：KCDM、KCMC、学习人数、平均分，要求统计结果中仅包含平均分在75（含75）以上的那些课程，且按平均分降序排序。 三、设计菜单（5分）
JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，完成后的运行效果如图1所示。
1． 在“文件”菜单栏下创建“新建…”子菜单项； 2． 在“文件”菜单栏下插入系统菜单“打开”；
3． 在菜单项“打开”和“退出菜单”之间插入分组线。
4． 为菜单项“退出菜单”设置快捷键“CTRL+X”和状态栏提示信息“恢复系统菜单”。
四、设计表单（10分）
表单F072C用于根据所选择课程，显示学生的考试成绩。按下列要求修改表单，修改后表单运行时如图2所示。
1． 修改表单的有关属性，使表单无最大化、最小化按钮，图标为PC.ICO文件。
7
2． 修改组合框的InteractiveChange事件代码，其功能是：根据组合框中选择的课程，表格中显示相应课程的成绩（要求：在原代码的倒数第2行增加一条SET命令来实现）。
3． 修改表格的有关属性，使其无水平滚动条，无删除标记列，且表格中的数据只读。 4． 删除表单上的复选框控件。
5． 修改表单的ForSave方法程序代码，要求在原代码之后增加一条命令，其功能是：将当前工作区中打开的表复制到一个新文件中，且新文件的文件名由cFile变量指定，新文件类型为.XLS。
6． 添加一个命令按钮，标题为“保存”、访问键为ALT+S（如图2所示），并设置其Click事件处理代码，其功能是调用表单的ForSave方法程序。
五、程序改错（5分）
下列程序的功能是：找出3000以内的亲密数对。所谓“亲密数对”是指一对正整数A和B，A的所有小于A的因子（1视为因子）之和等于B，B的所有小于B的因子（1视为因子）之和等于A。第一个循环将1～3000个数的“因子和”存放到一维数组Arr中，例如Arr(20)存放的是数20的具上述含义的所有因子之和。第二个循环是基于数组Arr找出亲密数对。要求：
① 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
DIMENSION Arr(3000) FOR i=1 TO 3000 Myzh=0
FOR j=1 TO i
Myzh=Myzh+IIF(MOD(i, j)=0, j, 0)
ENDFOR Arr(i)=Myzh ENDFOR
FOR i=1 INTO 3000 a=i b=Arr(i)
IF a
?a, b ENDIF
ENDFOR
VFP06
一、项目、数据库和表操作（12分）
打开练习盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1． 按下列要求在数据库JXSJ中新建一个表名为AB的数据库表。 （1）按下表所示创建AB表的表结构（包括字段的标题属性）： 字段名 XH TSBH JYRQ HSRQ 标题 学号 图书编号 借阅日期 还书日期 类型 C C D D 长度 10 20 小数位数 （2）为表设置有效性规则：还书日期（HSRQ字段）必须在借阅日期（JYRQ字段）之后，至少在同一天； （3）为JYRQ字段设置默认值：等于当前系统日期；
（4）为表创建一个普通索引abcd，要求按XH字段排序，相同时按借阅天数排序（借阅天数为HSRQ与JYRQ之差）。
2． 为成绩（CJ）表设置更新触发器：成绩（CJ字段）必须大于或等于0，且小于或等于100。 3． 为教师（JS）表增加一个工龄字段（字段名为GL，类型为整型），并为它赋值：工龄等于当前系统日期的
8
年份减去工作日期（GZRQ字段）的年份。
4． 已知院系专业信息（YXZY）表和JS表存在相同的院系专业代码（YXZYDM）字段，以YXZY表为主表、JS表为子表，按YXZYDM 建立永久关系，并设置YXZY表和JS表之间的参照完整性：更新级联。
二、设计查询（8分）
已知课程（KC）表中含有课程代码（KCDM，C）、课程名称（KCMC，C）等字段，在成绩（CJ）表中含有学生的学号（XH，C）、成绩（CJ，N）、课程代码（KCDM，C）等字段，按如下要求修改JXGL项目中的查询CHAXUN：
基于KC表和CJ表统计所有课程的学习人数、平均分，查询的输出字段为：KCDM、KCMC、平均分。要求统计结果中包含KC表中的所有课程，若CJ表中无某课程相关学生的成绩记录，则该课程的 “平均分”显示为NULL值；统计结果按平均分降序排序,相同时按课程代码升序排序。（提示：使用左联接。） 三、设计菜单（5分）
JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，完成后的运行效果如图1所示。
1． 创建“教学管理”菜单栏，并创建其子菜单“课程”、“教师”和“学生”； 2． 设置“课程”菜单项的热键“ALT+K”；
3． 为“课程”菜单项设置SELECT-SQL命令，以显示KC表中的所有数据； 4． 为 “学生” 菜单项设置快捷键“CTRL+T”。
四、设计表单（10分）
表单F072D用于根据所选择的数据库表，显示其结构信息（标题、字段名和数据类型）。按下列要求修改表单，修改后表单运行时如图2（a）所示，选择JS表后如图2（b）所示。
1． 将表单的标题修改为“查看表结构”，且表单运行时自动居中。 2． 如图2所示，在表单上添加一个列表框控件（ListBox），且要求其对象名为List1，高度为200，宽度为260。 3． 修改表单的DisplayTS方法程序代码，要求在原代码的“ENDFOR”前一行增加一条命令，其功能是将变量cItem的值添加到列表框中。
4． 修改表单上的命令按钮，要求其标题为“选择数据库表”，访问键为ALT+S，其大小为自动调整，并设置其Click事件处理代码，要求利用2条命令实现：先清除列表框中的内容（提示：调用列表框的Clear方法），然后调用表单的DisplayTS方法。
五、程序改错（5分）
下列程序是将\编成密码，规则是：对其中的小写字母，用该字母的ASCII码减 30代替原字母，且前面加星号（*）； 大写字母或其它符号用其ASCII码代替，且前面加点号（.），例如字符串“A bc”（4个字符）的密码为“.65.32*68*69”。要求：
① 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句进行修改； ② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。
9