vfp编程题

1. SET TALK OFF
USE STUDENT
LOCATE FOR 政治面目="群众"
******ERROR FOUND******
DO WHILE .NOT.FOUND()
IF 性别="女"
CONTINUE
******ERROR FOUND******
BREAK
ENDIF
? 姓名,班级
******ERROR FOUND******
SKIP
ENDDO
USE
SET TALK ON
2.UPDATE student SET 年龄=year(date())-year(出生日期)
SELECT Student.政治面目, COUNT(*) AS 人数, AVG(年龄) AS 平均年龄; FROM student;
GROUP BY Student.政治面目;
INTO TABLE sqlresults
select 1
use jieguo
select 2
use gnht
sum jhsl to asum && 计算订货总数
index on dhdw to aaa uniq
count to adhdw && 计算订货单位数
index on ghdw to bbb uniq
count to aghdw && 计算供货单位数
use
select 1
replace num with adhdw && 把订货单位数存放第1条记录中skip
replace num with aghdw && 把供货单位数存放第2条记录中skip
replace num with asum && 把订货总数存入第3条记录中list && 显示结果
use
1.SELECT TOP 5 姓名,出生日期FROM employee ORDER BY 出生日期INTO TABLE emage
2. *本程序的功能为输入圆柱体的半径和高，计算圆柱体表面积。

SET TALK OFF
CLEAR
LOCAL carea
INPUT "请输入圆柱体的半径" TO r
INPUT "请输入圆柱体的高" TO h
carea=cya(r,h)
?"圆柱体的表面积为：",carea
RETURN
FUNCTION cya
**********found***********
PARAMETERS a,b,c
LOCAL pai
pai=3.14159
c=2*(pai*a^2)+2*pai*a*b **********found*********** ENDFUNC
*下面的程序在第2行、第3行、第4行、第5行有错误，请直接在错误处修改。

*修改时,不可改变SQL语句的结构和短语的顺序，不允许增加或合并行。

OPEN DATABASE sdb
SELECT 学号,姓名,AVG(成绩) 平均成绩,COUNT(成绩) 选课门数;
FROM student JOIN sc OF student.学号= sc.学号;
WHERE 性别= "女" AND AVG(成绩) >= 75;
GROUP BY 学号;
ORDER BY 4 desc ;
INTO TABLE three
*该命令文件在第3行、第6行、第7行有错误，打开该命令文件，
*直接在错误处修改，不可改变SQL语句的结构和短语的顺序，不允许增加、删除或合并行。

SELECT 会员号,会员名,单位,电话;
FROM cus;
WHERE 会员号=ANY ;
( SELECT 会员号;
FROM cbc;
WHERE 数量>= 10 and 性别= 女;
GROUP BY 会员号HAVING 数量*单价>=5000);
INTO TABLE THREE
&&所有器件的单价增加5元
UPDATE order_detail1 SET 单价WITH 单价+ 5
&&计算每种器件的平均单价
SELECT 器件号,AVG(单价) AS 平均价FROM order_detail1 ORDER BY 器件号INTO CURSOR lsb
&&查询平均价小于500的记录
SELECT * FROM lsb FOR 平均价< 500
close database
select 1
use order_list
copy stru to tmp
select 2
use tmp
select 订单号,sum(单价*数量) as aa from order_detail group by 订单号order by 订单号 into cursor ff
sele order_list
do while !eof()
select ff
locate for 订单号=order_list.订单号
if order_list.总金额 <> aa
select order_list
scatt to mm
select tmp
append blank
gath from mm
replace 总金额 with ff.aa
endif
select order_list
skip
enddo
select * from tmp order by 总金额 into dbf od_mod。