vf期末考试题库含答案（30页完整打印版）

1、VFVF 期末考试复习题库期末考试复习题库 一、选择题 1. 在 Visual FoxPro 中，向数据库文件中追加数据 使用语句( C )。 A、INSERT B、REPLACE C、APPEND D、ADD 2. 在 Visual FoxPro 中，删除数据库的所有记录， 仅保留库结构的命令是( )。 A、 delete allB、pack C、recallD、 zap 3. 在 Visual FoxPro 中，复制当前工作区中库结构 的命令是( )。 A、Copy stru to B、Copy stru to C、Copy stru to D、Copy stru to exten 4.

2、在 Visual FoxPro 中，使用 replace字段名 with表达式for条 件后，记录指针为( )。 A、视情况而定 B、当前记录 C、bof D、 为文件尾 5. 在 Visual FoxPro 中，对数据库结构或记录进行 输入、修改后，应按( )存盘退出。 A、ctrl+w B、ctrl+q C、ctrl+c D、esc 6. 在 Visual FoxPro 中，用 modify structure 对 数据库结构进行修改时，数据库的原有数据( )。 A、将全部丢失 B、不会丢失 C、可能丢失某些数据 项 D、可能丢失某些数据记录 7. 在 Visual FoxPro 中，分屏

3、显示当前数据库中年 龄字段大于 20 的所有记录，正确的命令为( )。 A、display all for nl20 B、display all while nl20 C、list for nl while nl20 D、list while nl20 8. 在 Visual FoxPro 中，skip 命令移动记录指针的 基准是( )。 A、第一条记录 B、当前记录 C、指定纪录 D、库文件尾 9. 一个数据库文件中多个备注字段的内容是存放在 ( )。 A、这个数据库文件中 B、一个备注文件中 C、 多个备注文件中 D、一个文本文件中 10. 要删除当前数据库文件中的“性别”字段，应使 用命

4、令( )。 A、modify structure B、delete C、replace D、zap 11. 在有关数据库的概念中，若干记录的集合称为（ ） 。 A. 文件 B. 字段 C. 数据项 D. 表 12. 联接运算要求联接的两个关系有相同的（ ） 。 A. 主键 B. 属性名 C. 实体名 D. 主属性名 13. 退出 VFP 系统的命令是（ ）。 A.EXIT B.RETURNC.CANCEL D.QUIT 14. 逻辑运算符在运算时的优先顺序是（） A.NOTANDOR B.ANDNOTOR C.ORNOTAND D.从左至右按先后次序 15. 条件函数 IIF(LEN(SPAC

5、E(4)3,1,-1)的值是)（ ） 。 A. 1 B. -1 C. 3 D. 4 16. 数学表达式 5X8 在 Visual FoxPro 中应表示 为（ ） 。 A. X=5.OR.X=5.AND.X=8 C. X8.AND.5X D. 5X.OR. X8 17. 在关系运算中，查找满足一定条件的元组的运算 称之为（ ） 。 A. 投影 B. 选择 C. 关联 D. 复制 18.下面的赋值表达式不正确的是（）为啥？ A.STORE HELLO WORLD! TO STR B. STORE TO A1,B1 C.WORD=FOXPRO D.STORE 12,34 TO A2,B2 19.逻

