[教育学]二级vfp上机答案

二级上机考试,（30 34）,第34次上机考试,1号区,2号区,34.1.2编写程序（文件名：abc1.PRG）,select 2use chengjiselect 1use xuesheng,打开表,数据处理统计，修改,do while !eof() select 2 average 成绩 to pj for 学号=a.学号 select 1 replace 平均分 with pj skipenddo,1.根据chengji.dbf表中学生选课成绩，计算每个学生的平均分，并将之填充到xuesheng.dbf表中相应记录的平均分字段；,数据显示,2.输出填充了平均分的xuesheng.dbf表中数据，输出格式如下：,list off,关闭表,close tables,clearset talk offset safety offselect 2use chengjiselect 1use xueshengdo while !eof() select 2 average 成绩 to pj for 学号=a.学号 select 1 replace 平均分 with pj skipenddolist offclose tables,abc1.PRG,34.1.3表单设计（文件名：form1.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,34.2.2编写程序（文件名：abc2.PRG）,select 1use zg,打开表,数据处理（1）修改,replace all 工资总额 with 基本工资*1.05+奖金,1.每人基本工资上调5%后计算其工资总额；,数据处理（2）查询，显示,2.输入职工号进行查找，如果找到，则显示其姓名，基本工资，奖金，工资总额，否则显示“无此人信息！”。界面如图所示：,accept 请输入要查找的职工号： to zghlocate for 职工号=zghif found() ? *查询结果* ? 职工号：, zgh ? 姓名 基本工资 奖金 工资总额 ? 姓名, 基本工资, 奖金, 工资总额else ? 无此人信息！endif,关闭表,close tables,clearset talk offset safety offselect 1use zgreplace all 工资总额 with 基本工资*1.05+奖金accept 请输入要查找的职工号： to zghlocate for 职工号=zghif found() ? *查询结果* ? 职工号：, zgh ? 姓名 基本工资 奖金 工资总额 ? 姓名, 基本工资, 奖金, 工资总额else ? 无此人信息！endifclose tables,abc2.PRG,34.2.3表单设计（文件名：form2.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,子表：1号区,父表：2号区,34.3.2编写程序（文件名：abc3.PRG）,select 1use 成绩index on 学号 tag xhreplace all 平均分 with (英语+计算机)/2select 2use 学生set relation to 学号 into a,打开表，索引，关联，修改,1.利用成绩.dbf的英语和计算机成绩计算平均分。,数据处理（1）显示,2.显示如下信息。,list fields 学号, 姓名, a.英语, a.计算机, a.平均分,数据处理（2）查询，显示,3.从键盘输入学号，查询该学生的如下信息。要求程序能多次查询，按Q键退出查询。如果找不到该学生，显示“查无此人！”。,do while .T. accept 请输入学号： to xh if upper(xh)=Q exit endif locate for 学号=xh if found() ? 学号 姓名 系别 英语 计算机 平均分 ? 学号, 姓名, 系号, a.英语, a.计算机, a.平均分 else ? 查无此人！ endifenddo,关闭表,close tables,clearset talk offset safety offselect 1use 成绩index on 学号 tag xhreplace all 平均分 with (英语+计算机)/2select 2use 学生set relation to 学号 into alist fields 学号, 姓名, a.英语, a.计算机, a.平均分do while .T. accept 请输入学号： to xh if upper(xh)=Q exit endif locate for 学号=xh if found() ? 学号 姓名 系别 英语 计算机 平均分 ? 学号, 姓名, 系号, a.英语, a.计算机, a.平均分 else ? 查无此人！ endifenddoclose tables,abc3.PRG,34.3.3菜单设计（文件名：menu3.MNX）,创建菜单,设置菜单,生成菜单程序,编写菜单调用程序代码,子表：2号区,父表：1号区,34.4.2编写程序（文件名：abc4.PRG）,select 2use 分类index on 分类编码 tag bmselect 1use 商品set relation to 分类编码 into b,打开表，索引，关联,数据处理查询，显示,1.通过“分类编码”来查询“商品名称”，“分类名称”、“进货日期”与“进货价格”等信息。 2.查询信息输出界面如下所示：,accept 请输入查询商品的分类编码： to bmlocate for 分类编码=bm? *查询结果*? 商品名称 分类名称 进货日期 进货价格? *do while found() ? 商品名称, b.分类名称, 进货日期, 进货价格 continueenddo,关闭表,close tables,clearset talk offset safety offselect 2use 分类index on 分类编码 tag bmselect 1use 商品set relation to 分类编码 into baccept 请输入查询商品的分类编码： to bmlocate for 分类编码=bm? *查询结果*? 商品名称 分类名称 进货日期 进货价格? *do while found() ? 商品名称, b.分类名称, 进货日期, 进货价格 continueenddoclose tables,abc4.PRG,34.4.3表单设计（文件名：form4.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,父表：1号区,子表：2号区,34.5.2编写程序（文件名：abc5.PRG）,select 2use daodaindex on 票号 tag phselect 1use fahuoset relation to 票号 into b,打开表，索引，关联,数据处理（1）修改,replace all 货运费 with b.里程km*b.重量kg*0.15,1.利用daoda.dbf中的“重量”和“里程”计算fahuo.dbf中的“货运费”。（货运费=里程*重量*0.15）,数据处理（2）查询，显示,2.从键盘输入票号，查询该票号的信息。要求能多次查询，如果找不到票号信息，提示“查无此票号！”信息。,do while .T. accept 请输入查询票号： to ph if upper(ph)=Q exit endif locate for 票号=ph if found() ? *查询票号信息* ? 票号 货物名 发货日期 到达日期 货运费（元） ? - ? 票号, b.货物名, 发货日期, b.到达日期, 货运费 else ? 查无此票号！ endifenddo,关闭表,close tables,clearset talk offset safety offselect 2use daodaindex on 票号 tag phselect 1use fahuoset relation to 票号 into breplace all 货运费 with b.里程km*b.重量kg*0.15do while .T. accept 请输入查询票号： to ph if upper(ph)=Q exit endif locate for 票号=ph if found() ? *查询票号信息* ? 票号 货物名 发货日期 到达日期 货运费（元） ? - ? 票号, b.货物名, 发货日期, b.到达日期, 货运费 else ? 查无此票号！ endifenddoclose tables,abc5.PRG,34.5.3表单设计（文件名：form5.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,34.5.3表单设计（文件名：form5.SCX）,创建数据库、视图,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,1号区,2号区,34.6.2编写程序（文件名：abc6.PRG）,select 2use stock_csselect 1use stock_mmindex on 股票代码 tag gpdm,打开表，索引,数据处理修改，显示,1.stock_cs.dbf为空表，只有结构；根据stock_mm.dbf种数据，填写stock_cs.dbf，注：买卖标记为.T.表示买入，.F.表示卖出。2.输出stock_cs.dbf表填充后的情况，输出格式如下：,do while !eof() if 买卖标记 if 股票代码=b.股票代码 replace b.买入次数 with b.买入次数+1, b.最高价 with max(单价, b.最高价) else append blank in 2 replace b.股票代码 with 股票代码, b.买入次数 with 1, b.最高价 with 单价 endif endif skipenddoselect 2list off,关闭表,close tables,clearset talk offset safety offselect 2use stock_csselect 1use stock_mmindex on 股票代码 tag gpdmdo while !eof() if 买卖标记 if 股票代码=b.股票代码 replace b.买入次数 with b.买入次数+1, b.最高价 with max(单价, b.最高价) else append blank in 2 replace b.股票代码 with 股票代码, b.买入次数 with 1, b.最高价 with 单价 endif endif skipenddoselect 2list offclose tables,abc6.PRG,34.6.2编写程序（文件名：abc6.PRG）,打开表，数据处理,1.stock_cs.dbf为空表，只有结构；根据stock_mm.dbf种数据，填写stock_cs.dbf，注：买卖标记为.T.表示买入，.F.表示卖出。2.输出stock_cs.dbf表填充后的情况，输出格式如下：,SELECT Stock_mm.股票代码, count(*) as 买入次数,; max(Stock_mm.单价) as 最高价; FROM stock_mm; WHERE Stock_mm.买卖标记; GROUP BY Stock_mm.股票代码; INTO TABLE stock_cs.dbfselect stock_cslist off,关闭表,close tables,clearset talk offset safety offSELECT Stock_mm.股票代码, count(*) as 买入次数,; max(Stock_mm.单价) as 最高价; FROM stock_mm; WHERE Stock_mm.买卖标记; GROUP BY Stock_mm.股票代码; INTO TABLE stock_cs.dbfselect stock_cslist offclose tables,abc6.PRG,34.6.3表单设计（文件名：form6.SCX）,创建菜单,生成菜单程序,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,第33次上机考试,子表：2号区,父表：1号区,33.1.2编写程序（文件名：abc1.PRG）,select 2use 学生index on 学号 tag xhselect 1use 成绩set relation to 学号 into b,打开表，索引，关联,数据处理（1）修改,replace all 成绩 with 成绩*1.15 for 课程名=Access程序设计,将课程为“Access程序设计“的成绩提高15%。,数据处理（2）查询，显示,通过输入“学号”查询学生的信息，即：学号、姓名、课程名、成绩、学院等资料。若没找到，显示“数据表中没有查到此人信息！”。界面舅图所示：,accept 请输入查询的学号： to xhlocate for 学号=xhif found() ? *查询结果* ? 学号 姓名 课程名 成绩 学院 do while found() ? 学号, b.姓名, 课程名, 成绩, b.学院 continue enddo ? *else ? 数据表中没有查到此人信息！endif,关闭表,close tables,clearset talk offset safety offselect 2use 学生Index on 学号 tag xhselect 1use 成绩set relation to 学号 into breplace all 成绩 with 成绩*1.15 for 课程名=Access程序设计accept 请输入查询的学号： to xhlocate for 学号=xhif found() ? *查询结果* ? 学号 姓名 课程名 成绩 学院 do while found() ? 学号, b.姓名, 课程名, 成绩, b.学院 continue enddo ? *else ? 数据表中没有查到此人信息！endifclose tables,abc1.PRG,33.1.3表单设计（文件名：form1.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,33.1.3表单设计（文件名：form1.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,子表：2号区,父表：1号区,33.2.2编写程序（文件名：abc2.PRG）,select 2use yyuindex on 学号 tag xhreplace all 平均分 with (笔试+听力)/2select 1use kshset relation to 学号 into b,打开表，索引，关联，修改,计算并填写“yyu.dbf”的平均；,数据处理修改，显示,填写ksh.dbf中的“评语”字段值。其中：当平均分=90，评语为“优”； 当平均分=80，评语为“良”； 当平均分=70，评语为“中”。查询输入格式如下：,do while !eof() do case case b.平均分=90 replace 评语 with 优 case b.平均分=80 replace 评语 with 良 case b.平均分=70 replace 评语 with 中 endcase skipenddobrowse fields 学号, 姓名, b.笔试, b.听力, b.平均分, 评语,关闭表,close tables,clearset talk offset safety offselect 2use yyuindex on 学号 tag xhreplace all 平均分 with (笔试+听力)/2select 1use kshset relation to 学号 into bdo while !eof() do case case b.平均分=90 replace 评语 with 优 case b.平均分=80 replace 评语 with 良 case b.平均分=70 replace 评语 with 中 endcase skipenddobrowse fields 学号, 姓名, b.笔试, b.听力, b.平均分, 评语close tables,abc2.PRG,33.2.3表单设计（文件名：form2.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,33.2.3表单设计（文件名：form2.SCX）,创建数据库、视图,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,子表：2号区,父表：1号区,33.3.2编写程序（文件名：abc3.PRG）,select 2use 商品index on 商品号 tag sphselect 1use 订单set relation to 商品号 into b,打开表，索引，关联,数据处理（1）修改,replace all 总金额 with b.单价*数量,计算订单的总金额（总金额=单价*数量），填入“订单.dbf”的“总金额”字段中。,数据处理（2）修改，显示,按订单号查询该商品名、单价、数量和总金额。要求能反复查询。直到用户不再查询为止。界面如下图所示：,请输入订单号：0002=查询结果=商品名称 单价 数量 总金额计算机操作系统 31.00 2 62.00继续查询吗？（y/n）n,do while .T. accept 请输入订单号： to ddh locate for 订单号=ddh ? =查询结果= ? 商品名称 单价 数量 总金额 do while found() ? b.商品名, b.单价, 数量, 总金额 continue enddo wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endifenddo,关闭表,close tables,clearset talk offset safety offselect 2use 商品index on 商品号 tag sphselect 1use 订单set relation to 商品号 into breplace all 总金额 with b.单价*数量do while .T. accept 请输入订单号： to ddh locate for 订单号=ddh ? =查询结果= ? 商品名称 单价 数量 总金额 do while found() ? b.商品名, b.单价, 数量, 总金额 continue enddo wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endifenddoclose tables,abc3.PRG,33.3.3菜单设计（文件名：menu3.MNX）,创建菜单,设置菜单,编写菜单代码,生成菜单程序,33.4.3表单设计（文件名：form4.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,33.5.2编写程序（文件名：abc5.PRG）,use cj5,打开表,数据处理 统计，显示,1. 从键盘上输入查询的学号，能查询该同学的学号、平均成绩2. 程序要求能反复查询输出，其输出格式如下：。,do while .T. accept 请输入查询的学号： to xh average 成绩 to pj for 学号=xh ? 学号：, xh, 平均成绩：, pj wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endifenddo,关闭表,close tables,clearset talk offset safety offuse cj5do while .T. accept 请输入查询的学号： to xh average 成绩 to pj for 学号=xh ? 学号：, xh, 平均成绩：, pj wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endifenddoclose tables,abc5.PRG,33.5.3表单设计（文件名：form5.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,第32次上机考试,32.1.2编写程序（文件名：abc1.PRG）,use 成绩,打开表,数据处理（1）修改,replace all 总成绩 with 平时成绩*0.2+考试成绩*0.8,以平时成绩20%、考试成绩80%的比例填入总成绩；,数据处理（2）修改,确定等级并填入等级字段。等级评定办法是：90分以上为优，75-89为良，60-74为及格，60分以下为不及格；如图所示：,go topdo while !eof() do case case 总成绩=90 replace 等级 with 优 case 总成绩=75 replace 等级 with 良 case 总成绩=60 replace 等级 with 及格 otherwise replace 等级 with 不及格 endcase skipenddobrowse,关闭表,close tables,clearset talk offset safety offuse 成绩replace all 总成绩 with 平时成绩*0.2+考试成绩*0.8go topdo while !eof() do case case 总成绩=90 replace 等级 with 优 case 总成绩=75 replace 等级 with 良 case 总成绩=60 replace 等级 with 及格 otherwise replace 等级 with 不及格 endcase skipenddobrowseclose tables,abc1.PRG,32.1.3表单设计（文件名：form2.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,子表：2号区,父表：1号区,32.2.2编写程序（文件名：abc2.PRG）,select 2use cjindex on 学号 tag xhselect 1use xsset relation to 学号 into b,打开表，索引，关联,数据处理（1）修改,replace all 平均 with (b.数学+ b.英语+ b.计算机)/3,计算表“CJ.DBF”中数学、英语和计算机三科的平均成绩，填入“XS.DBF”的“平均”字段。,数据处理（2）显示,按“平均”字段值的降序显示，显示输出的格式如下：,学号 姓名 数学 英语 计算机 平均2000100114 胡小晴 88.0 90.0 89.0 89.02000100107 赵小青 88.8 86.5 89.0 88.1,index on 平均 tag pj desc? 学号 姓名 数学 英语 计算机 平均do while !eof() ? 学号, 姓名, b.数学, b.英语, b.计算机, 平均 skipenddo,关闭表,close tables,clearset talk offset safety offselect 2use cjindex on 学号 tag xhselect 1use xsset relation to 学号 into breplace all 平均 with (b.数学+ b.英语+ b.计算机)/3index on 平均 tag pj desc? 学号 姓名 数学 英语 计算机 平均do while !eof() ? 学号, 姓名, b.数学, b.英语, b.计算机, 平均 skipenddoclose tables,abc2.PRG,32.2.3表单设计（文件名：form2.SCX）,创建表单，添加控件、数据环境,设置控件属性,编写事件代码,子表：2号区,父表：1号区,32.3.2编写程序（文件名：abc3.PRG）,select 2use 课程index on 课程号 tag kchselect 1use 授课set relation to 课程号 into b,打开表，索引，关联,数据处理（1）修改、显示,replace all 工作量 with b.学分*16go top? 教师号 课程名 工作量do while !eof() ? 教师号, b.课程名, 工作量 skipenddo,1. 计算教师工作量（工作量=学分*16），按下面格式输出：,教师号 课程名 工作量J101 计算机网络 32J103 动态网页设计 32,数据处理（2）查询,键盘输入教师号，查询该教师课程信息。要求程序能进行多次查询，如果找不到教师号，显示 “查无此教师号！”信息。,请输入教师号：J125-教师授课信息-教师号课程号课程名学分J125W235ASP数据库编程3是否继续（Y/N）?,do while .T. accept 请输入教师号： to jsh locate for 教师号=jsh if found() ? -教师授课信息- ? 教师号 课程号 课程名 学分 do while found() ? 教师号, 课程号, b.课程名, b.学分 continue enddo else ? 查无此教师号！ endif wait 是否继续（Y/N）？ to yn if upper(yn)=N exit endifenddo,关闭表,close tables,clearset talk offset safety offselect 2use 课程index on 课程号 tag kchselect 1use 授课set relation to 课程号 into breplace all 工作量 with b.学分*16go top? 教师号 课程名 工作量do while !eof() ? 教师号, b.课程名, 工作量 skipenddodo while .T. accept 请输入教师号： to jsh locate for 教师号=jsh if found() ? -教师授课信息- ? 教师号 课程号 课程名 学分 do while found() ? 教师号, 课程号, b.课程名, b.学分 continue enddo else ? 查无此教师号！ endif wait 是否继续（Y/N）？ to yn if upper(yn)=N exit endifenddoclose tables,abc3.PRG,32.3.3菜单设计（文件名：下拉菜单3.MNX）,创建菜单,设置菜单,编写菜单代码,生成菜单程序,32.4.2编写程序（文件名：abc4.PRG）,use 成绩单,打开表,数据处理（1）修改,replace all 总成绩 with 高数+英语+计算机,计算每个学生的总成绩；,数据处理（2）查询，显示,按“班级”查找学生信息，如果查到，则显示表中“学号、姓名、班级，总成绩”，否则显示“没有该班级学生信息！”