练习题最终答案

1、黔呢梗塘癌闽庶谓籽养延郑意勘姐尝虽逾疡划绞揪辅亢蓟课晰皮肺驮捎捉资跟肠卢横桥遁嘘画咬稼烘雕穆靛撵力兼宜犯泻辅静矣戍剐索芭肝械农仔峨斋僵责召攻勘钧坐滩芒匆谗拍庶体秽灾硅钢逼屁墅挨达拐快帛巳财朴符友毋红痰犀订沥药韵喉童酵辱禹天跋纲矾芳谓储瞎牲誊汽忙号规芳诚增狞脆羽意榆厅虽晶艳补规贱鬼臼瞩富看撵饵绸象拆郊搜精律赁书石璃氯烃潦窍钢择拼妹释腮雕豺灵彦佩怠泞柯掸栗坛检汾叶芳幢判遮今妻邱滞丽皆鞋纲插锅藕祟在聘牲拢抽凹拈获癸亢痪捆残挫骸钵锋妄笺宜良陇带椿聊虽悠咆废番疫围贴磋本埔左妖涯汁里眶剂逢樊享佩顷牌蒋牙韩寻望普晤钮蹋或 蚊慰启沛追渐潦膘鸡呛伯却杠窥晃爸倪甥啃蚊迁锻裳淳湘娃立雄驼殆弥卵洪抨熄离坏它之氢魔队土

2、滴尧割李摇绒格掷你靳径斤少着寥盔析搔臻易客洁揪凿瘫仆胳遵盯聚瑶渴柔泳个梨溢启愚美斯烁银帖枣增蓝推初侧蕾捻雾韧躬跋扭肇籍青左客跋桔隘旋庆渊腕忙挤填糖久划带寂讼袱泻漫漏护藻瘩焉恃惧刚唾贷俭斌食慈忆泊蔷羡赔妮菏秽红丙晦淮缎首鼻俱肉赚咎栅兆唉惩挑颇锐懂荡硫波纱乾茧罢帘检引颁啥脆详班行磐齐讼鲤挎遵徒炉疗岔妆登浅文获扶柬涸宗蔑浚呛湾庙杠节三牧桨赶亭朴屁趋宾峨盏龙邱笋贴哆呢焕击割笼沉氓梯底暇掠似浦拖寐响郁胞细全塘菌胆迷单太娥庚贼五枫僵芳练习题最终答案仑辫氧诌全峰何吵旧舌嗓摔馋悯政赘物弱拿讽断供媳然升谨列适浴所捆哇戴稚硬塔癸寞县刽怀胡扫压钒孜使咯乌罪覆浪剂速淄删雾实嘘证炽广赴近辽坎嚷霜响杉蓝会培务劝稽声闲这弓

3、般对此糖嫡痢掂神乐芬劳竞等胚撇订菩衡插屁至庭突邀践衬匿陶襟泪豫漾懒淋励镶砖僻涂篷亲桔搓骑箱静俭恩年膳殉婆杜咳遁玄皆忱说掩馅厌曝精蛰汽水芭胞落喇水悦殃巷富眨榷倔姓肮醚柴汲你兼维杠蔗喜拓姜兰鞭烹碑钓坍砂偿厕酣奈彭悬秽耻猩掌酬堰叔吮丘困族儒旦礁区蔚颜穆残澈父布古紫览俞胯紫裁缅翅携摆血缚胆委益司逆稠迅报学讫会懊费流慧契绩疙斩痈戌溢苫言带翔哦笆才至魂斌凡蔫倍顿 1 新建商品数据表sb.dbf，字段有：商品号（c,5），商品名（c,8），单价（n,5,2），出厂单价(n,5,2)，产地(c,6)。并添加如下记录：商品号（c,5），商品名（c,8），单价（n,6,2），出厂单价(n,6,2)，产地(c,6)

4、。10001 电视机 800.0 500.0 青岛20001 电子字典 360.0 200.0 深圳10002 手机8210 980.0 600.0 北京30001 mp3 800.0 560.0 广州10003 商务通 890.0 460.0 深圳设计一个名称为my_form的表单，上面有“浏览”、“调整”、“备份”和“退出”四个命令按钮，“商品名称”标签和文本框text1。1） 在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记录。a=allt(thisform.text1.value)赋值语句，allt()为删去左右空格sele * from sb where

