#VFP程序填空阅读历年考题

1、计算机专业 VFP 程序填空与阅读试卷汇编、程序填空 （每空 3 分，共 27分1.有一商场的商品销售数据库XS.DBF, 其记录如下记录号 商品名 单价数量 总价1电冰箱2000 360002彩 电1800 590003电冰箱2018 120184空调机1600 232005彩 电1900 23800下面程序用于分类统计各种商品总的销售数量和总的销售额（总价 ,并计算出平均销售单价。SET TALK OFFUSE XSINDE ON TO SY TO TJKUSE TJKREPL LISTUSESET TALK ON任意输入两个正整数 X 和 Y,求 X 与 Y 的最小公倍数。SET TAL

2、K OFFINPUT X=TO XINPUT Y=TO YIF XYT=XX=YY=TENDIN=YDO WHILE NSET TALK ON现有一数据库 CJ.DBF,该数据库文件中仅有一个数值型字段 数据 ,且无记录。要求键盘输 入十个数 ,将这些数保存到 CJ.DBF的数据字段中 ,并由大到小显示出来。SET TALK OFF/ 34CLEAUSE CJK=1DO WHIL K + 数是: GET 数据 READENDDINDE ON TO TMPLISTUSESET TALK ON二、程序填空 （每空 3分,共 18分男子 100M 短跑成绩已录入数据库 Male100.DBF, 现要

3、求将前 3 名运动员的成绩转入获奖 数据库 gainer.dbf 和 gainer.txt 文件中。阅读下列程序 , 填写空位处的代码 ,使程序能正确有效 地实现上述要求。set Talk offclear14,20 say 请稍候 use Male100 on 成绩 D To tempuse TempCopy To gainer.dbfuse gainercopy to gainer.txt use14,20 say 操作完毕 !Return现有一户籍数据库 People.DBF,存贮有该地区各位公民的档案资料 ,现要求按 出生日期 字 段（日期型 ,以索引查询方式 ,快速查找并显示所有与指

