Dafboqn-a大学计算机VFP程序设计期末考试复习题.pdf

、|!_ 一个人总要走陌生的路，看陌生的风景，听陌生的歌，然后在某个不经意的瞬间，你会发现，原本费尽心机想要忘记的事情真的就这么忘记了.大学计算机 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 主索引、候选索引和唯一索引 标准答案 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()与 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.在表的最前面插入一条记录 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 12.执行命令序列：STORE CTOD(“05/06/98”)TO MDATE?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 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 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 标准答案 C 24.INSERT 命令将一条新记录加到()。A.当前记录之前 B.当前记录之后 C.文件末尾 D.文件顶部 标准答案 B 25.下述命令中不能关闭数据表的命令是()。A.USE B.CLOSE DATABASE C.CLEAR D.CLOSE ALL 标准答案 C 26.以下表达式的结果为数值型的是()。A.牛$牛群 B.wish youwish you success C.98/6/14+15 D.1994-08-06-1992-08-11 标准答案D 27.用菜单方式打开一个数据表文件应该使用的菜单序列为()。A.文件打开表 B.文件打开表格 C.文件新建数据表 D.数据表 打开 标准答案C 28.清除主窗口屏幕的命令是()。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 31.下面()不是 VFP 程序文件中可以使用的注释语句。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.出错信息 标准答案 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.SCANENDSCAN D.DO CASEENDCASE 标准答案 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.的是()。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.备注型 标准答案 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.LOCATE FOR 性别=女和 CONTINUE D.LIST ROR 性别=女 NEXT 2 标准答案 C 57.建立表文件结构时，需要定义的参数为()。A.表文件名、表的大小、字段名、字段类型 B.字段名、字段类型、记录个数、字段宽度 C.字段名、字段类型、字段宽度、小数位数 D.表文件名、字段名、字段类型、字段宽度 标准答案 C 58.ABC.DBF 是一个有两个备注型字段的表文件，使用 COPY TO PSQ 命令进行复制操作，其结果将()A.得到一个新的数据库文件 B.得到一个新的数据库文件和一个新的备注文件 C.得到一个新的数据库文件和两个新的备注文件 D.显示出错误信息，表明不能复制具有备注型字段的数据 标准答案 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 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.FCOUNT()D.FOUND()标准答案 B 68.已知 P=DATE(),则 P 为()型内存变量。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 中，逻辑删除数据表的所有记录的命令是()。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.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 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。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 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 规定，逻辑型数据用.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.计算与显示命令规定：?是在同行显示结果，?是在下一行显示结果。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 SET 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 中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。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-S2 SET TALK ON RETURN 62687500 5.程序求能被 3 整除且至少有一位数字为 5 的三位数的个数。程序中有一行有错误。更正程序中的错误，运行更正后的程序，记录运行结果，将结果填入答题窗口。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 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,从第四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第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,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)=3 n=n+1 endi endf n set talk on return 3.求能被 3 整除且至少有一位数字为 5 的三位数的个数。85 set talk off clear n=0 s=0 for i=100 to 999 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 to 99 s=s+1/i endf s set talk on retu 6.求出只要能被 2，7，9 之一整除的 1000 以内的正整数的个数。619 set talk off clear s=0 for i=1 to 1000 if mod(i,2)=0 or mod(i,7)=0 or mod(i,9)=0 s=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)=0 or mod(i,7)=0 or mod(i,9)=0 s=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 to 100 if mod(i,3)=2 and mod(i,4)=2 s=s+i endif endf s set talk on retu 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 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)=0 s=s+i endif endf s set talk on retu 13.编写程序，求 200 到 800 之间素数的个数。93 set talk off clear s=0 for i=200 to 800 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 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 retu 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 set talk off clear s=0 for i=200 to 800 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 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 for n=1 to 1000 step 1 sub=1 for j=1 to n sub=sub*j endf s=s+sub if s61000 exit 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+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中除以 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.求在四位数的奇数中，所有各位数字之和是 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*200。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFF S=0 N=1 DO WHILE N=198 _ N=N+1 ENDDO?S SET TALK ON RETURN 2646501 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=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,x3123,.xn123.n。对数列求和：S=x1+x2+x3.，直到 S3000 止，求此时数列中最大的元素值。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。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 的所有整数的个数。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。Set 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中所有素数的个数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.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