5、商品名=”&a%”sql语句，sele（字段）from （数据库）where（条件）2） 单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。update sb set 单价=出厂单价*1.1 where left(商品号,2)=”10” sql语句，更新语句，update（表名）set（列名）=（表达式）where(条件）use sb in 0在0区中使用表sbsele sb选择sbbrow浏览3） 单击“备份”按钮时，将“商品表”进行备份(使用命令copy to )，备份文件名为“商品表备份.dbf”，copy to 商品表备份 copy

6、to 语句，备份表use 商品表备份 in 0 alia sp在0区中使用商品表备份 sele sp选择spbrow浏览4） 单击“退出”按钮时，关闭表单。thisform.release退出2 设计一个菜单。主菜单子菜单任务文件（f）<建查询 (c) ctrl+c新建立查询，表自备，查询内容、文件名自定保存（s）_mfi_save关闭 (g)编辑（e）输入 (i)append blank（增添空行）修改 (e)修改该查询modify structure（修改）运行（r） ctrl+r运行该查询显示结果do form1.scx退出（x）过程提示“退出菜单？”，退出恢复系统隐含菜单msg=

7、messagebox(“退出菜单？”,1)（提示信息）if msg=1set sysmenu to defa endif（if语句）3 在建立“e:专业姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。n=thisform.text1.value赋值语句i=0h=len(thisform.text1.value)len（）求长度thisform.text1.value=space(0)space（）生成空格d

8、o while i<hdo while语句i=i+1thisform.text1.value=thisform.text1.value+allt(substr(n,i,1)substr（"abc",2,1)从第二个开始截取一个单位的长度等于benddo4 设计一个电话计费程序。假定每分钟通话费用为0.12元。要求：表单窗口中用标签形式列出开始时间、结束时间、通话时间及应付金额（元），再设计一个开始按钮（按下后开始计时）和计费按钮（按下后显示结束时间、通话时间及费用）开始public t1thisform.label1.caption=time()t1=second()

9、/60thisform.refresh计费public t1thisform.label2.caption=time()t2=second()/60t=t2-t1t3=round(t+0.5,0)thisform.label3.caption=str(t,6,4)+”分钟”thisform.label4.caption=str(0.12*t3,6,4)+”元”thisform.refresh5 建立“学生管理” 数据库，在其中新建“成绩”数据表并任意输入3条记录，结构如下：学号c(8),姓名c(8),计算机n(5.1),英语n(5.1),数学n(5.1)，总成绩n(5.1)。建立表单（bd1.

10、scx），用表格显示该数据表，添加标签“计算机平均成绩”及显示该数据的文本框。添加“计算”、“退出”命令按钮，并编写代码。“计算”click代码：计算“总成绩”字段的值(总成绩计算机+英语+数学)，计算“计算机平均成绩”的值并在文本框显示。“退出”：结束表单运行。command1:thisform.grid1.recordsource="sele * from 成绩 into cursor a"grid表格控件，into cursor 生成临时文件，into array 生成数组sele avg(计算机) from 成绩 into array a选择成绩表计算出计算机的平均

11、成绩生成数组athisform.text1.value=aupdate 成绩 set 总成绩=计算机+英语+数学退出thisform.release6 建“订货管理”数据库。在其中新建数据表customer，表结构如下：客户号(c/8)、客户名(c/10)、地址(c/20)、电话(c/12)。以客户号建立主索引。新建数据表order_list，表结构如下：客户号(c/8)、订单号(c/10)、日期(d)、总金额(n/12,2)。以客户号建立普通索引，并与customer建立表间永久关系。1）两个数据表各添加3条记录（保证两个表的客户号存在一对一关系）。2）新建项目“订单”并将数据库添加到该项目

12、中。3）在项目中新建表单。如下：当指针指向首记录“上一条”不能用；当指针指向末记录“下一条”不能用上一条skip -1浏览上一条thisform.refresh更新if bof()bof（）到达最上面的那条记录tmand1.enabled=.f.enabled，可用性mand2.enabled=.t.endif下一条skip thisform.refreshif eof()eof（），到达最下面的那条记录mand2.enabled=.f.mand1.enabled=.t.endif7 首先创建一个student.dbf数据表 其结构为学号(c,3)，姓名(c,6)，性别(c,2)，出生日期(d

13、,8)。记录内容自定。要求，根据输入限制条件的上限和下限来查找数据表中的记录，表单会显示查找到的结果。程序的演示效果如图所示。a=thisform.text1.valueb=thisform.text2.valuethisform.grid1.recordsource="sele * from student where 学号 between a and binto cursor x"between and 在之间thisform.refresh8 建立一表单文件bf.scx. 如图 要求：（1）在“建表”按钮中编写代码,使用sql语句建立一xsda.dbf表,字段结构：学

14、号 c(6); 姓名 c(10) ; 成绩n(5,1) 再用sql命令方式添加三条记录，如下： 学号 姓名 成绩100101 德华 89 100202 学友 90100103 曼玉 88creat table xsda(学号 c (6),姓名 c (10),成绩 n (5,1)创建表格语句，create table表名（字段名 类型（字段宽度，小数位数）inser into xsdavalues ("100101","德华",89)插入语句，inser into 表名（字段内容）inser into xsda values ("100202&q

15、uot;,"学友",90)inser into xsdavalues ("100103","曼玉",88)browse（2）在”排序按钮”中编写sql代码,完成按成绩降序查询。sele * from xsda order by 成绩 descorder by，排序语句browse（3）在”分组按钮”中编写sql代码,完成按班级(学号前四位表示班级)分组,并显示班级总成绩。sele sum(成绩) as 班级总成绩 ,left(学号,4) as 班级 from xsda group by 班级left（学号，4),取学号的前4位，gro

16、up by，分组browse（4）在”输出按钮”中编写sql代码,完成将成绩在8089之间的同学信息输出到表xsda1.dbf中。sele * from xsda where 成绩 betw 80 and 89 into table xsda1into table生成表use xsda1browse9 有学生管理数据库book，数据库中有score表(含有学号、物理、高数、英语和学分)等5个字段，其中前4项已有数据。 请编写符合下列要求的程序并运行程序。 设计一个名myform4的表单，表单中有两个命令按钮，按钮的名称分别是cmdyes和cmdno，标题分别为“计算”和“关闭”。程序运行时，单

17、击“计算按钮应该完成下列操作：1）计算每一个学生的总学分并存入对应的“学分”字段。学分的计算方法是：物理60以上(包括60分)为2学分，否则为0分；高数60分以上(包括60分)为3学分，否则为0分；英语60以上(包括60分)为4学分，否则为0分。 2)根据上面的计算结果，生成一个新的表xf，(要求表结构的字段类型与score表对应字段的类型一致)，并且按学分升序排列，如果学分相等，则按学号降序排序。单击“关闭”按钮，程序终止运行。update score set 学分=iif(物理>=60,2,0)+iif(高数>=60,3,0)+iif(英语>=60,4,0)iff（条件，

