VFP2012q上机.doc

2012年秋 一、项目、数据库和表操作（12分）(VFP01)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题NOI届数JBGC20举办国JBCSC20举办城市NFC4举办年份（1）设置TAB表的注释：奥运举办历史表；（2）设置NF字段验证规则及信息：举办年份必须在1896年至2012年之间；（3）设置NO字段的默认值：表记录个数加1；1（4）按NO字段创建主索引，索引名为ABCD。2在TAB表中输入如下记录：NOJBGJBCSNF1希腊雅典18963根据成绩字段值修改CJB表中备注字段的数据：若成绩字段值为90100，则备注字段中写入“优秀”；成绩字段值为8089，则备注字段中写入“良好”；成绩字段值为7079，则备注字段中写入“及格”；成绩字段值为059，则备注字段中写入“不及格”。4设置CJ表的更新触发器，要求课程代码为“60023”的记录不允许修改。5已知JS表已存在主索引GH，索引表达式为GH；KCAP表已存在普通索引GH，索引表达式为GH。以JS表为主表、KCAP表为子表，基于GH索引建立永久关系，并设置两表之间的参照完整性：插入限制。*一、项目、数据库和表操作（12分）VFP02打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题CGMCC20场馆名称JJC100简介ZWSI座位数CGBZM场馆备注（1）设置TAB表的注释：奥运场馆表；（2）设置ZWS字段的默认值：80000；（3）设置JJ字段的验证规则及信息：不能为空字符串；（4）按CGMC字段创建主索引，索引名为ABCD。2在TAB表中输入如下记录：CGMCJJZWSCGBZ主体育场用于伦敦奥运会的开幕式、闭幕式和田径项目3修改JCB表中的数据，将出版年份（CBNF字段）修改为仅保留前4个字符。例如“2006年4月”修改为“2006”。4设置JC表的删除触发器，要求只允许删除出版年份在“2000”年以前的记录。5已知YXZY表已存在主索引YXZYDM，索引表达式为YXZYDM；XS表已存在普通索引YXZYDM，索引表达式为YXZYDM。以YXZY表为主表、XS表为子表，基于YXZYDM索引建立永久关系，并设置两表之间的参照完整性：删除限制。*一、项目、数据库和表操作（12分）(VFP03)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题ZBPDC5直播频道ZBSJT直播时间MIN3,0时长（分钟数）NRJJM内容简介（1）设置TAB表的注释：奥运节目直播时间表；（2）设置MI字段验证规则及信息：时长在30至300分钟之间；（3）设置ZBPD字段的默认值：CCTV5；（4）创建索引名为ABCD的普通索引，要求根据直播频道排序，相同时根据直播时间排序。2在TAB表中输入如下记录：ZBPDZBSJMINRJJCCTV52012/07/28 4:00 AM2102012伦敦奥运开幕式3修改JSB表中的数据，将“江苏”籍教师的籍贯（JG字段值）中的“江苏”删除掉。例如籍贯为“江苏南京”修改为“南京”。4设置JS表的更新触发器，将该表设置为不允许进行任何修改操作。5已知YXZY表已存在主索引YXZYDM，索引表达式为YXZYDM；XS表已存在普通索引YXZYDM，索引表达式为YXZYDM。以YXZY表为主表、XS表为子表，基于YXZYDM索引建立永久关系，并设置两表之间的参照完整性：插入限制。*一、项目、数据库和表操作（12分）(VFP04)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题BSXMC12比赛项目BSSJT比赛时间BSCDC20比赛场地BSXZC4比赛性质（1）设置TAB表的注释：奥运赛程信息表；（2）设置BSXZ字段的验证规则：比赛性质只能是“预赛”或“决赛”；（3）设置BSXZ字段的默认值：预赛；（4）创建普通索引，索引名为ABCD，要求按比赛时间和比赛项目排序。2在TAB表中输入如下记录：BSXMBSSJBSCDBSXZ男子110米栏2012/8/15 02:30:00 PM主体育场决赛3修改KCB表中的数据，要求在长度为4位的课程代码（KCDM）后补“0”字符。4设置KC表的更新触发器，要求只有课程代码长度为4位的记录才允许修改。5已知KC表已存在主索引KCDM，索引表达式为KCDM；JC表已存在普通索引KCDM，索引表达式为KCDM。以KC表为主表、JC表为子表，基于KCDM索引建立永久关系，并设置KC表和JC表之间的参照完整性：删除限制。*一、项目、数据库和表操作（12分）(VFP05)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题PMI排名GJC16国家或地区JPSI金牌数YPSI银牌数TPSI铜牌数（1）设置TAB表的注释：2012年奥运奖牌榜；（2）设置记录的验证规则，要求金银铜奖牌总数不超过200；（3）设置PM字段的默认值：记录个数加1；（4）按GJ字段创建候选索引，索引名为ABCD。2在TAB表中输入如下记录：PMGJJPSYPSTPS1中国454530353修改CJB表中的数据，按照成绩值设置备注字段内容，若成绩大于或等于90，则备注字段中设置“A”，若成绩大于或等于80且小于90，则备注字段设置为“B”，低于60分设置为“D”，其余设置为“C”。4设置XS表的更新触发器，要求入学日期为“2012/09/01”的学生记录才允许修改。5已知JS表已存在主索引GH，索引表达式为GH；KCAP表已存在普通索引GH，索引表达式为GH。以JS表为主表、KCAP表为子表，基于GH索引建立永久关系，并设置两个表之间的参照完整性：插入限制。*一、项目、数据库和表操作（12分）(VFP06)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1. 在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题XMMCC50项目名称JPC50金牌获得者YPC50银牌获得者TPC50铜牌获得者JSSJD决赛时间（1）设置TAB表的注释：奥运项目获奖者；（2）设置JSSJ字段验证规则及信息：决赛开始时间必须在8点至22点；（3）设置JSSJ字段的默认值为系统当前日期时间；（4）按JSSJ字段创建普通索引，索引名为ABCD。2. 在TAB表中输入如下记录：XMMCJPYPTPJSSJ女子10米气步枪易思玲波加茨喻丹2012-7-283. 修改CJB表中的数据，按照成绩值设置备注字段内容，若成绩大于或等于60，则备注字段中设置“合格”，否则备注字段设置为“不合格”。4. 设置XS表的更新触发器，要求该表数据只允许在上午8:00至下午5:00时间段内进行修改。5. 已知JS表已存在主索引GH，索引表达式为GH；KCAP表已存在普通索引GH，索引表达式为GH。以JS表为主表、KCAP表为子表，基于GH索引建立永久关系，并设置两个表之间的参照完整性：删除限制。* 20一、项目、数据库和表操作（12分）(VFP07)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题NON2，0届数NATIONC30举办国CITYC30举办城市HOSTYEARI举办年份（1）设置TAB表的注释：奥运会举办历史表；（2）设置HOSTYEAR字段的验证规则及信息：年份必须被4整除；（3）设置HOSTYEAR字段的默认值为当前年份；（4）创建索引名为ABCD的候选索引，要求按举办年份降序排序。2在TAB表中输入如下记录：NONATIONCITYHOSTYEAR29中国北京20083修改JCB表中的数据，将所有教材名称字段内容的两端加书名号“”，要求书名的最后一个字与右书名号“”之间不允许留有空格。4设置JC表的删除触发器，要求只允许删除出版年份在2005年之前的记录。5已知YXZY表已存在主索引YXZYDM，索引表达式为YXZYDM；XS表已存在普通索引YXZYDM，索引表达式为YXZYDM。以YXZY表为主表、XS表为子表，基于YXZYDM索引建立永久关系，并设置两表之间的参照完整性：更新级联。* 一、项目、数据库和表操作（12分）( VFP08)打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。1在JXSJ数据库中按如下表格中所示的结构创建TAB.DBF表，并按表格后的要求设置相关属性。 字段名数据类型宽度字段标题GJC18国家或地区JPSI金牌数YPSI银牌数TPSI铜牌数（1）设置TAB表的注释：奥运奖牌榜；（2）设置JPS字段的验证规则及信息：金牌数不超过200枚；（3）设置JPS字段的默认值：0；（4）创建索引名为ABCD的普通索引，要求按金、银、铜奖牌总数降序排序。2在TAB表中输入如下记录：GJJPSYPSTPS中国4250253彻底删除KCB表中课程代码为4位的所有课程。4设置DMB表的更新触发器，要求类型（LX）为“政治面貌”的记录不允许修改。5已知KC表已存在主索引KCDM，索引表达式为KCDM；JC表已存在普通索引KCDM，索引表达式为KCDM。以KC表为主表、JC表为子表，基于KCDM索引建立永久关系，并设置KC表和JC表之间的参照完整性：更新级联。* 二、设计查询（8分）(VFP01)已知在JXSJ数据库的学生（XS）表中含有学号（XH）、院系专业代码（YXZYDM）等字段；学生就业（XSJY）表中含有学号（XH）、就业类型（JYLX）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各院系专业04级（学号的前2位为“04”）学生的就业率，要求输出字段包括YXZYDM、就业率，输出结果按就业率排序。（注：假定XS表中某一学生的XH字段的值在XSJY表中出现，则表示该学生就业，否则表示未就业。提示：使用左联接，通过判断JYLX字段的值是否为NULL确定该学生是否就业。）*二、设计查询（8分）(VFP02)已知在JXSJ数据库的学生（XS）表中含有学号（XH）、性别（XB）、院系专业代码（YXZYDM）等字段；学生就业(XSJY)表中含有学号（XH）、就业类型（JYLX）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各院系专业04级（学号的前2位为“04”）男、女学生的就业率，要求输出字段包括YXZYDM、XB、就业率，输出结果按院系专业排序。（注：假定XS表中某一学生的XH字段的值在XSJY表中出现，则表示该学生就业，否则表示没有就业。提示：使用左联接，通过判断JYLX字段的值是否为NULL确定该学生是否就业。）*二、设计查询（8分）(VFP03)已知在JXSJ数据库的学生（XS）表中含有学号（XH），性别（XB）、院系专业代码（YXZYDM）等字段；学生就业（XSJY）表中含有学号（XH）、就业类型（JYLX）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各院系专业、各年级（学号的前2位代表年级）学生的不同就业类型的人数，要求输出字段包括YXZYDM、年级、就业类型、人数，输出结果按YXZYDM排序，YXZYDM相同时按年级排序。* 二、设计查询（8分）(VFP04)已知在JXSJ数据库的学生（XS）表中含有学号（XH），性别（XB）、院系专业代码（YXZYDM）、政治面貌代码（ZZMMDM）等字段；学生就业（XSJY）表中含有学号（XH）、就业类型（JYLX）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各院系专业基层就业（JYLX为“基层就业”）的学生人数及其中党员（ZZMMDM为“01”）所占比例，要求输出字段包括YXZYDM、基层就业人数、党员所占比例，输出结果按党员所占比例排序。*二、设计查询（8分）(VFP05)已知在JXSJ数据库的学生（XS）表中含有学号（XH）、院系专业代码（YXZYDM）等字段；学生就业（XSJY）表中含有学号（XH）、就业类型（JYLX）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各院系专业04级（学号的前2位为“04”）学生就业人数及其中基层就业（JYLX字段值为“基层就业”）人数，要求输出字段包括YXZYDM、就业人数、基层就业人数，输出结果按基层就业人数降序排序。* 二、设计查询（8分）(VFP06)已知在JXSJ数据库的学生（XS）表中含有学号（XH）、院系专业代码（YXZYDM）等字段；学生就业（XSJY）表中含有学号（XH）、单位（DW）、单位所在区域（DWSZQY）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各院系专业05级（学号的前2位为“05”）学生就业区域分布，要求输出字段包括YXZYDM、单位所在区域、就业人数，输出结果按YXZYDM排序，YXZYDM相同时按就业人数降序排序。* 二、设计查询（8分）(VFP07)已知在JXSJ数据库的学生（XS）表中含有学号（XH）、班级编号（BJBH）等字段；学生就业（XSJY）表中含有学号（XH）、单位（DW）、单位所在地（DWSZD）、试用期月工资（SYQYGZ）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各班级学生各地的就业人数及试用期平均月工资，要求输出字段包括班级编号、单位所在地、就业人数、试用期平均月工资，输出结果按班级编号排序，班级相同时按试用期平均月工资降序排序。*二、设计查询（8分）( VFP08)已知在JXSJ数据库的学生（XS）表中含有学号（XH）、性别（XB）等字段；学生就业（XSJY）表中含有学号（XH）、单位（DW）、单位所在区域（DWSZQY）、试用期月工资（SYQYGZ）等字段。按如下要求修改查询CHAXUN：基于XS表和XSJY表查询各区域男女学生就业分布情况及试用期平均月工资。要求：输出字段包括单位所在区域、性别、就业人数、试用期平均月工资，输出结果按单位所在区域排序，相同时按性别排序。 * *三、设计菜单（5分）(VFP01) 项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1为“系统管理”菜单栏设置访问键“S”。2增加“学生成绩管理”菜单栏及其子菜单“学生成绩录入”和“学生成绩查询”，菜单项之间设置分组线，并且设置快捷键CTRL+I和CTRL+Q。3为“学生成绩录入”菜单项设置过程：首先打开学生成绩表（CJB），然后在其中增加一条空记录，并以编辑方式显示该记录。4为“学生成绩查询”菜单项设置命令：运行根目录下的表单文件XSCJCX.SCX。图1*三、设计菜单（5分）(VFP02)项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1增加“学生成绩查询”菜单栏及其子菜单“考试成绩查询”和“补考成绩查询”，菜单项之间设置分组线，并且为“考试成绩查询”菜单项设置快捷键。2为“补考成绩查询”创建子菜单“补考人次查询”和“补考成绩查询”，并且设置访问键“R”和“G”。3为“考试成绩查询”菜单项设置命令：运行根目录下的表单文件XSCJCX.SCX。4为“补考人次查询”菜单项设置SELECT-SQL命令：查询学生成绩表（CJB）中每门课（KCDM）的补考人次（CJ小于60时需要补考）。图1*三、设计菜单（5分）(VFP03)项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1在“系统管理”菜单栏下插入系统菜单项“打开”。2增加“学生成绩管理”菜单栏及其子菜单“学生成绩录入”和“学生成绩查询”，菜单项之间设置分组线，并且为“学生成绩录入”菜单项设置快捷键CTRL+T。3为“学生成绩查询”菜单创建子菜单“考试成绩查询”和“已修学分查询”，并分别设置访问键“G”和“S”。4为“学生成绩录入”菜单项设置过程：在学生成绩表（CJB）中增加一条记录，该记录的学号（XH）为“040202001”，课程号（KCDH）为“60023”，成绩（CJ）为80，并在浏览窗口显示成绩表。图1*三、设计菜单（5分）(VFP04)项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1按图中所示为“系统管理”菜单栏设置访问键“S”。2增加“学生就业管理”菜单栏及其子菜单“学生就业指导”和“学生签约登记”，并且为“学生就业指导”创建子菜单“就业政策”和“办事流程”，菜单项之间设置分组线。3为“学生签约登记”菜单项设置过程：选择学生就业（XSJY）表（如果没有打开则打开XSJY表），然后在其中增加一条空记录，并在浏览窗口显示。（注：用USED函数判断表是否处于打开状态）图2*三、设计菜单（5分）(VFP05)项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1增加“学生就业指导”菜单栏及其子菜单“就业政策”、“面试技巧”和“职业规划网络学堂”，菜单项之间设置分组线。2为“职业规划网络学堂”菜单项设置命令：打开Mplayer媒体播放器。（注：使用RUN命令调用Windows下的Mplayer）3增加“下载中心”菜单栏和它的访问键“X”，并设置它的跳过条件：如当前目录中不存在XZZX.HTML文件，则该菜单栏不可用（即跳过）。（注：使用FILE()函数）图1*三、设计菜单（5分）(VFP06)项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1. 增加“学生档案管理”菜单栏及其子菜单“高考成绩查询”、“奖励和处分查询”、“成绩档案查询”，菜单项之间设置分组线，并且为“高考成绩查询”和“成绩档案查询”菜单设置快捷键CTRL+G和CTRL+C。2. 为“奖励和处分查询”菜单项设置跳过条件：该菜单项无条件跳过，即不可用。3. 为“成绩档案查询”菜单项设置过程：打开成绩（CJ）表并将主控索引设置为XH，然后在浏览器中浏览该表。图1*三、设计菜单（5分）(VFP07)JXGL项目中已存在菜单MENU，其中已定义了“系统管理”菜单栏及其中的“退出菜单”项。按如下要求修改菜单，完成后的运行效果如图1所示。 1增加“打印”菜单栏及其子菜单“学生表”、“成绩表”和“课程表”，菜单项之间设置分组线，并且为“打印”菜单栏设置访问键“P”。2为“学生表”菜单项设置过程：打开学生（XS）表，并设置学号（XH）为主控索引，在屏幕上列表显示学生表的所有记录。3将该菜单插入到系统菜单栏“工具”的前面。图1* 三、设计菜单（5分）( VFP08)项目JXGL中已存在菜单MENU，利用菜单设计器按如下要求修改菜单，完成后的运行效果如图1所示。1增加“学生就业管理”菜单栏及其子菜单“常规就业”、“基层就业”、“入伍”和“自主创业”，菜单项之间设置分组线，并且为“学生就业管理”菜单栏设置访问键“G”。2为“常规就业”创建子菜单“企业宣讲”、“招聘”、“签约流程”和“职业规划讲堂”。3为“职业规划讲堂”菜单项设置命令：打开Mplayer媒体播放器（注：使用RUN命令调用Windows下的Mplayer）。4设置“基层就业”菜单项的说明信息：大学生到村（社区）等地方任职。图1* 四、设计表单（10分）(VFP01)表单FRM12A用于显示代码表（DMB.DBF）。按下列要求修改表单，修改后表单运行时如图2所示。1. 设置表单的有关属性，使表单的标题为“代码”、图标为PC.ICO文件，并且表单无最大化和最小化按钮。2. 将表格控件设置为只读，且无水平滚动条。3. 在表格控件的左侧添加一个选项按钮组控件，并设置有关属性，使其有3个选项按钮，按钮的标题分别为“政治面貌”、“文化程度”和“民族”，选项按钮的Value属性值为“无”（即初始运行时无选项按钮选中）。4. 为选项按钮组编写InterActiveChange事件代码，其功能是根据选项控制表格中显示的数据。要求用3条语句实现：1）将选项按钮的Value属性值赋给变量x；2）根据选项（变量x的值）对DMB表进行筛选，仅显示lx为“政治面貌”、“文化程度”或“民族”的记录；3）刷新表单。图2*四、设计表单（10分）(VFP02)表单FRM12B用于显示代码表（DMB.DBF）。按下列要求修改表单，修改后表单运行时如图2所示。1. 设置表单的有关属性，使表单边框样式为固定对话框，且运行时自动居中。2. 设置表格控件的有关属性，使表格无删除标记列，且仅有垂直滚动条。3. 为选项按钮组编写InterActiveChange事件代码，其功能是根据选项控制表格中显示的数据。要求用2条语句实现：1）根据选项修改表格控件的数据源，使表格仅显示lx为“政治面貌”、“文化程度”或“民族”的记录；2）刷新表单。4. 在表格控件右下方添加一个命令按钮控件，然后设置有关属性使其无标题但显示由EXIT.ICO文件指定的图标，再编写其Click事件代码，其功能是关闭表单。图2*四、设计表单（10分）(VFP03)表单FRM12C用于计时。按下列要求修改表单，使表单运行时单击“计时开始”命令按钮后，表单如图2所示。1. 设置表单的有关属性，使表单的标题为“计时器”，且表单无控制按钮。2. 将Command1和Command2命令按钮的标题分别设置为“计时开始”和“计时结束”。3. 添加一个计时器控件，并将其Interval属性设置为500（即0.5秒）、Enabled属性设置为.F.（即停用计时器控件）。4. 为Command1命令按钮编写Click事件代码，要求使用2条语句实现：1）将当前日期与时间赋值给变量x（该变量在表单的Init事件代码中已设置为全局变量）；2）启用计时器控件。5. 为Command2命令按钮编写Click事件代码，其功能是：停用计时器控件。6. 为计时器控件编写Timer事件代码，其功能是：调用表单的xyz方法。图2*四、设计表单（10分）(VFP04)表单FRM12D用于2分钟倒计时。按下列要求修改表单，使表单运行时单击“开始”命令按钮后，表单如图2所示。1. 设置表单的有关属性，使表单无控制按钮，且运行时自动居中。2. 将Command1命令按钮的标题设置为“开始”，且命令按钮的访问键为“B”。3. 添加一个计时器控件，并将其Interval属性设置为500（即0.5秒）、Enabled属性设置为.F.（即停用计时器控件）。4. 为Command1命令按钮编写Click事件代码，要求使用2条语句实现：1）将当前日期与时间赋值给变量x（该变量在表单的Init事件代码中已设置为全局变量）；2）启用计时器控件。5. 将表单的xyz方法代码复制到计时器控件的Timer事件代码中，并修改该代码以实现倒计时的功能。修改代码的要求是：1）在第1条和第2条语句之间增加一条语句，使标签控件能显示剩余时间；2）在代码的最后增加语句，使剩余时间为0时计时器控件停用。图2*四、设计表单（10分）(VFP05)表单FRM12E用于显示系统已安装的各种字体的示例。按下列要求修改表单，修改后表单运行时如图2所示。1. 设置表单的有关属性，使表单无控制按钮、标题为“字体示例”，运行时自动居中。2. 添加一个列表框控件，并将其RowSourceType属性设置为“数组”。3. 为列表框控件编写Init事件代码，要求使用3条语句分别实现：1）定义一个数组x(1)；2）将系统字体名存放到数组x中（提示：使用语句“=AFONT（x）”）；3）将列表框控件的数据源设置为数组x。4. 为列表框控件编写InterActiveChange事件代码，要求使用2条语句分别实现：1）将标签控件Label1的字体设置为列表框中选中的字体；2）刷新表单。图2*四、设计表单（10分）(VFP06)表单FRM12F用于显示系统已安装的各种字体的示例。按下列要求修改表单，修改后表单运行时如图2所示。1. 设置表单的有关属性，使表单无最大化和最小化按钮、标题为“字体示例”、图标为PC.ICO文件。2. 添加一个组合框控件，并将其控件样式设置为“下拉列表框”、数据源类型设置为“数组”。3. 为组合框控件编写Init事件代码，要求使用3条语句分别实现：1）定义一个数组x(1)；2）将系统字体名存放到数组x中（提示：使用语句“=AFONT（x）”）；3）将组合框控件的数据源设置为数组x。4. 为组合框控件编写InterActiveChange事件代码，要求使用2条语句分别实现：1）将标签控件Label1的字体设置为列表框中选中的字体；2）刷新表单。图2* 四、设计表单（10分）(VFP07)表单FRM12G用于生成并显示10个随机数。按下列要求修改表单，修改后表单运行时如图2所示。1. 设置表单的有关属性，使表单标题为“随机数”、运行时表单自动居中，且表单的高度与宽度均为300。2. 向表单中添加一个列表框控件、一个命令按钮控件，并将命令按钮的标题设置为“生成随机数”。3. 为“生成随机数”命令按钮编写Click事件代码，其功能是自动生成10个随机数，并在列表框中显示这些数。要求：1）事件代码不超过4行语句；2）使用FOR ENDFOR循环语句控制10个随机数的生成与显示；3）使用RAND()函数生成随机数，且每个随机数保留小数8位。图2*四、设计表单（10分）( VFP08)表单FRM12H用于从XS表中随机抽取并显示10个学生的学号和姓名。按下列要求修改表单，修改后表单运行时如图2所示。1. 设置表单的有关属性，使表单标题为“抽选学生”、表单无最大化和最小化按钮，且表单的高度与宽度分别为300和400。2. 向表单的数据环境中添加XS表；向表单中添加一个列表框控件、一个命令按钮控件，并将命令按钮的标题设置为“抽选学生”。3. 为“抽选学生”命令按钮编写Click事件代码，其功能是从XS表中随机抽取10个学生，并在列表框中显示这些学生的学号和姓名。设置代码时有3点要求：一是事件代码只包含5行语句；二是使用FOR ENDFOR循环语句控制10个学生的抽选；三是使用表达式INT(RAND()*RECC()确定每次抽选学生的记录号。图2 *五、程序改错（5分）(VFP01)下列程序的功能是用数字19组成3个三位数（每个数字只能用一次），且每个三位数都是一个平方数。要求： 项目中有一个程序文件Pcode，将T盘中VFP01.TXT中的程序代码复制到其中并进行修改； 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。CLEARn=0FOR i=101 TO 999 &将3位不含数字0的平方数存放在数组中IF SQRT(i)=INT(SQRT(i) AND !0$STR(i)n=n+1DIME b(n)b(n)=STR(n,3)ENDIFENDFORFOR i=1 TO n-2FOR j=i TO n-1FOR k=j TO nc=B( i )+B( j )+B( k )FOR m=1 TO 9IF !STR(m,1)$cLOOPENDIFENDFORIF m9?三个3位的平方数为：, b( i ), b ( j ), b( k )ENDIFENDFORENDFORENDFOR *五、程序改错（5分）(VFP02)下列程序的功能是利用随机函数RAND()生成30个20200之间的不重复的整数，并且将它们存放到数组中。要求： 项目中有一个程序文件Pcode，将T盘中VFP02.TXT中的程序代码复制到其中并进行修改； 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。CLEARDIMENSION b(30)b=0FOR i=1 TO 30TF= .F. DO WHILE tfn= 20 +STR(RAND()*180) FOR j=1 TO iIF b(j)=ntf=.T.EXITENDIFIF j=itf=.F.b(i)=nENDIFENDFORENDDOENDFORDISP MEMO LIKE b*五、程序改错（5分）(VFP03)某人有5枚壹分的和4枚伍分的硬币，用这些硬币中的一枚或若干枚可以得到多少种不同的金额？下列程序的功能是列出不同金额的组合。要求： 项目中有一个程序文件Pcode，将T盘中VFP03.TXT中的程序代码复制到其中并进行修改； 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。CLEARDIME a(30)STORE 0 TO a; m ? 序号, 壹分, 伍分, 金额（分）FOR i=0 TO 5FOR j=0 TO 4IF i+j=0EXITENDIFs=i*1+j*5FOR n=1 TO m+1IF s=a(n)EXITENDIFENDFORIF nmm=m+1a(m)=s?m,i,j,sENDIFENDFORENDFOR*五、程序改错（5分）(VFP04)下列程序是统计字符串中大小写英文字符、汉字的个数。要求： 项目中有一个程序文件Pcode，将T盘中VFP04.TXT中的程序代码复制到其中并进行修改； 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。CLEARC=Visual FoxPro数据库教程CC=CSTORE 0 TO Nmax,Nmin,Nh &大写字符、小写字符和汉字计数DO WHILE LEN(C)0i=2DO CASECASE ASC(LEFT(C,1)64 AND ASC(LEFT(C,1)96 AND ASC(LEFT(C,1)127 Nh = Nh +1I=3ENDDO C=SUBS(C,i,1) ENDDOWAIT WIND “+CC+ ”中+chr(13)+大写字符的个数:+ str(Nmax,4);+chr(13)+小写字符的个数:+ str(Nmin,4)+chr(13) ;+汉 字 的 个 数:+ str(Nh,4)*五、程序改错（5分）(VFP05)下列程序用来产生10个3050之间的随机整数，并按值将其以从大到小的顺序存储在数组X中。要求： 项目中有一个程序文件Pcode，将T盘中VFP05.TXT中的程序代码复制到其中并进行修改； 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。DIMENSION x(10)x = 0FOR i = 1 TO 10 x(i) = INT(50-30)*RAND()+20) ENDFORFOR j = 1 TO