程序设计实作试题(一)

《程序设计实作试题(一)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、（一）阅读程序XSqk.dbf表记录如下：学号姓名性别出生日期团员否入学成绩050601王小梅女02/02/87T480.0050602刘毅男10/02/86F455.0050603李小芳女11/15/86F460.0050604朱丹女03/07/87T510.5050605刘志强男05/01/86F465.0050606王强男07/06/86T508.51、usexsqkAge=0Dowhilenoteof()If性别=“男”Age=age+（year(date()-year(出生日期))EndifSkipEnddo?str(age/reccount(),4,1)输出

2、结果为：2、usexsqkScanIfval(substr(学号,6))%2=0LoopElse??姓名EndifEndscan输出结果为：3、ClearUsexsqkScanIFNot团员否and入学成绩<=460??姓名EndifEndScanUse程序的运行结果为：4、ClearUsexsqkIndexon学号TagxhDescendingIndexon入学成绩TagrxcjSetOrderToxhGoTop?recno()SetordertorxcjGobottom??recno()Use程序的运行结果为：5、ClearSelect*fromxsqkwhere姓

3、名like“王_”oryear(出生日期)>1986intotablexsUsexsS=0Dowhilenoteof()S=s+入学成绩SkipEnddoUse?”s=”,Str(s,6,1)程序的运行结果为：6、clearUsexsqkIndexon学号tagxhdescGotopStore0tosForn=1to3S=s+入学成绩I=i+2SkipEndfor?“s=”+str9s,5,1)Use程序运行结果为：7、usexsqkDeleforlen(allt(姓名))=0PackScanIflen(allt(姓名))>4??姓名EndifEndscanuse程序运

4、行结果为：8、clearN=1X=’’Mm=”计算机教研组”Dowhilen<=len(mm)-2M=substr(mm,n,2)X=m+xN=n+2EnddoX=substr(mm,n)+x?’破译密码为:’+x程序运行结果为：9、在销售表xsb中，有销售员C（6）、销售额N（10，2）和服务态度C（1）等字段，记录如下：销售员销售额服务态度张圣职3000A李红5000A杨华1000C刘国强8000A李小杰2000BUsexsbStore0ton,kScanIf服务态度<=”B”N=n+销售额K=K+1ElseN=n-销售额EndifEndscan?k,n输出结果为：

5、（二）阅读程序Zg.dbf表的记录内容如下：姓名性别补贴王今张男魏张东男武青芳女张钢男李建琳女张金平男1、设有一数据表Zg.dbf，其结构和记录内容如下表所示，若执行如下命令序列：UseZgSkip2ReplaceRest补贴with50for性别=“男”获得50元补贴的姓名是：______________________2、usezgStore0toNDowhilenoteof()Ifnot“张”$姓名SkipLoopEndifN=n+1SkipEnddo?n程序的运行结果为：（三）阅读程序1、现有xs的记录如下，执行如下命令序列后的结果为：姓名年龄性别成绩等级姓名成

6、绩等级刘燕23女张力25男王红22女谭飞24男李欣26女UsexsReplaceall成绩with60for性别=”女”Replace等级with“优秀”BrowseFields姓名，等级，成绩for性别=”女”Use2、usexsAge=0ScanIf性别=“男”Age=age+年龄EndifEndscan?age程序运行结果为：3、usexsStore0toNScanIf年龄>nN=年龄EndifEndscan?“年龄为：”+str(n,3)use程序运行结果为：（四）阅读程序1、设有一数据表rs.dbf，其结构和记录内容如下表所示，执行如下命令序列：职工号姓名性别

7、出生日期职称基本工资001敖开明男07/15/63副教授650002李国军男12/22/68讲师550003李宗云女05/26/63副教授650004陈郑军男10/07/76助教450005李明明女06/20/67讲师550006吴建国男08/16/60教授8201、UsersIndexon职称tagzcuniquedescendingBrowsefields姓名,职称在浏览窗口中显示的最后一条记录是：____________________________________________2、UsersDowhilenoteof()If性