《大学计算机VFP程序设计期末考试复习题.pdf》由会员分享，可在线阅读，更多相关《大学计算机VFP程序设计期末考试复习题.pdf（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 1 页 共 14 页2008-06-13 大学计算机 VFP 程序设计期末考试复习题一、单项选择题1.在有关数据库的概念中，若干记录的集合称为()。A.文件 B.字段C.数据项 D.表 标准答案D 2.要计算职称为副教授或教授的工资总额,下列命令中错误的是()。A.工资 FOR 职称=副教授.OR.职称=教授 B.SUM ALL 工资 FOR 职称=副教授.OR.职称=教授 C.SUM 工资FOR 教授$职称D.SUM 工资FOR 职称=副教授.AND.职称=教授 标准答案 D 3.不允许记录中出现重复索引值的索引是()。A.主索引B.主索引、候选索引、普遍索引C 主索引和候选索引D 主索
2、引、候选索引和唯一索引标准答案B 4.在 Visual FoxPro 中，打开数据库的命令是()。A.OPEN DATABASE B.USE C.USE DATABASE D.OPEN 标准答案A 5.连 续 执 行 以 下 命 令 之 后，最 后 一 条 命 令 的 输 出 结 果 是()。SET EXACT OFF X=A?IIF(A=X,X-BCD,X+BCD)A.A B.BCD C.A BC D.ABCD 标准答案C 6.在以下四组函数运算中，结果相同的是()。A.LEET(Visual FoxPro,6)与 SUBSTR(Visual FoxPro,1,6)B.YEAR(DATE()
3、与 SUBSTR(DTOC(DATE(),7,2)C.VARTYPE(36-5*4)与 VARTYPE(36-5*4)D.假定 A=this,B=is a string,A-B与 A+B 标准答案A 7.在 Visual Foxpro中，用于建立或修改过程文件的命令是()。A.MODIFY B.MODIFY COMMAND C.MODIFY PROCEDURE D.上面 B)和 C)都对 标准答案B 8.使用命令DECLARE mm(2,3)定义的数组，包含的数组元素(下标变量)的个数为()。A.2 B.3 C.5 D.6 标准答案 D 9.APPEND 命令的功能是()。A.在表的最前面插入
4、一条记录B.在表的最后面插入一条记录C.在表的最前面任意位置插入一条记录D.删除一条记录标准答案B 10.打开学生数据库及(对成绩字段的)索引文件，假定当前记录号为200，欲使记录指针指向记录号为100 的记录，应使用命令()。A.LOCATE FOR 记录序号=100 B.SKIP 100 C.GOTO 100 D.SKIP-100 标准答案 C 11.使用 TOTAL 命令生成的分类汇总库文件的扩展名是()。A.DBT B.DBF C.DBC D.CDX 标准答案C 第 2 页 共 14 页2008-06-13 12.执行命令序列：STORE CTOD(“05/06/98”)TO MDAT
5、E?MDATE 后，屏幕上显示值是()。A.05/09/98 B.MDATE C.05/06/98 D.CTOD 标准答案C 13.假定系统是期是2004 年 01 月 05 日，有如下命令：NJ=YEAR(DATE()执行该命令后，NJ 的值是()。A.2004 B.01 C.05 D.01/05/04 标准答案A 14.有以下命令序列：USE STUDENT LIST record#姓名出生日期1 欧阳惠07/12/69 2 李明02/24/70 3 杨霞11/05/71 INDEX ON 出生日期TO BD LIST 执行该命令序列后，显示记录号的顺序是()。A1 2 3 B3 2 1
6、C2 1 3 D1 3 2 标准答案A 15.学生数据库文件中共10 条记录，其姓名字段值均为学生全名，执行如下命令序列：USE STUDENT?recno()最后，recno()函数的显示值是()。A.1 B.0 C.10 D.2 标准答案 A.16.比较表达式的结果是()。A.字符型B.逻辑型C.数值型D.日期型标准答案B 17.用 COPY STRU TO 形成的文件是()。A.表文件B.索引文件C 文本文件D.正式文件标准答案A 18.不能作为索引关键字的数据类型是（）。A.数值型B.备注型C.日期型D.字符型标准答案B 19.显示数据表当前记录内容的命令是()。A.LIST NEXT
7、 1 B.DISPLAY ALL C.TYPE D.DISP REST 标准答案D 20.用命令 DIMENSION A(4，5)定义后，A 数组中共有()个数据元素。A.4 B.5 C.9 D.20 标准答案 D 21.执行 USE 命令的作用是()。A.关闭所有工作区的数据表文件B 关闭当前工作区的数据表文件C.关闭所有文件D.对数据表文件没有影响标准答案B 22.函数 EOF()用于检测当前数据库记录指针是否达到()。A.文件头B.文件尾C.指定记录D.第一条记录标准答案A 23.建立表文件用()命令。A.MODI COMM B.EDIT C.CREATE D.MODI STRU 标准答
8、案C 24.INSERT 命令将一条新记录加到()。A.当前记录之前B.当前记录之后C.文件末尾D.文件顶部标准答案B 25.下述命令中不能关闭数据表的命令是()。A.USE B.CLOSE DATABASE C.CLEAR D.CLOSE ALL 标准答案C 26.以下表达式的结果为数值型的是()。A.牛$牛群 B.wish you wish you success C.98/6/14+15 D.1994-08-06-1992-08-11 标准答案 D 27.用菜单方式打开一个数据表文件应该使用的菜单序列为()。A.文件打开表B.文件打开表格C.文件新建数据表D.数据表打开标准答案 C 28
9、.清除主窗口屏幕的命令是()。A.CLEAR B.CLEAR ALL C.CLEAR SCREEN D.CLEAR WINDOWS 标准答案A 29.对于只有两种取值的字段，一般使用的数据类型是()。A.字符型B.数值型C.日期型D.逻辑型标准答案D 30.在下面的Visual FoxPro 表达式中，不正确的是()。A.2008-05-01 10:10:10 AM-10 B.2008-05-01-DATE()C.2008-05-01+DATE()D2008-05-01+1000 标准答案 C 第 3 页 共 14 页2008-06-13 31.下面()不是 VFP 程序文件中可以使用的注释语
10、句。A.NOTE B.*C./D.&标准答案 C 32.Visual FoxPro 6.0中，命令?VARTYPE(12/31/99)的输出结果是()。A.D B.N C.C D.U 标准答案C 33.下列各字符组合中()不是 VFP 中的字符常量。A.计算机应用B.2008 C.ABCDE D.101.867 标准答案A 34 下列不能关闭数据表的是()。A.browse B.clear all C.close all D.close database 标准答案B 35.执行以下命令后显示的结果是()。N=356.54?87+&N A.87+&N B.87356.54 C.443.54 D.
11、出错信息标准答案C 36.下列表达式中，()表达式的值是数值。A.ABC+D B.2008/05/17-2008/04/09 C123+456 D.2003/05/18+15 标准答案B 37.逻辑型字段 团员 其值为真的正确条件表达是()。A.FOR 团员=T B.FOR 团员=.T.C.FOR 团员D.FOR 团员=.Y.标准答案C 38.函数 LEN(TRIM(SPACE(8)-SPACE(8)返回的值是()。A.8 B.16 C.0 标准答案B 45.下面()不属于 VFP 的循环控制语句。A.DO WHILE ENDDO B.FOR ENDFOR C.SCAN ENDSCAN D.D
12、O CASE ENDCASE 标准答案D 46.有一个表文件GZ.DBF，已经打开。其中有字段名“基本工资”、“实发工资”。下面按“实发工资”进行索引的操作不正确的是()。A.INDEX ON 实发工资TO SFGZ B.INDEX ON 实发工资TAG 实发工资C.INDEX ON 实发工资TAG 实发工资OF GZ.CDX D.INDEX ON 基本工资 TO JBGZ 标准答案 B 47.SEEK 和 FIND 命令是作用于()的快速检索命令。A.表文件B.命令文件C.索引文件D.排序文件标准答案C 48.表文件 KD.DBF 打开后，执行命令SKIP-1，下列命令中结果为.t.的是()
13、。第 4 页 共 14 页2008-06-13 A.?RECNO()B.?BOF()C.?EOF()D.DISP 标准答案B 49.下面程序运行结果是()。A.rest B.all C.skip D.next 2 标准答案 C 50.要为当前表所有职工增加100 元工资应该使用命令（）。A.CHANGE 工资WITH 工资+100 B.REPLACE 工资 WITH 工资+100 C.CHANGE ALL 工资WITH 工资+100 D.REPLACE ALL 工资 WITH 工资+100 标准答案D 52.如果一个字段的宽度为8，则此字段的类型不可能是（）A.数值型B.字符型C.日期型D.备
14、注型标准答案D 53.函数 EOF()用于检测当前数据库记录指针是否达到()。A.文件头 B.文件尾 C.指定记录 D.对数据表文件无作用标准答案B 54.在 VFP 中，通用型字段G 和备注型字段M 在表中的宽度都是()。A.2 个字节B.4 个字节C.8 个字节D.10 个字节标准答案 B 55.执行命令DIMENSION M(4,2)之后，数组的下标变量个数和初值分别是()。A.8,.F.B.4,.T.C.8,O D.2,空值标准答案A 56.在当前表中，查找第2 个女同学的记录，应使用命令是()。A.LOCATE FOR 性别=女 NEXT2 B.LOCATE FOR 性别=女 C.L
15、OCATE FOR 性别=女和 CONTINUE D.LIST ROR 性别=女 NEXT 2 标准答案C 57.建立表文件结构时，需要定义的参数为()。A.表文件名、表的大小、字段名、字段类型B.字段名、字段类型、记录个数、字段宽度C.字段名、字段类型、字段宽度、小数位数 D.表文件名、字段名、字段类型、字段宽度标准答案 C 58.ABC.DBF 是一个有两个备注型字段的表文件，使用COPY TO PSQ 命令进行复制操作，其结果将()A.得到一个新的数据库文件B.得到一个新的数据库文件和一个新的备注文件C.得到一个新的数据库文件和两个新的备注文件D.显示出错误信息，表明不能复制具有备注型字
16、段的数据标准答案B 59.表文件的数值型字段要求保留2 位小数，那么该字段宽度最少应当定义成()位。A.2 B.3 C.4 D.5 标准答案 C 60.下列命令不能关闭数据表文件的是()。A.browse B.use C.close all D.close database 标准答案A 61.要在当前表文件的当前记录之后插入一条新记录，应该使用命令是()。A.APPEND B.EDIT C.CHANGE D.INSERT 标准答案D 62.DELETE 命令的功能是()。A.为当前记录做删除标记B.直接物理删除当前记录C.删除当前数据库文件的所有记录D.在提问确认后物理删除当前记录标准答案A
17、63.建立数据表文件用()命令。A.MODI COMM B.EDIT C.CREATE D.MODI STRU 标准答案C 64.下列不能作为查询的命令是()。A.locate B.index C.seek D.find 标准答案B 65.在建立表结构(modi stru)过程中不须要输入字段宽度的字段类型是()。A.字符型B.数值型C.备注型标准答案C 66.在以下关于索引的说明中，错误的是()。A.索引可以提高查询速度B.索引可能降低更新速度C.索引和排序具有不同的含义D.索引文件比排序文件小标准答案B 67.统计当前工作区记录数的函数是()A.RECNO()B.RECCOUNT()C.F
18、COUNT()D.FOUND()标准答案B 68.已知 P=DATE(),则 P 为()型内存变量。第 5 页 共 14 页2008-06-13 A.字符B.日期C.逻辑D.数值标准答案B 69.在下列 VFoxPro 的表达式中，结果为.T.的是()。A.112=90 B.张先生=李先生 C.90/09/09-890/90/01 D.女$性别 标准答案B 70.在 Visual FoxPro 中，删除数据表的所有记录，仅保留表结构的命令是()。A.delete all B.pack C.recall D.zap 标准答案D 71.在 Visual FoxPro 中，逻辑删除数据表的所有记录的
19、命令是()。A.delete all B.recall C.zap D.主属性名标准答案A 72.连 续 执 行 以 下 命 令 之 后，最 后 一 条 命 令 的 输 出 结 果 是（）。SET EXACT OFF X=A?IIF(A=X,X-BCD,X+BCD)A.A B.BCD C.A BCD D.ABCD 标准答案 D 73.用 COPY STRU TO 形成的文件是()。A.表文件B.索引文件C.文本文件D.正式文件标准答案A 74.VISUAL FOXPRO 中备注文件的扩展名为()。A.DBF B.FPT C.PRG D.MEM 标准答案B 75.Visual FoxPro 6.
20、0中，命令?VARTYPE(12/31/99)的输出结果是()。A.D B.N C.C D.U 标准答案C 76.比较表达式的结果是()A.字符型B.逻辑型C.数值型D.日期型标准答案B 二、判断题1.Visual FoxPro数据库管理系统的数据模型是网状型。2 2.Visual FoxPro数据库管理系统的数据模型不是网状型。1 3.同一个元素在程序执行过程中可以取得不同类型的数据。1 4.程序文件可以在命令窗口执行。2 5.程序文件不可以在命令窗口执行。1 6.Visual FoxPro有 3 种工作方式，即命令、程序和菜单方式。1 7.可以链接或嵌入OLE 对象的字段类型是通用型。1
21、8.选择当前未使用的最小编号工作区的命令是SELECT 1。2 9.选择当前未使用的最小编号工作区的命令是SELECT 0。1 10.表是由结构和记录数据两部分组成的。1 11.执行命令?AT(ABC,ABCABABC,2)，屏幕显示的结果为：6。1 12.执行命令?AT(ABC,ABCABABC,2)，屏幕显示的结果为：1。2 13.在程序中，若循环体中有LOOP 子句，当执行到LOOP 时，退出循环体，执行循环体后面的语句。2 14.在程序中，若循环体中有EXIT 子句，当执行到EXIT 时，退出循环体，执行循环体后面的语句。1 15.选择当前未使用的最小编号工作区的命令是SELECT 0
22、。1 16.二维数组各元素在内存中按行存储，因此，它可以用一维数组来表示。1 17.数组在使用前，必须定义。1 18.CLOSE ALL 与 CLEAR 命令的作用都是关闭所有打开的VFP 文件。2 19.VFP 程序设计语言的特点是语言丰富、自成体系；人机对话，交互执行方式；高效的非过程化命令功能。1 20.函数 LEN(2008 年 CHINA 大事回顾)的返回结果是18。2 21.函数 SUBSTR(国际互连网,4,2)的返回值是“连网”。2 22.LEN(STR(1234.587)的值是 4。2 23.内存变量的类型取决于赋值数据的类型。1 第 6 页 共 14 页2008-06-13
23、 24.VFP 中程序的注释命令有&和*。1 25.COUNT 命令的功能为：统计当前表中指定范围内满足条件的记录的个数。1 26.INPUT 命令输入的数据可以是常量、变量，也可以是一般的表达式，但不能不输入任何内容直接按回车。1 27.输入命令ACCEPT只能接受字符串，但用户在输入字符串时不需要加定界符。1 28.在 Visual FoxPro 中，对表进行索引后，将产生一个新的表。2 29.VFP 命令的书写规则规定，命令中的英文字符是区分大小写的。2 30.备注型数据用字母“M”表示，长度固定为4 个字节，并用这4 个字节来引用备注的实际内容。1 31.Visual FoxPro规定
24、，逻辑型数据用.T.或.Y.表示逻辑真，用.F.或.N.表示逻辑假，所以逻辑型数据有四个值。2 32.INT(SQRT(26)的值是 5 1 33.字符型数据之间可以进行数学运算，每个字符占一个字节。2 34.逻辑型数据用字母“L”表示，它表示逻辑判断的结果，长度固定为1 个字节。1 35.数据库表中可以使用长字段名，最大长度为128 个字符。1 36.在 Visual FoxPro 中，对表进行排序后，将产生一个新的表。1 37.在 Visual FoxPro 中，对表进行排序后，不会产生一个新的表。2 38.数值型数据用来表示数量，没有定界符，可以是整数或小数，也可以是分数。2 39.计算
25、与显示命令规定：?是在同行显示结果，?是在下一行显示结果。2 40.SET TALK ON/OFF 命令决定是否显示数据处理命令的响应信息。1 41.INPUT 命令输入的数据可以是常量、变量，也可以是一般的表达式，但不能不输入任何内容直接按回车。1 三、程序改错题1.下面的程序是求3+9+27+81+243+.这样的数之和.若累加数大于500时,则结束累加.程序中有一处错误。改正后运行程序，将程序执行结果填入答案框内。SET TALK OFF CLEAR X=3 Y=0 DO WHILE.F.Y=Y+X IF Y500 EXIT ENDIF STORE 3*X TO X ENDDO?Y SE
26、T TALK ON RETURN 1092 2.已知 S1=1,S2=1+2,S3=1+2+3,SN=1+2+,+N,下面的程序求S20 到 S80 有多少数能被17 或 35 整除。改正后运行程序，将程序执行结果填入答案框内。SET TALK OFF I=20 N=0 DO WHILE I=80 STORE 0 TO S J=1 DO WHILE J=I S=S+J J=J+1 ENDDO IF MOD(S,17)=0 N=N+1 ENDIF I=I+1 ENDDO?N SET TALK ON RETURN 12 3.计算 S=1*5*9*13*.*k，直到累乘数k=25中止。程序中有错误。
27、改正后运行程序，将程序执行结果填入答案框内。SET TALK OFF CLEAR s=0 k=1 DO WHILE.T.s=s*k IF k=25 EXIT ENDIF k=k+4 ENDDO?s RETURN 5221125 4.下面的程序是求1 到 500 的偶数立方和与奇数立方和之差。程序中有一处错。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。SET TALK OFF STORE 0 TO I,S1,S2 DO WHILE I=500 I=I+1 IF MOD(I,2)=0 S1=S1+I*I*I ELSE S2=S2+I*I*I ENDIF ENDDO?S1
28、-S2 SET TALK ON RETURN 62687500 5.程序求能被3 整除且至少有一位数字为5 的三位数的个数。程序中有一行有错误。更正程序中的错误，运行更正后的程序，第 7 页 共 14 页2008-06-13 记录运 行结 果，将结 果填 入答 题窗 口。SET TALK OFF CLEAR S=0 X=100 DO WHILE X=999 IF MOD(X,3)0 A=INT(X/100)B=INT(X/10)-A*10 C=X-A*100-B*10 IF A=5.OR.B=5.OR.C=5 S=S+1 ENDIF ENDIF X=X+1 ENDDO?S RETURN 85
29、6.下面的程序是求在1,2,3,4,.,10这 10 个数中,任意选两个不同的数,求它们的和能被2 整除的数的总对数.(注意:象 3+5 和 5+3 认为是同一对数).程序中有一处错误。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SET TALK OFF CLEAR N=0 I=1 DO WHILE I=10 J=1 DO WHILE JI IF INT(I+J)/2)(I+J)/2 N=N+1 ENDIF J=J+1 ENDDO I=I+1 ENDDO?N SET TALK ON RETURN 20 7.已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和。下
30、面的程序是求出该数列的第15 个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SET TALK OFF DIME A(15)A(1)=1 A(2)=2 A(3)=3 I=4 DO WHILE I=15 A(I)=A(I-1)+A(I-2)+A(I-3)I=I+1 ENDDO?A(15)SET TALK ON RETURN 4841 四、程序设计填空题1.编程序求出1000 到 2000 之间同时满足除3 余 2 和除 5 余 3 条件的数的个数。66 set talk off clear n=0 for i=1000 to 2000 if mod(i,3)=2 and mod(i
31、,5)=3 n=n+1 endif endf?n set talk on return 2.编程序求出3000到 5000之间同时满足除3 余 2 和除5 余 3 条件的数的个数。133 set talk off clear n=0 for i=3000 to 5000 if mod(i,3)=2 and mod(i,5)=3n=n+1 endi endf?n set talk on return 3.求能被 3 整除且至少有一位数字为5 的三位数的个数。85 第 8 页 共 14 页2008-06-13 set talk off clear n=0 s=0 for i=100 to 999
32、a=int(i/100)b=int(mod(i,100)/10)c=mod(i,10)if mod(i,3)=0 s=s+1 if a5 and b5 and c5 n=n+1 endif endif t=s-n endf?t set talk on retu 4.编写程序，求10!3628800 set talk off clear sub=1 for j=1 to 10 sub=sub*j endf s=sub?s set talk on return 5.编写程序，s=1+1/2+1/3+,+1/99，保留两位小数。5.18 set talk off clear s=0 for i=1
33、to 99 s=s+1/i endf?s set talk on retu 6.求出只要能被2，7，9 之一整除的1000 以内的正整数的个数。619 set talk off clear s=0 第 9 页 共 14 页2008-06-13 for i=1 to 1000 if mod(i,2)=0 or mod(i,7)=0 or mod(i,9)=0s=s+1 endif endf?s set talk on retu 7.求出只要能被2，7，9 之一整除的800 以内的正整数的个数。495 set talk off clear s=0 for i=1 to 800 if mod(i,2
34、)=0 or mod(i,7)=0 or mod(i,9)=0s=s+1 endif endf?s set talk on retu 8.求出只要能被2，7，9 之一整除的600 以内的正整数的个数。371 set talk off clear n=0 for i=1 to 600 if mod(i,2)=0 or mod(i,7)=0 or mod(i,9)=0 n=n+1 endif endf?n set talk on return 9.编程序求出1 到 100 之间同时满足除3 余 2 和除 4 余 2 条件的数的和。450 set talk off clear s=0 for i=1
35、 to 100 if mod(i,3)=2 and mod(i,4)=2 s=s+i endif endf?s set talk on retu 第 10 页 共 14 页2008-06-13 10.编程序求出1 到 500 之间同时满足除3 余 2 和除 4 余 2 条件的数的和。10416 set talk off clear s=0 for i=1 to 500 if mod(i,3)=2 and mod(i,4)=2 s=s+i endif endf?s set talk on return 11.求105，625 间能同时被7 和 11 整除的自然数之和。2695 set talk
36、off clear s=0 for i=105 to 625 if mod(i,7)=0 and mod(i,11)=0 s=s+i endif endf?s set talk on retu 12.求1000，6000 间能同时被7 和 11 整除的自然数之和。225225 set talk off clear s=0 for i=1000 to 6000 if mod(i,7)=0 and mod(i,11)=0s=s+i endif endf?s set talk on retu 13.编写程序，求200 到 800 之间素数的个数。93 set talk off clear s=0 f
37、or i=200 to 800 for j=2 to sqrt(i)if mod(i,j)=0 exit 第 11 页 共 14 页2008-06-13 endif endf if jsqrt(i)s=s+1 endif endf?s set talk on return 14.编写程序，求600 到 900 之间素数的个数。45 set talk off clear s=0 for i=600 to 900 for j=2 to sqrt(i)if mod(i,j)=0 exit endif endf if jsqrt(i)s=s+1 endif endf?s set talk on ret
38、u 15.编写程序，求600 到 900 之间素数的和。33501 set talk off clear s=0 for i=600 to 900 for j=2 to sqrt(i)if mod(i,j)=0 exit endif endf if jsqrt(i)s=s+i endif endf?s set talk on retu 16.编写程序，求200 到 800 之间素数的和。45851 第 12 页 共 14 页2008-06-13 set talk off clear s=0 for i=200 to 800 for j=2 to sqrt(i)if mod(i,j)=0 exi
39、t endif endf if jsqrt(i)s=s+i endif endf?s set talk on retu 17.计算 S=3!+5!+7!+.+N!，求直到S=680000为止的奇数N。11 set talk off clear s=0 for n=3 to 1000 step 2 sub=1 for j=3 to n sub=sub*j endf s=s+sub if s=680000 exit endif endf?n set talk on retu 18.1!+2!+3!+.+n!当 s 大于 61000 时结束累加，求n。9 set talk off clear s=0
40、 for n=1 to 1000 step 1 sub=1 for j=1 to n sub=sub*j endf s=s+sub if s61000 exit 第 13 页 共 14 页2008-06-13 endif endf?n set talk on return 19.下列的程序是求S=8!+9!+10!的程序.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SET TALK OFF CLEAR S=0 I=8 DO WHILE I=10 STORE 1 TO T,J DO WHILE J=I T=T*J J=J+1 ENDDO _ I=I
41、+1 ENDDO?S SET TALK ON RETURN 4032000 20.设 S=1+1/2+1/3+.+1/N，N 为正整数。编程求使S 不超过 10 的最大的 N.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk off clear s=0 i=1 do while s 12366 21.输出 10,100 中除以 17 的余数和除以5 的商相等的整数的个数。SET TALK OFF N=0 FOR K=10 TO 100 IF _?K N=N+1 ENDIF ENDFOR?N RETURN 4 22.输出 10,100
42、 中除以 15 的余数和除以4 的商相等的整数的个数。SET TALK OFF N=0 FOR K=10 TO 100 IF _?K N=N+1 ENDIF ENDFOR?N RETURN 5 23.统计区间 1000，9999 内所有能被3 整除，且千位数字与个位数字之和为8 的整数的个数。Set talk off t=0 I=1000 do while I=9999 if _ t=t+1 endif I=I+1 enddo?t return 264 24.编程序求出100 到 800 之间同时满足除4 余 1 和除 5 余 3 条件的数的个数.35 25.求在四位数的奇数中，所有各位数字之
43、和是25 的倍数的数的和。CLEAR S=0 FOR I=1001 TO 9999 STEP 2 A=INT(I/1000)B=INT(I/100)%10 C=INT(I/10)%10 D=I%10 IF _ S=S+I ENDIF NEXT?S=,S RETURN 1298515 26.求出 1 到 5000 之间的能被5 整除的前若干个偶数之和，当和大于500 时程序退出。CLEAR S=0 FOR I=1 TO 5000 IF _ S=S+I IF S500 EXIT ENDIF ENDIF NEXT?S=,S RETURN 550 27.编程求 S=1*3+2*4+3*5+.+198*
44、200。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFF S=0 N=1 DO WHILE N=198 _ N=N+1 ENDDO?S SET TALK ON RETURN2646501 28.求出所有能被17 整除且不含重复数字的三位数的和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk off i=100 store 0 to t do while i=999 a=int(i/100)b=int(i-a*100)/10)c=mod(i,10)if _ t=t+i endif i=
45、i+1 enddo?t return 21267 29.求出所有能被17 整除且不含重复数字的三位数的和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk off i=100 store 0 to t do while i=999 a=int(i/100)b=_ c=mod(i,10)if i%17=0 and a#b and b#c and a#c t=t+i endif i=i+1 enddo?t return 21267 30.数列 xi 各元素的值是：x11，x212,x3 123,.xn 123.n。对数列求和：S=x1+
46、x2+x3.，直到 S3000止，求此时数列中最大的元素值。(程序名由考生自定)。在下列程序中填上缺少的第 14 页 共 14 页2008-06-13 语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFF CLEAR s=0 p=0 i=1 DO WHILE.t.p=p+i S=S+P IF s3000 _ ENDIF i=i+1 enddo?p RETURN 351 31.求出 100，500 以内同时满足除以7 余 1，除以 5 余 3,除以 3 余 1 的所有整数的个数。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。S
47、et talk off clear n=0 sum=0 for I=100 to 500 if _ n=n+1 endif endfor?N set talk on return 4 32.求200，600 间奇数之和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。Set talk off s=0 for I=200 to 600 if _ loop endif s=s+I endfor?S return 80000 33.编程求区间 5000，9999 中所有素数的个数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，
48、将结果填入答题窗口.Set talk off I=9999 t=0 do while I=5000 j=2 do while j=I-1 if int(I/j)=I/j exit endif j=j+1 enddo if j=I t=t+1 endif _ enddo?t 560 34.编程求区间 5000，9999 中所有素数的个数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.SET TALK OFF CLEAR Set talk off I=9999 t=0 do while I=5000 j=2 do while j=I-1 if _ exit endif j=j+1 enddo if j=I t=t+1 endif i=i-1 enddo?t 560 35.求在四位数的奇数中，所有各位数字之和是25 的倍数的数的和。CLEAR S=0 FOR I=1001 TO 9999 STEP 2 A=INT(I/1000)B=INT(I/100)%10 C=INT(I/10)%10 D=I%10 IF _ S=S+I ENDIF NEXT?S=,S RETURN 1298515