6、辑常量 A=.T.、B=.T.、C=.T.，下面各表达式中 返回逻辑真的是 （） A.NOT(NOT A OR B) AND C) B. NOT (NOT (A OR B) AND C) C.NOT(A AND B OR NOT C) D.NOT(NOT A OR B AND C) 20. 当前表文件有 20 条记录，当前记录号为 10 ，执 行命令 LIST REST 以后，当前记录号是（ ） 。 A. 10 B. 20 C. 21 D. 1 21. 以下各表达式中，运算结果为数值型的是（ ） 。 A. 96 B. “D”$”ASD” C. TIME()+9 D. LEN(SPAC(8)-9

7、 22.物理删除某一打开的表中的第 3 条记录，使用以 下命令：DELE GO 3PACK。正确的操作顺序是 （） A.B. C.D. 23.修改表结构的命令是（ ）。 A.CREATE B.LIST STRUCTURE C.BROESE D.MODIFY STRUCTURE 24.设表文件及其索引文件已打开，为了确保指针定 位在记录号为 1 的记录上，应该使用命令（ ）。 A.GO TOP B. GO 1 C. GO RECNO()=1 D. SKIP 1 25.当前表中含 xm（姓名，字符型）字段，显示姓 “李”的记录的命令是（） A.DISP FOR 李=xm B.DISP FOR xm

8、=李 C.DISP FOR SUBS(xm,1,1)= 李 D.DISP FOR SUBS(xm,1,2)=李 26. 求平均值的命令是（） A.COUNT B.TOTAL C.SUMD.AVERAGE 27.不能作为索引关键字的数据类型是（） A.数值型 B.备注型 C.日期型 D.字符型 28.以下各表达式中，运算结果为数值型的是（ ） 。 A. 96 B. “D”$”ASD” C. TIME()+9 D. LEN(SPAC(8)-9 29.执行下列命令后显示的结果是（ ） 。 W=”123.45” ?”674”+ C. D.: 199.在数据库设计器中，建立两个表之间的一对多联 系是通过

9、（）索引实现的。 A、一方表的主索引，多方表的普通索引 B、一方表的主索引，多方表的普通索引或候选 索引 C、一方表的普通索引，多方表的主索引或候选 索引 D、一方表的普通索引，多方表的候选索引或普 通索引 200.下面字符串为非法字符串是（）。 A、a stringB、It is adring C、a stringD、It is a string 二、判断题二、判断题 1、在第一次给数组或数组元素赋值前其初始值是. F.。 正确 2、同一个元素在程序执行过程中可以取得不同类型 的数据。正确 3、SET TALK ON/OFF 命令决定是否显示数据处理命 令的响应信息。正确 4、程序文件可以在

10、命令窗口执行。 错误 5、程序设计的严谨性就是程序设计者最好具有严密 的逻辑思维能力，因为计算机执行程序只能是严格地 按照指令的含义执行， 其本身没有思维和判断能力。 正确 6、Visual FoxPro 数据库管理系统的数据模型是网状 型。 错误 7、Visual FoxPro 有 3 种工作方式，即命令、程序和 菜单方式。 正确 8、可以链接或嵌入 OLE 对象的字段类型是通用型。 正确 9、选择当前未使用的最小编号工作区的命令是 SELECT 1。错误 10、表是由结构和记录数据两部分组成的。正确 11、赋值命令“STORETO ”与“”区别在于： “STORETO ”可以同时给多个变量

11、赋值，而 “”只能一次给一个变量赋值。 正确 12、Visual FoxPro 数据库管理系统的数据模型是网 状型。 错误 13、执行命令 ?AT（ABC,ABCABABC,2），屏幕显 示的结果为：6 正确 14、VFP 中命令执行方式每一条命令具有相对的独立 性，操作直观，每键入一条命令都必须等待执行完毕 后方能键入下一条命令，是一种交互执行方式，执行 完成的命令序列不能保存，自动化程度低，处理问题 效率低。正确 15、Visual FoxPro 命令的书写规则规定，命令中的 英文字符是区分大小写的。错误 16、内存变量分为简单变量与数组两种。 正确 17、数组数据替代表的当前记录的命令

12、GATHER FROM。 正确 18、在 Visual FoxPro 中，对表进行索引后，将产生 一个新的表。 错误 19、VFP 中命令执行方式每一条命令具有相对的独立 性，操作直观，每键入一条命令都必须等待执行完毕 后方能键入下一条命令，是一种交互执行方式，执行 完成的命令序列不能保存，自动化程度低，处理问题 效率低。正确 20、在程序中，若循环体中有 EXIT 子句，当执行到 EXIT 时，退出循环体，执行循环体后面的语句。正确 21、COUNT 命令的功能为：统计当前表中指定范围内 满足条件的记录的个数。正确 22、VFP 命令的书写规则规定，命令中的英文字符是 区分大小写的。错误 2

13、3、输入命令 ACCEPT 只能接受字符串，但用户在输 入字符串时不需要加定界符。正确 24、在程序中，若循环体中有 EXIT 子句，当执行到 EXIT 时，退出循环体，执行循环体后面的语句。正确 25、在程序中，若循环体中有 LOOP 子句，当执行到 LOOP 时，退出循环体，执行循环体后面的语句。错误 26、数值型数据用来表示数量，没有定界符，可以是 整数或小数，也可以是分数。错误 27、备注型数据用字母“M”表示，长度固定为 4 个 字节，并用这 4 个字节来引用备注的实际内容。错误 28、执行命令 ?AT（ABC,ABCABABC,2），屏幕显 示的结果为：6 正确 29、Visual

14、 FoxPro 定义的日期运算符有两个：“+”， “-”。“-”只用于一个日期减去一个整数，其结果 为一个新的日期。错误 30、计算与显示命令规定：？是在同行显示结果， ？是在下一行显示结果。错误 31、数组在使用前，必须定义。正确 32、二维数组各元素在内存中按行存储，因此，它可 以用一维数组来表示。 正确 33、区别 CLOSE ALL 与 CLEAR 命令的作用都是关 闭所有打开的 VFP 文件。 错误 34、程序执行方式克服了单条命令执行方式的缺点， 充分发挥了计算机“程序存储”、“程序控制”、完 全自动高速处理数据的特点。 正确 35、VFP 程序设计语言的特点是语言丰富、自成体系；

15、 人机对话，交互执行方式；高效的非过程化命令功能。 正确 36、Visual FoxPro 规定，逻辑型数据用.T.或.Y.表 示逻辑真，用.F.或.N.表示逻辑假，所以逻辑型数据 有四个值。错误 37、二维数组各元素在内存中按行存储，因此，它可 以用一维数组来表示。 正确 38、区别 CLOSE ALL 与 CLEAR ALL 命令的作用都是 关闭所有打开的 VFP 文件。错误 39、输入命令 ACCEPT 只能接受字符串，但用户在输 入字符串时不需要加定界符。正确 40、VFP 程序设计语言的特点是语言丰富、自成体系； 人机对话，交互执行方式；高效的非过程化命令功能。 正确 41、函数 L

16、EN（“2006 年 CHINA 大事回顾”）的返回 结果是 18。错误 42、函数 SUBSTR（“国际互连网”，4，2）的返回值 是“连网”。 错误 43、INT（SQRT（26）的值是 5。正确 44、程序是为完成某项任务而执行的命令序列，它们 按一定的要求有序地编排在一起并以文件的形式储存 在磁盘上， 这种文件在 VFP 中称为命令文件，亦称 程序文件。正确 45、在 Visual FoxPro 中，表文件的扩展名为.DBC。 错误 46、Visual FoxPro 规定，逻辑型数据用.T.或.Y.表 示逻辑真，用.F.或.N.表示逻辑假，所以逻辑型数据 有四个值。 错误 47、二维数

17、组各元素在内存中按行存储，因此，它可 以用一维数组来表示。 正确 48、区别 CLOSE ALL 与 CLEAR ALL 命令的作用都是 关闭所有打开的 VFP 文件。错误 49、输入命令 ACCEPT 只能接受字符串，但用户在输 入字符串时不需要加定界符。正确 50、VFP 程序设计语言的特点是语言丰富、自成体系； 人机对话，交互执行方式；高效的非过程化命令功能。 正确 51、内存变量的类型取决于赋值数据的类型。正确 52、将表的当前记录值赋给某数组的命令是 GATHER TO。错误 53、设置字符串精确比较的命令是 SET EXACT ON/OFF。正确 54、字符串比较符有“”和“”两种

18、。“” 表示为精确比较，只有当两个字符串完全相同时，结 果为.T.。错误 55、Visual FoxPro 的变量有两类，字段变量和内存 变量。字段变量在建立数据库表时生成，只存在于数 据库表中。正确 56.内存变量的类型取决于赋值数据的类型。正确 57、将表的当前记录值赋给某数组的命令是 GATHER TO。错误 58、设置字符串精确比较的命令是 SET EXACT ON/OFF。正确 59、字符串比较符有“”和“”两种。“” 表示为精确比较，只有当两个字符串完全相同时，结 果为.T.。错误 60、Visual FoxPro 的变量有两类，字段变量和内存 变量。字段变量在建立数据库表时生成，

19、只存在于数 据库表中。正确 61、简单变量可用赋值语句定义，数组变量用 DIMENSION 命令定义。正确 62、将表的多条记录数据传送给数组的命令 COPY TO ARRAY。正确 63、SET CENTURY ON 为用四位格式完整显示年份。 正确 64、程序是为完成某项任务而执行的命令序列，它们 按一定的要求有序地编排在一起并以文件的形式储存 在磁盘上， 这种文件在 VFP 中称为命令文件，亦称 程序文件。正确 65、LEN(STR(1234.587)的值是 4 错误 66、COUNT 命令的功能为：统计当前表中指定范围内 满足条件的记录的个数。正确 67、INPUT 命令输入的数据可以

20、是常量、变量，也可 以是一般的表达式，但不能不输入任何内容直接按回 车。正确 68、输入命令 ACCEPT 只能接受字符串，但用户在输 入字符串时不需要加定界符。正确 69、备注型数据用字母“M”表示，长度固定为 4 个 字节，并用这 4 个字节来引用备注的实际内容。错误 70、执行命令 ?AT（ABC,ABCABABC,2），屏幕显 示的结果为：6。正确 71、内存变量的类型取决于赋值数据的类型。正确 72、在第一次给数组或数组元素赋值前其初始值是空 （NULL）。错误 73、VisualFoxPro 规定，逻辑型数据用.T.或.Y.表示 逻辑真，用.F.或.N.表示逻辑假，所以逻辑型数据有

21、 四个值。错误 74、将表的当前记录值赋给某数组的命令是 SCATTER TO。正确 75、设置字符串精确比较的命令是 SET EXACT ON/OFF。正确 76、同一个元素在程序执行过程中可以取得不同类型 的数据。正确 77、程序编写好以后，可以长期存放在外存储器上， 当要执行程序的功能时，可以即刻运行程序，系统会 自动地将程序调入计算机内存，自动连续地执行程序 中的有关命令，从而高效解决各种复杂问题。正确 78、VFP 中程序的注释命令有 文件删除命令为DELETE FILE。正确 80、二维数组各元素在内存中按行存储，因此，它可 以用一维数组来表示。 81、程序设计就是正确地组织计算机

22、有效地执行每一 条指令或语句。错误 82、数组在使用前，必须定义。正确 83、区别 CLOSE ALL 与 CLEAR ALL 命令的作用都是 关闭所有打开的 VFP 文件。错误 84、简单变量可用赋值语句定义，数组变量用 DIMENSION 命令定义。正确 85、程序执行方式克服了单条命令执行方式的缺点， 充分发挥了计算机“程序存储”、“程序控制”、 完全自动高速处理数据的特点。 正确 86、程序是为完成某项任务而执行的命令序列，它们 按一定的要求有序地编排在一起并以文件的形式储存 在磁盘上，这种文件在 VFP 中称为命令文件，亦称程 序文件。正确 87VFP 程序设计语言的特点是语言丰富、

23、自成体系； 人机对话，交互执行方式；高效的非过程化命令功能。 正确 88、将表的多条记录数据传送给数组的命令 COPY TO ARRAY。正确 89、SET CENTURY ON 为用四位格式完整显示年份。 正确 90、将数组数据（一维或二维形式）追加到表中的命 令 APPEND FROM ARRAY。正确 91、程序文件可以在命令窗口中执行。错误 92、内存变量分为简单变量与数组两种。正确 93、SET TALK ON/OFF 命令决定是否显示数据处理命 令的响应信息。 正确 94、程序设计就是根据任务设计、编写和调试程序的 过程。 正确 95、VFP 程序（命令文件）的组成要素主要为命令、

24、 函数、结构控制语句。 正确 96、数值型数据用来表示数量，没有定界符，可以是 整数或小数，也可以是分数错误 97、字符型数据之间可以进行数学运算，每个字符占 一个字节。错误 98、数值型数据在表示很大或很小的时候可以使用科 学记数法。如：5.2E6 表示。正确 99、逻辑型数据用字母“L”表示，它表示逻辑判断 的结果，长度固定为 1 个字节。正确 100、执行命令 ?AT（大学,武汉大学），屏幕显 示的结果为：5 正确 101、数据库表中可以使用长字段名，最大长度为 128 个字符 正确 102、执行命令 ?AT（ABC,ABCABABC,2），屏幕 显示的结果为：6 正确 103、数值转换

25、字符函数的格式为：STR（，）， 其中 n 表示转换成字符串后小数点后面的字符个数。 正确 104、浮点型是字段变量特有的而内存变量所没有的 数据类型 正确 105、Visual FoxPro 定义的字符串运算符有两个： +，-。+为字符串精确连接符， 它把两个字符串原封不动连接起来，形成一个新的字 符串。正确 106、赋值命令“STORETO ”与“”区别在于： “STORETO ”可以同时给多个变量赋值，而 “”只能一次给一个变量赋值。正确 107、若内存变量名和当前打开的表中的一个字段名 都为 NAME，？NAME 后显示字段变量。正确 108、VFP 程序（命令文件）的组成要素主要为命

26、令、 函数、结构控制语句。正确 109、表中姓名宽度为 6，入学（总分为 6，小数位为 2），特长为备注型共 3 个字段，表的记录长度为 18 错误 110、Visual FoxPro 规定，变量名必须以字母、汉字 或下划线开头，其后可以是字母（汉字） 、数字和下 划线。 正确 三、程序改错题三、程序改错题 1.下列程序为求 s=1-1/3+1/5-1/7+.-1/99 之值, (精确到小数后两位), 程序中有错误。 改正后运行 程序，将程序执行结果填入答案框内。 set talk off s=0 n=1 do while n500 EXIT ENDIF STORE 3*X TO X ENDD

27、O ?Y SET TALK ON RETURN Do while .f. 改为 Do while .t. 3.已知 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 1 TO S 改为 s=0 J=1 DO WHILE J= 的最小的整数 N。 程序中有错误。 改正后运行程序，将程序执行结果填入答案框内。 set talk off s=0 n=1 do while s= 改为 s=2

28、5 中止。 程序中有错误。改正后运行程序，将程序执行结果填 入答案框内。 SET TALK OFF CLEAR s=0 改为 s=1 k=1 DO WHILE .T. s=s*k IF k=25 EXIT ENDIF k=k+4 ENDDO ?s RETURN 修改后：set talk off s=0 n=1 i=1 do while n=99 s=s+i/n n=n+2 i=-i enddo ?s return 6.下面的程序是求 1 到 500 的偶数立方和与奇数 立方和之差。程序中有一处错。 更正程序中的错误,运行更正后的程序,记录运行 结果,将结果填入答题窗口内。 SET TALK O

29、FF STORE 0 TO I,S1,S2 DO WHILE I=500 改为 I500 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 7.下面的程序是计算 1*2*3*4*5.的积，要求其 积大于 10000 后结束程序运行，输出乘积的值。程序 有一处错误。更正程序中的错误,运行更正后的程序, 记录运行结果,将结果填入答题窗口内。 SET TALK OFF STORE 1 TO X,Y DO WHILE X10000 LOOP 改为 EXIT ENDIF ENDD

30、O ? Y SET TALK ON RETURN 8. 已知一个数列的前三个数是 1,2,3,从第四个数起, 每个数都是前三个数之和。下面的程序是求出该数列 的第 35 个数。改正程序中的错误后运行程序，将程 序执行结果填入答案框内。 SET TALK OFF DIME A(35) A(1)=1 A(2)=2 A(3)=3 I=4 DO WHILE I=35 改为 I=35 A(I)=A(I-1)+A(I-2)+A(I-3) I=I+1 ENDDO ? A(35) SET TALK ON RETURN 9. 下面的程序是求在 1,2,3,4,.,10 这 10 个数中, 任意选 两个不同的数,

31、求它们的和能被 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 四、程序填空题四、程序填空题 1. 下列的程序是求 S=8!+9!+10!的程序.在下列程序 中填上缺少的语句或 另外编写程序，(程序名由考

32、生 自定)运行程序，将结果填入答题窗口。 SET TALK OFF CLEAR S=0 I=8 DO WHILE I=10 STORE 1 TO T,J DO WHILE J=为止的最大阶乘数 n。 SET TALK OFF CLEAR s=0 其它方法: Set talk off Clear S=0 T=1 For i=1 to 10 T=t*i If i=8 S=s+t Endif Endfor ?s 其它方法: Set talk off Clear S=0 For i=8 to 10 T=1 For j=1 to i T=t*j Endfor S=s+t Endfor ?s n=3 DO

33、 WHILE .T. T=1 FOR I=1 TO n T=T*I NEXT s=s+t IF S= EXIT ENDIF N=n+2 ENDDO ?n 其它方法: Set talk off Clear S=0 I=3 Do while .t T=1 For j=1 to i T=t*j Endfor S=s+t If s= Exit endif I=i+2 Enddo ?s 3. 下面的程序是求出 1 到 5000 之间的能被 5 整除的 前若干个奇数之和，当和大于 500 时退出。在下列程 序中填上缺少的语句或另外编写程序， (程序名由考生自定）运行程序，将结果填入答题 窗口。 SET T

34、ALK OFF CLEAR I=1 S=0 DO WHILE I5000 AND S=500 IF mod(I,5)=0 and mod(I,2)=1 S=S+I ENDIF I=I+1 ENDDO ?S SET TALK ON RETURN 4.设 S=1+1/2+1/3+.+1/N，N 为正整数。编程求使 S 不超过 10 的最大的 N.(程序名由考生自定)。在下 列程序中填上缺少的语句或另外编写程序，运行程序， 将结果填入答题窗口。 set talk off clear s=0 i=1 do while s=5000 j=2 do while j=3 and mod(I,2)=1 S=s

35、+t Endif If s= Exit endif I=i+1 Enndo ?s 其它方法: Set talk off Clear S=0 For i=1 to 5000 step 2 If mod(I,5)=0 S=s+i Endif If s500 Exit Endif Endfor ?s 其它方法: set talk off clear n=0 for i=9999 to 5000 step -1 for j=2 to i-1 if mod(I,j)=0 exit endif endfor if i=j n=n+1 endif if n=15 exit endif endfor ?i S

36、ET TALK OFF I=9999 T=0 do while i=5000 j=2 do while j=600 j=2 do while jbc，且 a+b+c100，求满足条件 1/(a2) +1/(b2)=1/(c2)的共有多少组。 clear n=0 for a=1 to 99 for b=1 to a-1 for c=1 to b-1 if a+b+c100 and 1/a2+1/b2=1/c2 n=n+1 endif next next next ?n return 5.编程序求出 1 到 5000 之间同时满足除 7 余 2 和除 9 余 5 条件的数的和。 clear s=0

37、 for i=1 to 5000 if i%7=2 and i%9=5 s=s+i endif next ? “和：”, s return 6.编程序，计算在 0 至 50 的范围内有多少个数，其 每位数的乘积小于每位数的和。 clear n=0 for i=10 to 50 a=i%10 b=int(i/10) if a*b6 exit endif enddo ? n-1 return 10.有 30 个人在一家小餐馆里用餐，其中有男人、女 人和小孩。每个男人花了 3 元，每个女人花了 2 元， 每个小孩花了 1 元，一共花去 50 元,问有几种组合？ set talk off clear

38、n=0 for one=0 to 30 for two=0 to 15 for three=0 to 10 if one+two+five=30 and one+two*2+three*3=50 n=n+1 endif endfor endfor endfor ?n set talk on Return 11.编写程序，求共有几组 I、j、k 符合算式 ijk+kji=1333，其中 I、j、k 是 09 之间的一位整数。 clear n=0 for i=0 to 9 for j=0 to 9 for k=0 to 9 if (i*100+j*10+k)+(k*100+j*10+i)=1333

39、 n=n+1 endif next next next ?n return 12.一个数如果刚好与小于它的所有因子之和相等， 则称该数为一个“完数” ，如：6=1+2+3，则 6 就是一 个完数。求出 1000 以内的所有的完数之和。 clear s=0 for x=1 to 1000 t=0 for i=1 to x-1 if x%i=0 t=t+i endif next if x=t s=s+x endif next ?s 程序设计分类程序设计分类 第第 1 1 类题目：类题目： 求在某范围内的，满足被某数整除的数的个数（或这 些数的和） 如：1编程序求出 100 到 800 之间同时满足

40、除 4 余 1 和除 5 余 3 条件的数的个数。 clear n=0 for i=100 to 800 if mod(i,4)=1 and mod(i,5)=3 n=n+1 endif endfor ?n 2编程序，计算在 0 至 70 的范围内有多少个数，其 每位数的乘积小于每位数的和。 clear n=0 for i=10 to 70 a=int(i/10) b=i%10 if a*b6100 exit endif i=i+1 enddo ?i 3 2!+4!+6!.+10! clear s=0 t=1 i=1 for i=1 to 10 t=t*i if mod(i,2)=0 s=s+

41、t endif endfor ?s 4 3!+5!+7!+.+9! clear s=0 t=1 i=1 for i=1 to 10 t=t*i if mod(i,2)=1 and i=3 s=s+t endif endfor ?s 5求 15! clear s=0 for i=1 to 15 s=s*i endfor ?s 第第 3 3 类题目：求某范围内的数据之和，当累加数大于类题目：求某范围内的数据之和，当累加数大于 某个数时，累加结束某个数时，累加结束 1下面和程序是求 1+3+5+7+9+11+这样的奇数之和.若 累加数大于 10000 时,则结束累加。 clear s=0 i=1 d

42、o while .t. s=s+i if s10000 exit endif i=i+2 enddo ?s 2设 S=1+1/2+1/3+.+1/N,N 为正整数。编程求使 S 不超过 8 的最大的 N。 clear s=0 i=1 do while .t. s=s+1/i if s8 exit endif i=i+1 enddo ?i-1 3设 S=1+1/2+1/3+.+1/N,N 为正整数。编程求当 算到 100 项时 S 的值为多少?精确到小数点后两位。 set talk off clear s=0 for i=1 to 100 s=s+1/i endfor ?str(s,10,2) 4编写程序，求出 1 到 5000 之间能被 3 整除的前若 干个奇数之和，当和大于 2000 时程序退出。 clear s=0 for i=1 to 5000 step 2 if mod(i,3)=0 s=s+i endif if s2000 exit endif endfor ? s 5编写程序，求 3+6+12+24+48+ 之和。当累加和