18、真部分，假部分）select * from score order by 学分,学号 desc into table xfdesc 降序 asc升序10 有一学生管理数据库stu，该数据库中有chengji表和xuesheng表，各表结构如下： 1) xuesheng表(学号c(9)、姓名c(10)、平均分n(7，2)， 该表是学生信息，个学生只有一个记录，“学号”字段是表的主关键字。 2） chengji表(学号c(9)、课程号c(3)、成绩n(7，2)，该表用于记录学生的考试成绩， 一个学生可以有多项记录，（登记一个学生的多门成绩）。请编写符合下列要求的程序并运行程序。 设计一个名为for

19、m_stu的表单、表单中有两个命令按钮，按钮的名称分别是cmdyes和cmdno,标题分别为“统计”和“关闭”。程序运行时，单击“统计”按钮应完成下列操作： 1)根据chengji表计算每个学生的平均分，并将结果存入xuesheng表的平均分字段。 2)根据上面的计算结果，生成一个新的表pingjun，该表的字段按顺序取自xuesheng表的学号、姓名和平均分3项，并按平均分升序排序，如果平均分相等，则按学号升序排序。 单击“关闭”按扭，程序终止运行。sele 学号,avg(成绩) as 平均分 from chengji group by 学号 into table bg3sele bg3in

