《2022年Axzburi大学计算机VFP程序设计期末考试复习 .pdf》由会员分享，可在线阅读，更多相关《2022年Axzburi大学计算机VFP程序设计期末考试复习 .pdf（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、七夕，古今诗人惯咏星月与悲情。吾生虽晚，世态炎凉却已看透矣。情也成空，且作“ 挥手袖底风” 罢。是夜，窗外风雨如晦，吾独坐陋室，听一曲尘缘，合成诗韵一首，觉放诸古今，亦独有风韵也。乃书于纸上。毕而卧。凄然入梦。乙酉年七月初七。-啸之记。大学计算机 VFP 程序设计期末考试复习题一、单项选择题1.在有关数据库的概念中，若干记录的集合称为( ) 。A.文件 B.字段C.数据项 D.表 标准答案 D 2.要计算职称为副教授或教授的工资总额,下列命令中错误的是( ) 。A.工资 FOR 职称 = 副教授 .OR.职称 = 教授 B.SUM ALL 工资 FOR 职称 = 副教授 .OR. 职称 = 教
2、授 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(
3、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
4、COMMAND C.MODIFY PROCEDURE D.上面 B)和 C)都对 标准答案 B 8.使用命令DECLARE mm(2,3) 定义的数组，包含的数组元素(下标变量 )的个数为( ) 。A.2 B.3 C.5 D.6 标准答案 D 9.APPEND 命令的功能是 ( ) 。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 14 页 - - - - - - - - - A.在表的最前面插入一条记录B.在表的最后面插入一条记录C.在表的最前面任意位置插入一条记录D.
5、删除一条记录标准答案 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/
6、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. 学生数据库文件中
7、共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.DISP
8、LAY 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.MO
9、DI 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 you wish you success C.98/6/14+15 D.1994-08-06-1992-08-11 标准答案 D 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - -
10、 - - - - 名师精心整理 - - - - - - - 第 2 页，共 14 页 - - - - - - - - - 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 表达式中，不正确的是
11、( ) 。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
12、 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 .
13、 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.DO CASE ENDCASE 标准答案 D 46. 有一个表文件GZ.DBF，已经打开。其中有字段名“基本工资”、 “实发工资” 。下面按“实发工资”进行索引的操作不正确的是( ) 。A.INDEX ON 实发工资 TO SFGZ B.INDEX ON 实发工
14、资 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. 要为当前表所有职
15、工增加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 在表中的宽度都是( ) 。
16、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.表文件名、表的大小、字段名、
17、字段类型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. 下列命令不能关闭数据表文
18、件的是( ) 。A.browse B.use C.close all D.close database 标准答案 A 61. 要在当前表文件的当前记录之后插入一条新记录，应该使用命令是( ) 。A.APPEND B.EDIT C.CHANGE D.INSERT 标准答案 D 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 14 页 - - - - - - - - - 62.DELETE 命令的功能是 ( ) 。A.为当前记录做删除标记B.直接物理删除当前记录C.删除当前数
19、据库文件的所有记录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.索引文件比排序文件小标准答案
20、 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.rec
21、all 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 FOXPR
22、O 中备注文件的扩展名为( ) 。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.程序文件不可
23、以在命令窗口执行。1 6.Visual FoxPro 有 3 种工作方式，即命令、程序和菜单方式。1 7.可以链接或嵌入OLE 对象的字段类型是通用型。1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 14 页 - - - - - - - - - 8. 选择当前未使用的最小编号工作区的命令是SELECT 1。2 9.选择当前未使用的最小编号工作区的命令是SELECT 0。 1 10. 表是由结构和记录数据两部分组成的。1 11. 执行命令?AT(ABC,ABCABABC
24、,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.
25、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 命令输入的数据可以是常量、变量，也可以是一般的表达式，但不能不输入任何内容直接按回车。
26、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.逻辑型数据
27、用字母“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 命令输入的数据可以是常量、变量，也可以是一般的表达式
28、，但不能不输入任何内容直接按回车。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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 14 页 - - - - - -
29、- - - 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
30、=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
31、*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
32、.下面的程序是求在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, 从第四个数起 ,每个数都是前
33、三个数之和。下面的程序是求出该数列的第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)
34、=2 and mod(i,5)=3 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 14 页 - - - - - - - - - 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
35、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 名师资料总结 - - -精品资料欢
36、迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 14 页 - - - - - - - - - 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
37、 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 名师资料总结 - - -精品资料欢迎下载 - - - - -
38、- - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 14 页 - - - - - - - - - 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
39、 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 cl
40、ear s=0 for i=105 to 625 if mod(i,7)=0 and mod(i,11)=0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 14 页 - - - - - - - - - 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)=
41、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
42、j=2 to sqrt(i) if mod(i,j)=0 exit 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 14 页 - - - - - - - - - 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 m
43、od(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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - -
44、 - 名师精心整理 - - - - - - - 第 12 页，共 14 页 - - - - - - - - - 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=
45、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
46、 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 14 页 - - - - - - - - - 21. 输出 10,100 中除以 17 的余数和除以5
47、的商相等的整数的个数。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
48、+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 时程序退出
49、。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 整除且不含重复数字的三位数的和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，
50、将结果填入答题窗口。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