4、定出生日期相同的记录。Set Talk offSet Safe offClearuse peopleIndex On 出生日期 To IpeopleBorn= / / 14,20 Say 请输入查询的出生日期 : Get Bom picture ReadDo while .NOT.EOF( .AND. DisplaySkipEnddo/ 34useSet Talk onReturn三、程序填空 (每空 3 分，共 18分1、在人事档案管理系统中，设有两个数据库：ZGQK.DBF( 编号，姓名，性别，职称，部门名，基本工资 ZGGZ.DBF( 编号，资金，房租，实发工资 查询并显示实发工资 12

5、00 元以上的职工姓名及职称，请将程序补充完整。 SET TALK OFFSELE 1USE ZGQKINDEXTO QKSELE 2USE ZGGZLOCA FOR 实发工资 1200IF FOUND( DO WHILE .NOT.EOF( DISPCONTENDDOENDIFCLOSE ALLSET TALK ON2、求 1 100 间能被 5整除的奇数个数及其和，请将程序被充完整。 SET TALK OFFCLEAI1S0M0DO WHILEIFM M1ENDIFII2？M，SENDOSET TALK ON四、程序填空题： 每空 3分，共计 24 分) 、显示 1 到 100 之间既能被

6、 4 整除又能被 6 整除的整数。 set talk offn=1do whileifn=n+1/ 34Loopelse? n endiEndd2、向数据库文件 TSK.DBF 中增添新记录。 Set talk off Clear Use tskAn=YDo While An=Y10, 20say 书号 GET书号11, 20say 书名 GET书名12, 20say 单价 GET单价13, 20say 册数 GET册数READWAIT “继续吗？ EnddUse3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：数据录入PG1-1.PRG）、数据查询 PG2-2. PRG）、统计报

7、表 PG3-3. PRG）、退出系统，共四项。SET TALK OFFDO WHILE .TXSRX.DBF 、本学期学生成绩库 XSCJ.DBF 和教师CLEAR 10 ，26SAY“1. 数据录入” 11 ，26SAY“2. 数据查询” 12 ，26SAY“. 统计报表” 13 ，26SAY“4. 退出系统”TO KEXITENDI DO &FN ENDDO4、三个数据库文件；学生入学情况库情况库 JXK.DBF ，和数据库内容如下USE XSRXLIST OFF姓名 班级保送生张红2.T.李明4.T.王军2.F.赵波2.T.USE XSCJLIST OFF/ 34姓名数学英语计算机张红8

8、99287李明809767王军257880赵波906791USE JSKLIST OFF任课教师年龄班级 课程陈352数学李404物理孙384英语王293计算机下面的程序是生成一个新数据库文件 XX.DBF, 此数据库文件包括四个字段:姓名、班级、任课教师、课程，记录是入学时为保送生并且本学期英语成绩在90 分以上 包括 90分）的全部学生。请用正确的语句填空：SET TALK OFF CLEAR SELECT 3 USE JSK SELECT 2 USE XSCJ SELECT 1 USE XSRX JOIN WITH C TO XSRX1 FOR 。 FIELDS 姓名，班级，任课教师，课

9、程 SELECT 4USE XSRX1JOIN WITH B TO XX FOR ；FIELDSSELECT 5USE XXLISTSET TALK ONRETURN* 下面是在“ KSDA.DBF “库文件逻辑删除已知准考证号学生的程序：SET TALK OFFACCEPT “输入待删除考生的准考证号：” TO NO USE KSDAIFDELETE ENDIF USE RETURN共有五个数据库文件 stdl.dbfstd5.dbf, 下面程序的功能是删除每个库文件的末记录。请填/ 34 空。N=lDO WHILE NK=1IF L 0RETURNENDIFDO WHILE K=L 10,

10、K SAY K= ENDDORETURN分析程序，显示的值 A= ,B= 主程序 MAIN.PRGSET TALK OFFPUBLIC ASTORE 5 TO A,BDO SRB WITH A+B,A,B? A,BRETURN* 子程序 SRB.PRGPARAMETERS X,Y ,ZDO WHILE Z11,10 SAY 设备名 GET 甲用户数量READSKIPENDDO10,10 SAY 乙用户 DO WHILE .NOT.EOF(11,10 SAY 设备名 READSKIPENDDOSET TALK ONUSERETURN有一学生库 STUDENT.DBF ，结构为字段，姓名 (C,8

11、，英语 (N,2 ，数学 (N,2 ，奖学金 (L,1 ，程序功能为确定是否发给奖学金(奖学金为 .F.。若英语数学两门功能都大于或等于90 分，则字段奖学金用 .T.替换，请对程序填空。SET TALK OFFCLEARUSE STUDENTDO WHILE .T.IF 英语 =90 .AND. 数学 =90ENDIFSKIPIF EOF(ENDIFENDDORETURN有三个数据库文件 STUD1.DBF ，STUD2.DBF ， STUD3.DBF ，STUD1.DBF 库结构为学 号(C,6 ，姓名 (姓名,8；STUD2.DBF 结构为学号 (C,6，系别 (C,10 ； STUD3

12、.DBF 结构为 姓名(C,6，成绩(N,2，现用关联方法显示成绩大于90 分的学生情况，并且用物理联结方法产生一个完整的学生库 STUD.DBF ，请在命令序列中填空。/ 34SELECT 1USE STUD1SELECT 2USE STUD2 ALIAS S2SELECT 3USE STUD3 ALIAS S3INDEX ON 姓名 TO STRD3ISELECT 2INDEX ON 学号 TO STUD3ISELECT 1SET RELATION TOLIST 学号， S3-姓名， S3- 成绩JOIN WITH S3 TO S13 FOR FEILDS 学号，姓名， S3- 成绩SEL

13、ECT 4USE S13INDEX ON 学号 TO S13ISELECT 2JOIN WITH S13 TO S123 FOR 学号 =D- 学号 FIELD USE S123LIST下 面 程 序 的 功 能 是 根 据 销 售 数 据 文 件 SALE.DBF 中 的 数 据 去 修 改 库 文 件 INVENTRY.DBF 数据 ,请对程序填空 :SELECT 1USE INVENTRYSELECT 2USE SALEDO WHILE SELECT 1LOCA TE FOR 商品名 =B- 商品名REPLACE 数量 WITH B- 数量 , 总金额 WITH 单价 * 数量 SELE

14、CT 2ENDDOCLOSE DATABASE有计算机等级测试的笔试测试数据库 bsh.dbf 和上机测试数据库 shj.dbf, 其内容分别如 下:笔试数据库 bsh.dbf 上机测试数据库 shj.dbfRecord# 姓名 笔试成绩 Record# 姓名 上机成绩1 欧阳惠87 1吴明友672 陈冬梅772杨红873 吴明友943欧阳惠944 杨红604李霞835 李霞685陈冬梅751 首先执行以下命令序列/ 34SELECT 2USE shjSELECT 1USE bshSET RELATION TO RECNO INTO bLOCATE FOR 笔试成绩 仍然使用上面的计算机等级测

15、试的笔试测试数据库bsh.dbf 和上机测试数据库执行以下程序SELECT 2USE shjSELECT 1USE bshJ0IN WITH b TO ks FOR 姓名 =b- 姓名 CLEARUSE ksDO WHILE.N0T.E0FN=1I=0J=0DO WHILE NI=I+ 笔试成绩J=J+ 上机成绩N=N+ISKIPENDDO? 总成绩 =+STR(I+JENDDO执行程序后 ,显示的第一个总成绩是 3接着继续执行以下程序CLEARSET DELETED ONUSE KSINDEX ON 笔试成绩 + 上机成绩 TOCOUNT TO SGOTO TOPSKIPDELETE NEX

16、T S-2COPY TO QAZUSE AQZFIELDS 姓名 ,笔试成绩 ,上机成绩,第二个总成绩是 ABC/ 34LIST最后显示的第一条记录的姓名是 , 第二条记录的姓名是 在下列数据记录修改程序中 ( 屏幕格式文件 ST.FMT 已建立 填空。 SET TALK OFFUSE STUDENTSET FORMAT TO STDO WHILE .T.ACCEPT 请输入学生姓名： TO NAMELOCATE FOR 姓名 =NAMEIF EOF( ? 查无此人！ELSECLEARENDIFWAIT 是否继续 ?(Y/N TO GOONIF GOON=YCLEARLOOPELSEEXITE

17、NDIFENDDOSET FORMAT TOUSESET TALK ONRETURN下列程序的功能是通过字符串变量操作竖向显示“刻苦学习”，横向显示“学习刻苦”，请填空。SET TALK OFFSTORE “刻苦学习” TO XYCLEARN=1DO WHILE NN=N+2ENDDO? SUBSTR(XY ,1,4RETURN执行以下命令序列：USE STUDLISTRecord# 姓名 性别 年龄/ 341欧阳惠女 232李明男213杨霞女244郭昊男235吴友男256何文强男27INDEX ON 年龄 TO AGESET INDEX TO AGESEEK 23? 姓名，年龄欧阳惠 23S

18、KIP 2? 姓名，年龄最后一条 ?命令的显示内容为 有如下程序：STORE 0 TO N,SDO WHILE .T.N=N+1S=S+NIF N10EXITENDIFENDDO? S=+STR(S,2本程序运行结果是 。有计算机等级测试考生数据库STD.DBF 和合格考生数据库文件 HG.DBF ，这两个库的结构相同。为了颁发合格证书并备案，把 STD 数据库中笔试成绩和上机成绩均及格记录 的合格否字段修改为逻辑真，然后再将合格的记录追加到合格考生数据库 HG.DBF 中。请对以下操作填空。.USE STD.LISTRecord# 准考证号 姓名 性别 笔试成绩 上机成绩 合格否1 1100

19、1 梁小冬女7080.F.211005林旭男9578.F.311017王平男6040.F.411083吴大鹏男9060.F.511108杨妃红女5867.F.REPLACE _FOR笔试成绩=60.AND.上机成绩 =60.USE HG.APPEND FROM STD FOR .LIST.USE有如下程序段，其功能是将汉字信息 全国计算机等级测试 从屏幕底部移至顶部 ，请填空:/ 34SET TALK OFFSET STATUS OFFX= 全国计算机等级测试 CLEARK=23DO WHILE K0 K,26 SAY SPACE(34 ,26 SAY XP=INKEY(1K=K-1ENDDO

20、有口令程序如下，请填空： SET TALK OFFCLEARDO WHILE .T. 5,20 SAY “请输入口令：” SET CONSOLE OFFSET CONSOLE ONIF DATE (=PWEXITELSEWAIT “口令不对！按任意键重来”CLEARENDIFENDDOSET TALK ONCLEAR计算机等级测试的考生数据和测试成绩分别放在两个数据库文件中。欲使用关联方法 显示两个库文件的有关数据，请对如下命令序列填空。SELECT 1USE STUDLISTRecord# 考生编号 姓名1 1002 张伟1004 吴红 SELECT 2 USE STDCJ ALTAS TL

21、 LISTRecord# 考生编号1 1004 722 1002 67年龄 性别25 女30 男笔试成绩 上机成绩8592INDEX ON 考生编号 TO ABCSELECT 1/ 34LIST 考生编号，姓名，性别，Record# 考生编号1 1002 张伟2 1004 吴红B-笔试成绩， 姓名 女 男性别6772B- 上机成绩B-笔试成绩 B- 上机成绩9223.计算机等级测试各考点均有数据库文件 省市考区阅卷后建立成绩数据库文件 数据库数据，请填空补齐命令。SELECT 185 KSCJ.DBF, 其中有关考生成绩的字段值暂空。 ST.DBF 。下列程序是使用 ST.DBF 中的数据更新

22、考生USE KSCJLISTRecord# 准考证号 姓名 年龄 性别 班号 笔试成绩 上机成绩 合格否1 1011017 刘丽 23 女 101 .F.2 1011083 王友 28 男 101 .F.INDEX ON 准考证号 TO AINDSELECT 2USE STLISTRecord# 准考证号笔试成绩上机成绩1 1011083 90 602 1011017 60 40INDEX ON 准考证号 TO BINDSELECT 1UPDATE ON 准考证号 笔试成绩 WITH B- 笔试成绩，上机成绩 WITH B-上机成绩LISTRecord# 准考证号 姓名 年龄 性别 班号 笔试

23、成绩 上机成绩 合格否1 1011017 刘丽 23 女 101 60 40 .F.2 1011083 王友 28 男 101 90 60 .F.接上题，为了颁发合格证书，把KSCJ.DBF 数据库中笔试成绩和上机成绩均及格( 大于等于 60 分 记录的合格否字段值修改为逻辑真，然后显示并打印该字段值为真的考生名 单。请对以下命令填空：USE KSCJREPLACE 合格否 WITH FOR LIST FOR TO USE有下列两个程序，主程序是MAIN.PRG ，子程序是 SUBPRO.PRG 。执行主程序后，屏幕第 5 行显示信息 ，屏幕第 6 行显示信息 。* MAIN.PRGSET T

24、ALK OFFCLEARP=10Q=10DO WUBPRO WITH P/ 34 6,6 SAY “ Q=” +STR(Q,2CANCEL* SUBPRO.PRGPARAMETERS QQ=20 5,6 SAY “ Q=” +STR(Q,2RETURN 在 VFP 命令窗口执行下列命令，请填空。USE STCOUNT TO A ? A& 显示为： 35GO TOPDELETE NEXT 5? RECCOUNT(SET DELETED ONCOUNT TO XY? XY & 显示值 ? RECCOUNT( & 显示值 计算机等级测试成绩已录入完毕，缺考者的记录上均已打上删除标记“* ”。为计算实

25、际参加测试者平均分，请在以下命令序列中填空。USE STUSET AVERAGE ALL 成绩 TO AVG 计算机等级测试考生数据库DJKS.DBF 。 笔试和上机成绩已分别录入其中的“笔试”和“上机”字段 (皆为 N 型中，此外另有“等级”字段 (C 型。凡两次测试均达到 80分以 上者，应在等级字段中填入“优秀”。编程如下，请填空。SET TALK OFFUSE DJKSDO WHILE .NOT.EOF(IF 笔试 =80.AND. 上机 =80ENDIFSKIPENDDOUSESET TALK ON有学生数据库 STUDENT.DBF ，其中编号 /N/2 字段的值从开始连续排列。欲

26、按编号的1、9、17、25规律抽取学生参加比赛，并在屏幕上显示参赛学生的编号，请填空。SET TALK OFFUSE STUDENTDO WHILT .NOT.EOF(IF INT? 编号ENDIF/ 34SKIPENDDOUSESET TALK ON计算机等级测试的查分程序如下，请填空。SET TALK OFFUSE DJKS INDEX DSACCEPT “请输入准考证号：” TO KHFIND 下面的程序是将“中华人民共和国”显示为“中华 人 民 共 和 国”，请填空。SET TALK OFFCLEARX= 中华人民共和国 Y= DO WHILE LEN(X=Y=Y+SUBSTR(X,1

27、,2+ X=SUBSTR(X,3ENDDO?RETURN有程序如下，基功能是将硬盘上若干个班(小于 10 的成绩数据文件复制到 A 盘上。数据库文件名分 别 FIL1.DBF,FIL2.DBF 等，备份 文件名前面冠以年号 ，例 如 97BFIL1.DBF,97BFIL2.DBF 等。在 C 盘上运行该程序，请填空。SET TALK OFFCLEARACCEPT 请输入年号： TO NH & 两位数字年号INPUT 班级个数： TO NI=1DO WHILE IBDBN=USE &DBNCOPY TO I=I+1ENDDOUSESET TALK ONRETURN下面是按实发工资计算机税金的程序

28、，并将计算结果填入税金字段(假定职工最高实发工资为 2500 元，请填空。* 主程序 MAIN.PRG*SET TALK OFFTAX=0USE GZ/ 34DO WHILE .NOT.EOF(SHFGZ= 实发工资DO SUB?TAXREPLACE 税金 WITH TAXENDDOUSECANCEL* 子程序 SUB.PRG*X=0DO CASECASE A=800 .AND. A,1300X=(A-800*0.05CASE A=1300 .AND. A=1800 .AND. A=2300B=A-2300X=B*0.2+500*0.15+500*0.1+500*0.05ENDCASERETU

29、RN设有图书数据库 TSH ，包括字段 (总编号，分类号，书名，作者，出版单位，单价 ；读者数据库 DZH( 借书证号，姓名，性别，单位，职称，地址；借阅数据库 JY( 借书证号，总编号，借阅日期，备注。下面程序的功能是打印已借书读者的借书证号、姓名，单位，以及借阅图书的书名、单价、借阅日期。请阅读程序并填空。SET TALK OFFSELECT 1USE DZHINDEX ON 借书证号 TO DSHHSELECT 2USE TSHINDEX ON 总编号 TO SHHSELECT 3USE JYSET RELATION TO 借书证号 INTO ALIST TO PRINTCLOSE AL

30、LRETURN/ 3435 、设数据库 ABC 有一字段“姓名”，且以它为关键字索引( 索引文件 ABCX.IDX 。因某种误操作，该数据库有一些重复记录。现编一命令文件进行查找并把重复记录删去。set talk offuse abc index abcxdo while xm= 姓名skipifdeleteendifenddoreturn五、程序填空本程序求 3 到 100 之间的素数。若数 X 不能被 2 到 x 取整加 1 范围内的任一整数整 除，则 x 为素数。10 FOR X=3 TO 10020 FOR Y=30 IF THEN 40 NEXT Y50 PRINT X60 NEXT

31、 X70 END已知数组 M 中是从高分到低分排序的六个学生成绩，现从键盘上再键入第七个学生的成绩，要求将这个学生的成绩自动插入数组 M 中， 并且保持数组中按高分到低分排序。10 DIM 20 FOR K=1 TO 6: READ M(K30 NEXT K40 DATA 96,94,88,80,75,6350 INPUT X60 FOR K=1 TO 670 IF THEN 9080 NEXT K90 T=K100 FOR K=6 TO STEP -1110 120 NEXT K130 M(T= 。 END设数据库 ABC 有一字段“姓名”，且以它为关键字索引( 索引文件 ABCX.IDX

32、。因某种误操作，该数据库有一些重复记录。现编一命令文件进行查找并把重复记录删去。set talk offuse abc index abcxdo while / 34xm= 姓名 skip if dele endif enddoreturn六、程序填空 1根据右边的运行结果完善程序： SET TALK OFFCLEARx1DO WHILE1 ) 1？ STR 2) 2 4J 13)3 69DO WHILE4)48 1216？ STR1*J ，4)5) 5101520 25JJ16)6 1218243036END DO7)7 1421283542 49？8)8 1624324048 56 649

33、) 9 1827364554 637281END DOSET TALK ONRETUEN2下列程序是把“伟大祖国”坚向显示出来，并横向显示“祖国伟大”，请填空：SET TALK OFFSTORE “伟大祖国” TO XYCLEARN1DO WHILE N 8？SUBSTRN N 2END DO？ SUBSTRXY ， 1，4)RETIRM七、程序填空。 每空 2 分，共 30分)1有一个数据库 STUDENT DBF ，其中有 C 型字段姓名，以下是一个按姓名查询记录的程序，若有，则输入学生情况 同名的学生也能输入)，否则不显示任何信息。SET TALK OFFACCEPT 输入查询的姓名：“

34、 TOLOCATE/ 34ENDDOUSERETURN2设有一个学生成绩库 SOREDBF ，其中字段为：学号 C），姓名 C），语文 N）， 数学 N ），计算机 N ），总分 N ），平均分 N ）。下面程序实现计算机每个学生的总分 和分，并存储在相应的字段中，然后逐条输出总分前十名的学生记录。SET TALK OFFUSE SCOR DBFREPLACE ALL 总分 WTTH 语文数学计算机REPLACE ALL 平均分 WTTHINDEX ON 总分 TO ZFI11DO WHILEDISPLAYI11ENDDOUSERETURN3下列程序用来实现对数据库插入、删除记录的功能，请补充

35、完整。CLEARACCEIP “请输入数据库文件名” TO FILEAMEDO WHILE T ？1 插入记录？2 删除记录？3 退 出WAIT 请输入你的选择 TO CHOICEDO CASECASE CHOICE 1 INPUT 输入需要插入的记录号： TO NGOTO NCASE CHOICE 2INPUT 输入需要删除的记录号： TO NGOTO NDEKETECASE CHOICE 3ENDCASEENDDOUSERETURN4设货物库文件 GOODS DBF 中包括有：货号、货名、单价等字段，营业员库EMPLOY 、EEDBF 包括营业员代码、姓名、性别等字段；销售库SALE DE

36、F 中包含有营业员代码、货号、货名、单价、售出日期、姓名等。阅读下面程序，将程序补充完整。SELECT1USE GOODS/ 34INDEX ON 货号 TO HHSELECT 2USE EMPLOYEEINDEX ON 营业员代码 TO DMSELECT 3USE SALESET RELATLON TO 货号 INTO CLOSE ALLRETURN八、 程序填空题 5,10 SAY “请输入一个字符串 : ” GET RSREADST=”FOR I=1 TO LEN(ALLTRIM(RSIF ST=ST+XENDIFENDFOR?”原字符串为 :”+RS?”新字符串为 :”+STRETU2

37、 下面为核对口令的程序段，口令最多输入三次，请阅读并填空。Set talk offSet device to screenSet escape offCleaI=1Do while .T.3,2 say “ 请输入口令 ”set console offaccept to passif upper(pass=” OK”do main.prgelsewait “第” +str(I,1+ ”次输入有错”if I=3 4,10 say space(60endifI=I+1/ 34enddo set talk onreturn在 JSDA?DBF 中查找用户输入的编号 个说明信息。请完成如下程序：，如果

38、查找成功，显示教师的职称，否则，显示CLEARUSE C ： JSGLJSDA “请输入教师的编号 :” TO BHLOCATE FOR 编号 = =BHIFDO CASECASE职称=WAIT高级教师”“该教师是高级教师”WINDOWAT1550TIMEOUTCASE职称=WAITCASE职称=一级教师”“该教师是一级教师”二级教师”WINDOWAT1550TIMEOUTWAITWAIT该教师是二级教师” 该编号不存在” WINDOWWINDOWAT 15 ， 50AT1550TIMEOUTTIMEOUT 1ENDIFUSERETURN* 注 : AT m,n 在 VisualFoxPro

39、中，指定信息窗口在屏幕上的位置2、在 JSDA.DBF 表中查找用户指定的编号。如果查找成功，显示找到的记录，否则，显示 一条说明信息。请完成如下程序。USE JSDA.DBFDO WHILE .T.CLEARACCEPT ”请输入编号：” TO BHLOCATE FORIF FOUND( DISPLAYELSEWAIT ”不存在该编号” WINDOW TLMEOUT 1WAIL ”是否继续查找？ (Y/N ” TO ANSWER WINDOWIF UPPER(ANSWER ” Y ”ENDIFENDIFENDDOUSERETURN4、使用自定义函数计算 5！ =7！+10！。请完成如下程序。

40、 CLEAR？” 5！+7！+10！ =“+ALLTRIM(STR(JS(5+JS(7+JS(10RETURN/ 34FUNCTION & 定义自定义函数XS=FOR N=1 TO XXS=XS*NRETURNENDFUNC四、阅读程序 ,写出程序运行结果 （每小题 6 分，18 共1.主程序 main.prg子程序 sub.prgset talk offpriv bpublic ab=5stor 2 to a,ba=2*ba=a+breturnb=a+b? a,bdo sub? a,breturn程序执行的结果是对于职工工资数据库 ZGGZ.DBF, 执行下面程序。 SET TALK OFF

41、USE ZGGZINDE ON 工资 TO GZSTOR 0 TO S,NGO TOPDO WHIL .NOT.EOF( DO CASECASE 性另 =男 S=S+ 工资CASE 职称 = 项目师 N=N+1ENDCSKIPENDDUSESET TALK ON程序执行后 ,变量 S 表示 变量 N 表示 。3.现有学生档案数据库 XSDA.DBF, 其记录如下 :记录号姓名性别班级 团员否1王红女2T2张长江男4T3黄一品男2T4高峰男1F5肖丹女1F/ 34赵婷婷 女2T张雅芝 女1T刘刚 男 2 F 执行下面程序 : SET TALK OFFUSE XSDAINDE ON 班级 TO B

42、JN=0K= 班级GO TOPDO WHILE .NOT.EOF( IF K 班级？ K， NENDIFNN1K班级SKIPENDDO？K，NUSESET TALK ON 程序执行的结果是：五、阅读程序 ,写出程序运行的结果。 (每空 3 分,共 18分1.* 主程序 main.prg * 子程序 sub.prgset Talk off public BA=7N=3B=5Do Sub ? A,Bprivate BB=10A=N2ReturnReturn 程序运行结果为现有 XSCJ.DBF 数据库 ,其记录内容如下所示 记录号 # 姓名 成绩1李梅78.52张燕89.53孙静45.84李雪65

43、.05杨东90.0现依次执行如下命令,试写出程序运行结果Set talk offuse XSCJIndex on - 成绩 To IXSCJ/ 34GO TOP? 成绩skip 2? Recno(use set talk on Return 3.Set talk offSour=VisualBasic6N=2I=1S”Do while I=I/2N=N-3ElseN=N+6EndIFS=S+Substr(Sour,N,II=I+1Enddo ? S,N Set talk OnReturn执行以上程序后 ,其运行结果为 四、阅读程序，写出程序运行结果 (每空 4 分，共 16 分 1、SET T

44、ALK OFFCLEAACCE “输入密码：” TO STRING?“破译密码：”I 1DO WHILE I IF CH A .AND.CH 32ELSEIF CH a .AND.CH 32ENDIFENDIF？ CHII1/ 34ENDDOSET TALK ON 输入密码： Aim 破译密码： 。2、 SET TALK OFFI 1DO WHILE I 3JIDO WHILE J CSET TALK ON 程序执行的结果是：4、SET TALK OFFUSE DACOPY TO DA1COPY TO DA2 STRU EXTEUSE DA2APPE BLANLENREPL FIELD NAM

45、E WITH “出生日期”， FIELD TYPE WITH D， FILEDWITH 8CREA DA FROM DA2APPE FROM DA1SET TALK OF程序的功能是： 四、阅读程序，写出程序的执行结果。每输出项 4分，共 24 分。1、 SET TALK OFFCH = “？ + ？”DO WHILE N 2M = SUBSTR (CH,N +1,1X = 4 &M. NY = 2 &M. N? X &M . Y/ 34N = N+1ENDDORETURN 程序执行后所显示的结果依次是： 2、* 主程序： MALN.PRGSET TALK OFFSET PROC TO P12

46、3PUBLIC A, BSTORE 1 TO A,B,CDO P1 ? A = , ADO P2PROC? B = , ? C = , CLOSRETURN *P123.PRGPROC P1A=A*2+1RETUPROC P2PRIV CB=B*4+1C=C*2+1DO P3RETUPROC P3C=C*2+5RETU程序执行后所显示的结果依次是：3、现有数据库XSDQ. DBF ，其记录内容如下：Record #班级别姓名性别年龄1A程小平女202A邓金山男213A刘 刚男194B高大宣男225B习有兰女20现依次执行如下命令，试写出程序运行结果。USE XSDAINDEX ON STR 年

47、龄， 2 ) + 班级TO XSGO TOP？RECNO ），姓名GO BOTT？ RECNO ），姓名/ 34INDEX ON 姓别 + STR 30 年龄， 2) TO XSGO TOPSKIP 2？ RECNO )，姓名USE 8、输出下列图形，请把 QBASIC 程序补充完整。ABBBCCCCCDDDDDDDEEEEEEEEEKASC“A”)FOR I 1 TO 5FOR J 1 TOPRINT TAB6 I J)； CHR$)NEXT JKPRINTNEXT IEND、下列 QBASIC 程序是键入任意的三个数时，将按从大到小的顺序输出，请将程序 补充完整。INPUT “A，B，C”

48、； A，B，CIF A B THENSWAP A ， BEND IFIF THENEND IFIF B C THENSWAP B， CEND IFPRINT A ， B ，CEND三、读程序 每题 15 分)1 写出下面 QBASIC 程序运行后输出的结果FOR I 1 TO 8Y 1FOR J 1 TO 10FOR K 1 TO 5X X1Y Y1NEXT KNEXT JNEXT I/ 34RPINT “ Y ”END结果为：2写出下面 QBASIC 程序运行后输出的结果 CLSDIM A3 ，3)， B3 ， 3)FOR I 1 TO 3FOR J 1 TO 3READ AI ，I ) P

49、RINT AI ， J)；NEXT JPRINTNEXT IENDDATA 1 ，2， 3， 4，5，6，7， 8，9 结果为：K 的输入值应为 在下面 FOXBASE 程序中，要使程序继续循环，变量 WHIE TK10， 10 GET KREADIF UPPERI 1DO WHILE I 2J1DO WHILE J 3MI ， J) I*J ? M0S=S+NIF MOD(N,2=0N=N+1ELSEN=N-2ENDIFENDDO? S=,S12. 阅读程序写出运行结果。* 主程序 MAIN.PRGSET TALK OFFSET PROCEDURE TO PROA123PUBLIC I,JI

50、=1DO PROC1? I=+STR(I,2J=1K=1DO PROC2? J=+STR(J,2? K=+STR(K,2SET TALK ONRETURN* 子程序文件 PROC123.PRGPROCEDURE PROC1I=I*2+1RETURNPROCEDURE PROC2PRIVATE JJ=I*2+1K=2*K+1DO PROC3RETURNPROCEDURE PROC3K=K*KRETURNMAIN.PRG 运行结果是 I= ，J= ，K= 20.有程序段如下 :STORE 0 TO X,YDO WHILE.T.X=X+1/ 34Y=Y+XIF X =100EXITENDIFENDD

51、O ?Y=+STR(Y,3 这个程序是计算 的 ,执行后的结果是 2.执行如下命令序列.USE STUDENT.LIST Record# 姓 名 学号 年龄 性别1李 红09876520 男2王 菩12345619 男3赵 师34567821 女4刘 知86374518 男5钱 生37495120 女6杨 博90327818 女.INDEX ON 年龄 TO STU.FIND 20.SKIP.DISP 姓名 最后一条命令显示的学生姓名是 。有如下一段程序 :INPUT 请输入当前日期 : TO RQ?RQ+29在执行本程序时，用户应当输入 ，显示结果才是 :12/27/98。有如下一段程序 :SET STATUS OFFSET COLOR TO/GCLEARX=79SET COLOR TO/RDO WHILE X 39 0,X TO 23,X CLEAR 0,79-X TO 23,79-X CLEARX=X-0.2ENDDO(执行本程序的屏幕效果是 .15.有程序段如下 :STORE 0 TO X,YDO WHILE.T.