VFP上机试题答案

一．建立一个数据库，文件名为：班级学生.dbc，并输入数据（40分）

该数据库中有两个数据表：班级表和学生表。其数据如下：

班级表

二．建立程序文件COM-SQL111.PRG，要求将完成下列各小题任务的VFP数据表操作命令或VFP-SQL命令写在该程序文件中。在程序首行用注释语句注明考生姓名和准考证号，并用注释语句标注小题号。（30分）

（1）将班级号以“1”开头的学生成绩增加5分；

（2）显示班级人数在50人以上的不及格学生的学号、姓名、性别及成绩；

select distinct 学生.学号,学生.姓名,学生.性别,学生.成绩  from 学生,班级  where 班级.班级人数>'50' and 学生.成绩<'60'

（3）逻辑删除学生表中计算机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+b>c and a+c>b and b+c>a

  p=(a+b+c)/2

  s=sqrt(p*(p-a)*(p-b)*(p-c))

  thisform.text4.value=alltrim(str(s))

 else

  messagebox("不能组成三角形")

endif

（1）表单的标题显示考生自己的姓名和考号；

（2）文本框text1、text2、text3、text4的初值显示为0；

（3）该程序的功能是在文本框text1、text2、text3中输入三角形的三个边长，光标移到文本框text4中显示三角形的面积并保留1位小数（三角形的面积公式为：，其中a=(x+y+z)/2）；若不能构成三角形，则给出信息框提示“不能构成三角形！”，如图2所示，并将文本框text1、text2、text3、text4的值还原成初值0，并将光标定位到文本框text1中。

图1 设计界面

图2 信息提示框