vfp编程题

Question

、已知表文件“学生表.DBF”包含字段：学号（N，9），姓名（C，8），性别（L，1），数学（N，3），语文（N，3），英语（N，3），数据库（N，3），总分（N，4），奖学金（N，4）等。编程完成以下操作：
（1）计算每条记录的总分；
（2）将总分大于等于360分的女同学的总分提高10%；
（3）将总大于等于320分的记录，其奖学金评定为800元‘
（4）将总分最高的记录其奖学金增加500元，并显示该记录；
（5）将总分最低的记录作逻辑删除，并显示该记录

Answer 1

*建立程序：modify command <程序名>
clear
close all
*（1）计算每条记录的总分
use 学生表
replace all 总分 with 数学+语文+英语+数据库
*（2）将总分大于等于360分的女同学的总分提高10%
replace all 总分 with 总分*1.1 for 总分>=360
*(3）将总分大于等于320分的记录，其奖学金评定为800元
replace all 奖学金 with 800 for 总分>=320
*求总分字段最大值，最小值
go top
a=总分
min=1000
max=0
do while ! eof()
b=总分
if a>b
max=a
if b<min
min=b
endif
else
max=b
if a<min
min=a
endif
endif
skip
enddo
*（4）将总分最高的记录其奖学金增加500元，并显示该记录
replace 奖学金 with 奖学金+500 for 总分=max
display
*（5）将总分最低的记录作逻辑删除，并显示该记录
locate for 总分=min(总分)
delete
display
use

Answer 2

update 学生表 set 总分=数学+语文+英语+数据库
update 学生表 set 总分=总分*1.1 where 总分>=360 and 性别="女"
update 学生表 set 奖学金=800 where 总分>=320
update 学生表 set 奖学金=奖学金+500 where 总分=(sele max(总分) from 学生表)
delete from 学生表 where 总分=(sele min(总分) from 学生表)

Answer 3

1.replace 总分 with 数学+语文+英语+数据库
2.replace 总分 with 总分*1.1 for 性别="女" and 总分>=360
3.replace 奖学金 with 800 for 总分>320
4.calculate max(总分) to ma
replace 奖学金 with 奖学金+500 for 总分=ma
list for 总分=ma
5.calculate min(总分) to mi
delelte for 总分=mi
list for 总分=mi

Answer 4

for
i=1
to
9回车
for
j=1
to
i
回车??str(i,1)+"*"+str(j,1)+"="+str(i*j,2)+space(3)回车
endfor
回车?回车
endfor这个是乘法表