VFP上机试题答案.docVIP

VFP上机试题（4） 建立一个数据库，文件名为：班级学生.dbc，并输入数据（40分） 该数据库中有两个数据表：班级表和学生表。其数据如下： 班级表 班级号 班级名称 班级人数 030101 计算机A班 55 030202 计算机D班 48 100302 计算机B班 42 100304 计算机F班 52 学生表 班级号 学号 姓名 性别 成绩 030101 1001 王伟 男 80 030101 1002 刘红 女 55 100302 1003 李林 女 72 030202 2001 张清 女 38 100302 3001 欧阳振华 男 92 030202 2002 吴晓芸 女 80 100304 2004 刘雷 男 48 要求：为班级表和学生表分别建立主索引和普通索引，并为两个表建立一对多的联系。 建立程序文件COM-SQL111.PRG，要求将完成下列各小题任务的VFP数据表操作命令或VFP-SQL命令写在该程序文件中。在程序首行用注释语句注明考生姓名和准考证号，并用注释语句标注小题号。（30分） 将班级号以“1”开头的学生成绩增加5分； 显示班级人数在50人以上的不及格学生的学号、姓名、性别及成绩； select distinct 学生.学号,学生.姓名,学生.性别,学生.成绩 from 学生,班级 where 班级.班级人数50 and 学生.成绩60 逻辑删除学生表中计算机D班的学生。 use 班级 delete for 班级名称=计算机D班 browse //查看被删除的记录，被逻辑删除的记录最前方有黑色标记 （前提是你的数据库表式打开的） 表单设计。按以下要求设计程序界面，表单文件名为：FORM111.SCX（30分） 设计如图1所示一个表单，包括2个标签，4个文本框（各控件的大小、颜色、字体、字号等属性由考生自定）。其中： 新建----表单 拖动如图的布局，右击text1---生成器---数据类型（设置为数值型） Text2、text3、text4也做相同的设置。 拖动一个按钮控件到表单，并修改其名字为“三角形的面积=”，双击按钮输入以下代码： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+bc and a+cb and b+ca p=(a+b+c)/2 s=sqrt(p*(p-a)*(p-b)*(p-c)) thisform.text4.value=alltrim(str(s)) else messagebox(不能组成三角形) endif 表单的标题显示考生自己的姓名和考号； 文本框text1、text2、text3、text4的初值显示为0； 该程序的功能是在文本框text1、text2、text3中输入三角形的三个边长，光标移到文本框text4中显示三角形的面积并保留1位小数（三角形的面积公式为：，其中a=(x+y+z)/2）；若不能构成三角形，则给出信息框提示“不能构成三角形！”，如图2所示，并将文本框text1、text2、text3、text4的值还原成初值0，并将光标定位到文本框text1中。 图1 设计界面 图2 信息提示框