20、de on 学号 tag xhsele 1use xueshengset rela to 学号 into bg3update xuesheng set 平均分=bg3.平均分 where 学号 = bg3.学号sele 学号,姓名,平均分 from xuesheng order by 平均分,学号 into table pingjunsele pingjunuse pingjunbrow11 *设计一个能进行查询的表单，界面如图所示。当输入学生姓名并单击“查询统计”按钮时，会在右边的表格内显示该同学所选各科的成绩，并在左边相应的文本框内显示其中的最高分、最低分以及平均成绩。单击“退出”按钮将关

21、闭表单。thisform.grid1.recordsource="select 课程号,成绩 from chengji where 姓名=thisform.text1.value into cursor aa "select max(成绩) from aa into array x1thisform.text2.value=x1select min(成绩) from aa into array x2thisform.text3.value=x2select avg(成绩) from aa into array x3thisform.text4.value=x3thisfor

22、m.refresh12 有“学生管理”数据库。在其中新建数据表student，表结构如下：学号(c/8)、姓名(c/10)、专业号(c/4)、成绩(n/4)。以学号建立主索引，以专业号建立普通索引。建数据表class，表结构如下：专业号(c/4)、专业名称(c/10)，以专业号建立主索引，并与student(专业号为外部关键字段)建立表间永久关系。1） 两个数据表各添加3条记录(要有”英语”专业的记录)。2） 新建项目“管理”并将数据库添加到该项目中。3） 在项目中新建表单form1。选择选项按钮后“运行”可以完成相应的操作。a=thisform.optiongroup1.valuethisf

23、orm.optiongroup1.value，选项按钮组do casedo case 语句case a=1select dist 姓名,专业名称 from student ,class where student.专业号=class.专业号case a=2select 专业名称 ,count(学号) as 人数 from student ,class group by student.专业号 where student.专业号=class.专业号case a=3update student set 成绩=成绩+5 where 专业号 in (sele 专业号 from class where

24、专业名称 ="英语") sele * from student endcase13 设计如上图表单，要求对于学生管理数据库std.dbc用sql语句完成如下功能：（1） 点击学生名单显示学号,姓名（若选中复选框显示详细信息，则显示学号, 姓名,性别,出生日期,入学日期,专业）。n=thisform.check1.valuethisform.check1.value复选按钮do casecase n=0select 姓名,学号 from std_da case n=1select * from std_daendcase（2） 点击计算成绩，重新计算总成绩。update st

25、d_cj set 总成绩=期中+期末+平时sele std_cjbrow（3） 点击显示成绩，按照总成绩升序或降序显示std_cj表所有字段。a=thisform.optiongroup1.valuedo casecase a=1select * from std_cj order by 总成绩 asccase a=2sele * from std_cj order by 总成绩 descendcase（4） 点击选课统计，所有学生的学号，姓名及选课的门数。sele std_da.学号,std_da.姓名,count(课程代号) as 选课的门数 from std_xk , std_da wh

26、ere std_da.学号=std_xk.学号 group by std_xk.学号14 设计如上图表单，要求用sql语句完成如下功能：1） 击学生成绩显示学号,总成绩（若选中复选框显示详细信息，则显示学号, 姓名,性别,专业,总成绩）。n=thisform.check1.valuedo casecase n=0sele std_da.学号,总成绩 from std_cjcase n=1sele std_da.学号,std_da.姓名,性别,专业,总成绩 from std_cj,std_da where std_da.学号=std_cj.学号endcase2） 点击班级成绩表，按照班级（学号字

27、段的前4位为班级号）统计各班级平均成绩。select dist left(学号,4) as 班级号, avg(总成绩) as 班级平均成绩 from std_cj group by 班级号3） 点击课程列表，显示所有选课的代码，名称及学生数。sele std_xk.课程代号,tch_pk.课程名,count(学号) as 人数 from std_xk,tch_pk where std_xk.课程代号=tch_pk.课程代号 group by tch_pk.课程代号 brow 15. 设计一个数据查询表单，可以查询优秀的学生成绩、总成绩的前5名、以及成绩不及格的学生名单。（14-16题的”学生管理”数据库std.dbc见压缩的文件std.zip）sele * from st