分页:
上一页 1 [2] 3 4 5 6 7 下一页
IF 借出天数>60
SELE B
LOCA FOR 借书证号=JSZ
REPL 停借否 WITH .T.
SCATTER TO TJF
SELE C
APPE BLANK
GATHER FROM TJF
SELE A
ENDIF
SKIP
ENDDO
SELE C
LIST
CLOSE ALL
CLEAR ALL
SET TALK ON
第三题:已有数据库data.dbf,其中有data1--data7、最大数、最小数和平均数等字段。 请考生编写程序PROG1.PRG,其功能是按记录求出data1--data7七个数中的最大数、最小数和平均数,并记入数据库的相应字段中,最后把结果输出到data1.dbf文件中。(资料来源:Http://www.eastedu.com.cn)
参考答案:
SET TALK OFF
CLEAR
USE DATA
DO WHILE .NOT. EOF()
AV_NUM=(DATA1+DATA2+DATA3+DATA4+DATA5+DATA6+DATA7)/7
MAX_NUM=MAX(DATA1,MAX(DATA2,MAX(DATA3,MAX(DATA4,MAX(DATA5,MAX(DATA6,DATA7))))))
MIN_NUM=MIN(DATA1,MIN(DATA2,MIN(DATA3,MIN(DATA4,MIN(DATA5,MIN(DATA6,DATA7))))))
REPL 最大数 WITH MAX_NUM,最小数 WITH MIN_NUM,平均数 WITH AV_NUM
SKIP
ENDDO
BROW
COPY TO DATA1
USE
SET TALK ON
(资料来源:Http://www.eastedu.com.cn)
第四题:已有数据库djks.dbf。请编写程序PROG1.PRG,在程序中首先通过复制djks.dbf生成一个具有考号、 姓名、笔试及上机四个字段的数据库文件aaa.dbf(只有结构),然后再修改其结构,把考号字段改为数值型8个字符宽、姓名字段改为8个字符宽。要求必须使用: copy to <结构文件名> structure extended 和 create <生成库文件名> from <结构文件名>命令实现,使用其它方法不得分。(资料来源:Http://www.eastedu.com.cn)
参考答案:
set talk off
clos data
use djks
分页:
上一页 1 [2] 3 4 5 6 7 下一页