大学计算机VFP程序设计期末考试复习题

大学计算机VFP程序设计期末考试复习题一、单项选择题1.在有关数据库的概念中，若干记录的集合称为( )。 A.文件 B.字段 C.数据项D.表 标准答案D2.要计算职称为副教授或教授的工资总额,下列命令中错误的是( )。 A.工资 FOR 职称=副教授.OR.职称=教授 B.SUM ALL 工资 FOR 职称=副教授.OR.职称=教授 C.SUM 工资 FOR 教授$职称 D.SUM 工资 FOR 职称=副教授.AND.职称=教授 标准答案D 3.不允许记录中出现重复索引值的索引是( )。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 标准答案A7.在Visual Foxpro中，用于建立或修改过程文件的命令是 ( )。A.MODIFY B.MODIFY COMMAND C.MODIFY PROCEDURE D.上面B)和C)都对 标准答案B8.使用命令DECLARE mm(2,3)定义的数组，包含的数组元素(下标变量)的个数为 ( )。A.2 B.3 C 标准答案D 9.APPEND命令的功能是( )。D.删除一条记录 标准答案B 10.打开学生数据库及(对成绩字段的)索引文件，假定当前记录号为200，欲使记录指针指向记录号为100的记录，应使用命令( )。A.LOCATE FOR 记录序号=100 B.SKIP 100 C.GOTO 100 D.SKIP -100 标准答案C11.使用TOTAL命令生成的分类汇总库文件的扩展名是( )。A.DBT B.DBF C.DBC D.CDX 标准答案C 12.执行命令序列： STORE CTOD(“05/06/98”)TO MDATE ?MDATE 后，屏幕上显示值是( )。 B.MDATE 标准答案C2004年01月05日，有如下命令： NJ=YEAR(DATE() 执行该命令后，NJ的值是( )。 A.2004 B.01 C.05 D.01/05/04 标准答案A14.有以下命令序列： 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 标准答案A15.学生数据库文件中共10条记录，其姓名字段值均为学生全名，执行如下命令序列： USE STUDENT ?recno() 最后，recno()函数的显示值是( )。 A.1 B.0 C.10 D.2 标准答案A.16.比较表达式的结果是( )。A.字符型 B.逻辑型 C.数值型 D.日期型 标准答案B17.用COPY STRU TO 形成的文件是( )。 A.表文件 B.索引文件 C文本文件 D.正式文件 标准答案A18.不能作为索引关键字的数据类型是（ ）。 A.数值型 B.备注型 C. 日期型 D.字符型 标准答案B19.显示数据表当前记录内容的命令是( )。A.LIST NEXT 1 B.DISPLAY ALL C.TYPE D. DISP REST 标准答案D20.用命令DIMENSION A(4，5)定义后，A数组中共有( )个数据元素。 A.4 B.5 C.9 D.20 标准答案D21.执行USE命令的作用是 ( )。 B关闭当前工作区的数据表文件 D.对数据表文件没有影响 标准答案B22.函数EOF()用于检测当前数据库记录指针是否达到( )。 A.文件头 B.文件尾 C.指定记录 D.第一条记录 标准答案A23. 建立表文件用( ) 命令。 A.MODI COMM B.EDIT C.CREATE D.MODI STRU 标准答案C24.INSERT 命令将一条新记录加到( )。 A.当前记录之前 B.当前记录之后 C.文件末尾 D.文件顶部 标准答案B 25.下述命令中不能关闭数据表的命令是( )。 A.USE B.CLOSE DATABASE C.CLEAR D.CLOSE ALL 标准答案C26.以下表达式的结果为数值型的是( )。A.牛$ 牛群 B.wish youwish you success C.98/6/14+15 D.1994-08-06-1992-08-11 标准答案D27.用菜单方式打开一个数据表文件应该使用的菜单序列为( )。打开打开表格 新建表 打开 标准答案C28.清除主窗口屏幕的命令是( )。A.CLEAR B.CLEAR ALL C.CLEAR SCREEN D.CLEAR WINDOWS 标准答案A29.对于只有两种取值的字段，一般使用的数据类型是( )。 A.字符型 B.数值型 C.日期型 D.逻辑型 标准答案D30.在下面的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.& 标准答案C32.Visual FoxPro 6.0中，命令?VARTYPE(12/31/99)的输出结果是( )。 标准答案C33.下列各字符组合中( )不是VFP中的字符常量。 A.计算机应用 B.2008 C.ABCDE D.101.867 标准答案A34下列不能关闭数据表的是( )。 A.browse B.clear all C.close all D.close database 标准答案B35.执行以下命令后显示的结果是( )。 N=356.54 ?87+&N A.87+&N B.87356.54 C.443.54 D.出错信息 标准答案C36.下列表达式中， ( )表达式的值是数值。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. 标准答案C38.函数LEN(TRIM(SPACE(8)-SPACE(8)返回的值是( )。 A.8 B.16 C 标准答案C39.执行LIST ALL命令后，记录指针指向( )。A.第一条记录 B.最后一条记录 标准答案D 40.逻辑运算符在运算时，其优先顺序是( )。A.NOT AND OR B.AND NOT OR 标准答案A 41.显示当前表中所有带删除标记的记录的命令是( )。A.DISPLAY FOR DELETED() B.DISPLAY FOR NOT DELETED()C.DISPLAY DELETED() D.DISPLAY RECORD DELETED() 标准答案D42 .当前表中含姓名字段，显示李姓的所有记录的命令是( )。A.DISPLAY FOR 李=姓名 B.DISPLAY FOR 姓名=李 C.DISPLAY SUBSTR (姓名,1,2)=李 D. DISPLAY SUBSTR (姓名,1,1)=李 标准答案B43.下列函数中，运算结果为字符型的是( )。 A.AT(ABC,智能ABC) B.INT(123.456) C.VAL(12/12/66) D.DTOC(DATE() 标准答案D44.在VFP中，可以对数值型同时也可以对字符型内存变量输入数据的命令是( )。 A.ACCEPT B.INPUT C.WAIT D.EDIT 标准答案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 标准答案B47.SEEK和FIND命令是作用于( ) 的快速检索命令。 标准答案C 48.表文件KD.DBF打开后，执行命令SKIP -1，下列命令中结果为.t.的是( )。 A.?RECNO() B.?BOF() C.?EOF() 标准答案B 49.下面程序运行结果是( )。 A.rest B.all C.skip D.next 2 标准答案C50.要为当前表所有职工增加100元工资应该使用命令（ ）。A.CHANGE 工资 WITH 工资+100 B.REPLACE 工资 WITH 工资+100 C.CHANGE ALL 工资 WITH 工资+100 D.REPLACE ALL 工资 WITH 工资+100 标准答案D52.如果一个字段的宽度为8，则此字段的类型不可能是（） 标准答案D 53.函数EOF()用于检测当前数据库记录指针是否达到( )。A.文件头B.文件尾C.指定记录D.对数据表文件无作用 标准答案B54.在VFP中，通用型字段G和备注型字段M在表中的宽度都是( )。 标准答案B55.执行命令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 标准答案C57.建立表文件结构时，需要定义的参数为( )。 A.表文件名、表的大小、字段名、字段类型 B.字段名、字段类型、记录个数、字段宽度 C.字段名、字段类型、字段宽度、小数位数 D.表文件名、字段名、字段类型、字段宽度 标准答案C 58.ABC.DBF是一个有两个备注型字段的表文件，使用COPY TO PSQ命令进行复制操作，其结果将( ) A.得到一个新的数据库文件 B.得到一个新的数据库文件和一个新的备注文件 C.得到一个新的数据库文件和两个新的备注文件 D.显示出错误信息，表明不能复制具有备注型字段的数据 标准答案B 59.表文件的数值型字段要求保留2位小数，那么该字段宽度最少应当定义成( )位。 A.2 B.3 C 标准答案C60.下列命令不能关闭数据表文件的是( )。A.browse B.use C.close all D.close database 标准答案A61.要在当前表文件的当前记录之后插入一条新记录，应该使用命令是( )。 标准答案D 62.DELETE命令的功能是( )。 A.为当前记录做删除标记 B.直接物理删除当前记录 C.删除当前数据库文件的所有记录 标准答案A63.建立数据表文件用( ) 命令。 A.MODI COMM B.EDIT C.CREATE D.MODI STRU 标准答案C64.下列不能作为查询的命令是( )。 A.locate B.index C.seek D.find 标准答案B65.在建立表结构(modi stru)过程中不须要输入字段宽度的字段类型是( )。 标准答案C 66.在以下关于索引的说明中，错误的是( )。A.索引可以提高查询速度 B.索引可能降低更新速度 C.索引和排序具有不同的含义 标准答案B67.统计当前工作区记录数的函数是( )A.RECNO( ) B.RECCOUNT( ) C.FCOUNT( ) D.FOUND( ) 标准答案B68.已知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中，删除数据表的所有记录，仅保留表结构的命令是( )。 标准答案D 71.在Visual FoxPro中，逻辑删除数据表的所有记录的命令是( )。 标准答案A72.连续执行以下命令之后，最后一条命令的输出结果是（ ）。 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 标准答案B75.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 “M”表示，长度固定为4个字节，并用这4个字节来引用备注的实际内容。 1 31.Visual FoxPro规定，逻辑型数据用.T.或.Y.表示逻辑真，用.F.或.N.表示逻辑假，所以逻辑型数据有四个值。 2 32.INT(SQRT(26)的值是5 1 33.字符型数据之间可以进行数学运算，每个字符占一个字节。 2 “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 626875005.程序求能被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 offclearn=0for i=3000 to 5000if mod(i,3)=2 and mod (i,5)=3n=n+1endiendf?nset 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 retu4.编写程序，求10! 3628800 set talk offclearsub=1for j=1 to 10sub=sub*jendfs=sub?sset talk onreturn5.编写程序，s=1+1/2+1/3+1/99，保留两位小数。 5.18 set talk offclears=0for i=1 to 99s=s+1/iendf?sset talk onretu6.求出只要能被2，7，9之一整除的1000以内的正整数的个数。 619 set talk offclears=0for i=1 to 1000if mod(i,2)=0 or mod(i,7)=0 or mod(i,9)=0s=s+1endifendf?sset talk onretu7.求出只要能被2，7，9之一整除的800以内的正整数的个数。 495 set talk offclears=0for i=1 to 800if mod(i,2)=0 or mod(i,7)=0 or mod(i,9)=0s=s+1endifendf?sset talk onretu8.求出只要能被2，7，9之一整除的600以内的正整数的个数。 371 set talk offclearn=0for i=1 to 600if mod(i,2)=0 or mod(i,7)=0 or mod(i,9)=0n=n+1endifendf?nset talk onreturn9.编程序求出1到100之间同时满足除3余2和除4余2条件的数的和。 450 set talk offclears=0for i=1 to 100if mod(i,3)=2 and mod(i,4)=2s=s+iendifendf?sset talk onretu 10.编程序求出1到500之间同时满足除3余2和除4余2条件的数的和。 10416 set talk offclears=0for i=1 to 500if mod(i,3)=2 and mod(i,4)=2s=s+iendifendf?sset talk onreturn 11.求105，625间能同时被7和11整除的自然数之和。 2695 set talk offclears=0for i=105 to 625if mod(i,7)=0 and mod(i,11)=0s=s+iendifendf?sset talk onretu12.求1000，6000间能同时被7和11整除的自然数之和。 225225set talk offclears=0for i=1000 to 6000if mod(i,7)=0 and mod(i,11)=0s=s+iendifendf?sset talk onretu 13.编写程序，求200到800之间素数的个数。 93 set talk offclears=0for i=200 to 800for j=2 to sqrt(i)if mod(i,j)=0exitendifendfif jsqrt(i)s=s+1endifendf?sset talk onreturn14.编写程序，求600到900之间素数的个数。 45 set talk offclears=0for i=600 to 900for j=2 to sqrt(i)if mod(i,j)=0exitendifendfif jsqrt(i)s=s+1endifendf?sset talk onretu15.编写程序，求600到900之间素数的和。 33501set talk offclears=0for i=600 to 900for j=2 to sqrt(i)if mod(i,j)=0exitendifendfif jsqrt(i)s=s+iendifendf?sset talk onretu 16.编写程序，求200到800之间素数的和。45851 set talk offclears=0for i=200 to 800for j=2 to sqrt(i)if mod(i,j)=0exitendifendfif jsqrt(i)s=s+iendifendf?sset talk onretu 17.计算S=3!+5!+7!+.+N!，求直到S=680000为止的奇数N。 11 set talk offclears=0for n=3 to 1000 step 2sub=1for j=3 to nsub=sub*jendfs=s+subif s=680000exitendifendf?nset talk onretu18.1!+2!+3!+.+n! 当s大于61000时结束累加，求n。 9 set talk offclears=0for n=1 to 1000 step 1sub=1for j=1 to nsub=sub*jendfs=s+subif s61000exitendifendf?nset talk onreturn19.下列的程序是求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