UC知道Foxpro一个编程
来源：百度知道 编辑：UC知道 时间：2024/05/26 00:47:49
55.已知FoxPro数据库STUDENT.DBF由学号(C，6)、姓名(C，8)、性别(C，2)及成绩(N，3)四个字段组成，其部分内容及结构如下所示：
STUDENT.DBF
学号 姓名 性别 成绩
990101 张华 女 90
990102 王明 男 70
…… …… …… ……
990203 雷利 女 86
990204 朱雨 女 85
990205 周天 男 64
990206 李江 男 78
…… …… …… ……
编写FoxPro程序完成以下功能：
(1)将最低成绩及最高成绩分别存入数组元素CHJ(1)及CHJ(2)中；
(2)利用循环结构及?命令按成绩的升序逐个输出所有高于平均成绩的性别为女的记录的学号、姓名和成绩。
STUDENT.DBF
学号 姓名 性别 成绩
990101 张华 女 90
990102 王明 男 70
…… …… …… ……
990203 雷利 女 86
990204 朱雨 女 85
990205 周天 男 64
990206 李江 男 78
…… …… …… ……
编写FoxPro程序完成以下功能：
(1)将最低成绩及最高成绩分别存入数组元素CHJ(1)及CHJ(2)中；
(2)利用循环结构及?命令按成绩的升序逐个输出所有高于平均成绩的性别为女的记录的学号、姓名和成绩。
1.
dime chj(2)
go 1
chj(1)=成绩
chj(2)=成绩
do while .not. eof()
if 成绩>chj(1)
chj(1)=成绩
endif
if 成绩<chj(2)
chj(2)=成绩
endif
skip
enddo
? chj(1),chj(2)
2. average 成绩 to aver
sort /a on 成绩 to temp.dbf
use temp.dbf
locate for 成绩>=aver
do while .not. eof()
? 学号,姓名,成绩
skip
enddo