[程序设计练习答案.docVIP

计算机专业《VFP》程序填空与阅读试卷汇编一 一、程序填空(每空3分，共27分) 1.有一商场的商品销售数据库XS.DBF,其记录如下: 记录号 商品名 单价 数量 总价 1 电冰箱 2000 3 6000 2 彩 电 1800 5 9000 3 电冰箱 2010 1 2010 4 空调机 1600 2 3200 5 彩 电 1900 2 3800 …… 下面程序用于分类统计各种商品总的销售数量和总的销售额(总价),并计算出平均 销售单价。 SET TALK OFF USE XS INDE ON __商品名_____ TO SY __Total On 商品名____ TO TJK USE TJK REPL __ All 平均销售单价 with 总价/数量______ LIST USE SET TALK ON 2.任意输入两个正整数X和Y,求X与Y的最小公倍数。 SET TALK OFF INPUT X= TO X INPUT Y= TO Y IF XY T=X X=Y Y=T ENDI N=Y DO WHILE N=___0_________ IF __MOD(X,Y)=0________ EXIT ENDIF N=__X*Y_______ ENDDO ?最小公倍数是:+STR(N) SET TALK ON 3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段数据,且无记录。要求键盘输入十个数,将这些数保存到CJ.DBF的数据字段中,并由大到小显示出来。 　SET TALK OFF CLEA USE CJ K=1 DO WHIL K＜＝10 ___APPEND BLANK________ ＠K+5,1 SAY 第+STR(K,2)+数是: GET 数据 READ __SKIP_______ ENDD INDE ON ___数据________ TO TMP LIST USE SET TALK ON 二、程序填空(每空3分,共18分) 1.男子100米短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。阅读下列程序, 填写空位处的代码,使程序能正确有效地实现上述要求。 set Talk off clear ＠14,20 say 请稍候… use Male100 __Index_____ on 成绩／D To temp use Temp Copy _________________ To gainer.dbf use gainer Copy to gainer.txt __Fields 成绩______ use ＠14,20 say 操作完毕! Return 2.现有一户籍数据库People.DBF,存有该地区各位公民的档案资料,现要求按出生日期字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。 Set Talk off Set Safe off Clear use people Index On 出生日期 To Ipeople Born= / / ＠14,20 Say 请输入查询的出生日期: Get Bom picture _________ Read Seek Born__ Do while .NOT.EOF( ).AND. _FOUND( )__ Display Skip Enddo use Set Talk on Return 三、程序填空(每空3分，共18分) 1、在人事档案管理系统中，设有两个数据库： ZGQK.DBF(编号，姓名，性别，职称，部门名，基本工资) ZGGZ.DBF(编号，资金，房租，实发工资) 查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。 SET TALK OFF SELE 1 USE ZGQK INDEX O