资源描述：
《程序设计练习答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、计算机专业《VFP》程序填空与阅读试卷汇编一一、程序填空(每空3分，共27分)1.有一商场的商品销售数据库XS.DBF,其记录如下:记录号商品名单价数量总价1电冰箱2000360002彩电1800590003电冰箱2010120104空调机1600232005彩电190023800……下面程序用于分类统计各种商品总的销售数量和总的销售额(总价),并计算出平均销售单价。SETTALKOFFUSEXSINDEON__商品名_____TOSY__TotalOn商品名____TOTJKUSETJKREPL__All平均销售单价with总价/数量______LI
2、STUSESETTALKON2.任意输入两个正整数X和Y,求X与Y的最小公倍数。SETTALKOFFINPUT"X="TOXINPUT"Y="TOYIFX>YT=XX=YY=TENDIN=YDOWHILEN<=___0_________IF__MOD(X,Y)=0________EXITENDIFN=__X*Y_______ENDDO?"最小公倍数是:"+STR(N)SETTALKON3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"数据",且无记录。要求键盘输入十个数,将这些数保存到CJ.DBF的"数据"字段中,并由大到小显示出来。 S
3、ETTALKOFFCLEAUSECJK=1DOWHILK＜＝10___APPENDBLANK________＠K+5,1SAY"第"+STR(K,2)+"数是:"GET数据READ__SKIP_______ENDDINDEON___数据________TOTMPLISTUSESETTALKON二、程序填空(每空3分,共18分)1.男子100米短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。阅读下列程序,填写空位处的代码,使程序能正确有效地实现上述要求。setTalko
4、ffclear＠14,20say"请稍候…"useMale100__Index_____on成绩／DTotempuseTempCopy_________________Togainer.dbfusegainerCopytogainer.txt__Fields成绩______use＠14,20say"操作完毕!"Return2.现有一户籍数据库People.DBF,存有该地区各位公民的档案资料,现要求按"出生日期"字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。SetTalkoffSetSafeoffClearusepeopl
5、eIndexOn出生日期ToIpeopleBorn="//"＠14,20Say"请输入查询的出生日期:"GetBompicture_________ReadSeekBorn__Dowhile.NOT.EOF().AND._FOUND()__DisplaySkipEnddouseSetTalkonReturn三、程序填空(每空3分，共18分)1、在人事档案管理系统中，设有两个数据库：ZGQK.DBF(编号，姓名，性别，职称，部门名，基本工资)ZGGZ.DBF(编号，资金，房租，实发工资)查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。
6、SETTALKOFFSELE1USEZGQKINDEXON编号TOQKSELE2USEZGGZSETRELATIONTO编号INTOALOCAFOR实发工资＞＝1200IFFOUND()DOWHILE.NOT.EOF()DISPZGQK.姓名,ZGQK.职称CONTENDDOENDIFCLOSEALLSETTALKON2、求1──100间能被5整除的奇数个数及其和，请将程序被充完整。SETTALKOFFCLEAI＝1S＝0M＝0DOWHILEI<=100IFMOD（I,5)=0ANDM＝M＋1S=S+IENDIFI＝I＋2？M，SENDOSETTALK
7、ON四、程序填空题：（每空3分，共计24分）1、显示1到100之间既能被4整除又能被6整除的整数。settalkoffn=1dowhilen<=100ifn%4!=0andn%6!=0n=n+1Loopelse?nendiEndd2、向数据库文件TSK.DBF中增添新记录。SettalkoffClearUsetskAn="Y"DoWhileAn="Y"AppendBlank@10,20say"书号"GET书号@11,20say"书名"GET书名@12,20say"单价"GET单价@13,20say"册数"GET册数READWAIT“继续吗？（Y/N)”
8、 TOAnEnddUse3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：数据录入
