vfp程序设计复习题

VFP程序设计复习题一.选择题1、在有关数据库的概念中，若干记录的集合称为 ( D )。A.文件 B.字段 C.数据项 D.表2、要计算职称为副教授或教授的工资总额,下列命令中错误的是 ( D)。A.SUM 工资 FOR 职称=“副教授“.OR.职称=“教授“B.SUM ALL 工资 FOR 职称=“副教授“.OR.职称=“教授“C.SUM 工资 FOR “教授“$职称D.SUM 工资 FOR 职称=“副教授“.AND.职称=“教授“3、不允许记录中出现重复索引值的索引是 ( C )。A.主索引 B.主索引、候选索引、普通索引C.主索引和候选索引 D.主索引、候选索引和唯一索引4、在 Visual FoxPro 中，打开数据库的命令是 ( A )。A.OPEN DATABASE B.USE C.USE DATABASE D.OPEN 5、连续执行以下命令之后，最后一条命令的输出结果是 ( C )。SET EXACT OFF X=“A “ ?IIF(“A“=X,X-“BCD“,X+“BCD“)A.A B.BCD C.A BCD D.ABCD6、在以下四组函数运算中，结果相同的是 ( A )。 A.LEFT(“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+B7、在 Visual Foxpro 中，用于建立或修改过程文件的命令是 ( B)。A. MODIFY B. MODIFY COMMAND C. MODIFY PROCEDURE D. 上面 B)和 C)都对8、使用命令 DECLARE mm(2,3)定义的数组，包含的数组元素(下标变量)的个数为 ( D)。A.2 B. 3 C.5 D.69、APPEND 命令的功能是 ( B )。 A.在表的最前面插入一条记录 B. 在表的最后面插入一条记录C.在表的最前面任意位置插入一条记录 D.删除一条记录10、打开学生表及(对成绩字段的)索引文件，假定当前记录号为 200，欲使记录指针指向记录号为 100 的记录，应使用命令 ( C)。A.LOCATE FOR 记录序号=100 B.SKIP 100 C.GOTO 100 D.SKIP -10011、使用 TOTAL 命令生成的分类汇总表文件的扩展名是 ( B )。A.DBT B.DBF C.DBC D.CDX12、STORE CTOD(“05/06/98“)TO MDATE ( C)。?MDATE A.05/09/98 B.MDATE C.05/06/98 D.CTOD13、假定系统是期是 2004 年 01 月 05 日，有如下命令： ( A)。NJ=YEAR(DATE()A.2004 B.01 C.05 D.01/05/0414、有以下命令序列： USE STUDENT LIST record# 姓名 出生日期 1 欧阳惠 07/12/69 2 李明 02/24/70 3 杨霞 11/05/71 INDEX ON 出生日期 TO BD LIST 执行该命令序列后，显示记录号的顺序是 ( A)。A.1 2 3 B.3 2 1 C.2 1 3 D.1 3 215、学生表文件中共 10 条记录，其姓名字段值均为学生全名，执行如下命令序列： USE STUDENT ?recno() 最后，recno()函数的显示值是 ( A )。A.1 B.0 C.10 D.216、比较表达式的结果是 ( B)。A.字符型 B.逻辑型 C.数值型 D.日期型17、用 COPY STRU TO 形成的文件是 ( A)。A.表文件 B.索引文件 C.文本文件 D.正式文件18、不能作为索引关键字的数据类型是 （B ）。A.数值型 B.备注型 C.日期型 D.字符型19、显示数据表当前记录内容的命令是 ( A )。A.LIST NEXT 1 B.DISPLAY ALL C.TYPE D.DISP REST20、执行 USE 命令的作用是 ( B)。A.关闭所有工作区的数据表文件 B.关闭当前工作区的数据表文件C. 关闭所有文件 D.对数据表文件没有影响 21、函数 EOF()用于检测当前数据库记录指针是否达到 ( B )。A、文件头 B、文件尾 C、指定记录 D、第一条记录22、建立表文件用( ) 命令。 ( C)。A、MODI COMM B、EDIT C、CREATE D、MODI STRU23、INSERT 命令将一条新记录加到 ( B)。A、当前记录之前 B、当前记录之后C、文件末尾 D、文件顶部24、下述命令中不能关闭数据表的命令是 ( C)。A、USE B、CLOSE DATABASE C、CLEAR D、CLOSE ALL25、以下表达式的结果为数值型的是 ( D)。A、“牛“$ “牛群“ B、“wish you“wish you success“C、98/6/14+15 D、1994-08-06-1992-08-1126、用菜单方式打开一个数据表文件应该使用的菜单序列为 ( A)。A、文件打开表 B、文件打开表格C、文件新建数据表 D、数据表 打开27、清除主窗口屏幕的命令是 ( A )。A、CLEAR B、CLEAR ALL C、CLEAR SCREEN D、CLEAR WINDOWS28、对于只有两种取值的字段，一般使用的数据类型是 ( D)。A、字符型 B、数值型 C、日期型 D、逻辑型29、在下面的 Visual FoxPro 表达式中，不正确的是 ( C )。A、2008-05-01 10:10:10 AM-10 B、2008-05-01-DATE()C、2008-05-01+DATE() D、2008-05-01+100030、下面( )不是 VFP 程序文件中可以使用的注释语句。 ( C )。 A、NOTE B、* C、/ D、& 31、Visual FoxPro 6.0 中，命令?VARTYPE(“12/31/99“)的输出结果是 ( C )。A、D B、N C、C D、U32、下列各字符组合中( )不是 VFP 中的字符常量。 ( A )。 A、计算机应用 B、2008 C、“ABCDE“ D、101.86733、下列不能关闭数据表的是 ( A)。A、browse B、clear all C、close all D、close database34、执行以下命令后显示的结果是( )。 N=356.54 ?87+&N ( C )。 A、87+&N B、87356.54 C、443.54 D、出错信息35、下列表达式中， ( )表达式的值是数值。 ( B )。A、ABC+D B、2008/05/17-2008/04/09C、“123“+“456“ D、2003/05/18+1536、逻辑型字段“团员“其值为真的正确条件表达是 ( C )。A、FOR 团员=T B、FOR 团员=“.T.“ C、FOR 团员 D、FOR 团员=“.Y.“37、函数 LEN(TRIM(SPACE(8)-SPACE(8)返回的值是 ( C )。A、8 B、16 C、0 D、出错 38、执行 LIST ALL 命令后，记录指针指向 ( D )。A、第一条记录 B、最后一条记录C、第一条记录的前面 D、最后一条记录的后面39、逻辑运算符在运算时，其优先顺序是 ( A)。A、NOT AND OR B、AND NOT ORC、OR NOT AND D、从左至右按先后顺序40、显示当前表中所有带删除标记的记录的命令是 ( A )。A、DISPLAY FOR DELETED() B、DISPLAY FOR NOT DELETED()C、DISPLAY DELETED() D、DISPLAY RECORD DELETED()41、当前表中含“姓名“字段，显示“李“姓的所有记录的命令是 ( B )。A、DISPLAY FOR “李“=姓名 B、DISPLAY FOR 姓名=“李“C、DISPLAY SUBSTR (姓名,1,2)=“李“ D、DISPLAY SUBSTR (姓名,1,1)=“李“42、下列函数中，运算结果为字符型的是 ( D )。A、AT(“ABC“,“智能 ABC“) B、INT(123.456) C、VAL(“12/12/66“) D、DTOC(DATE()43、在 VFP 中，可以对数值型同时也可以对字符型内存变量输入数据的命令是 ( B )。A、ACCEPT B、INPUT C、WAIT D、EDIT44、下面( )不属于 VFP 的循环控制语句。 ( D )。A、 DO WHILE ENDDO B、FOR ENDFORC、SCANENDSCAN D、DO CASEENDCASE45、有一个表文件 GZ.DBF，已经打开。其中有字段名“基本工资”、“实发工资”。下面按“实发工资”进行索引的操作不正确的是 ( D )。A、INDEX ON 实发工资 TO SFGZ B、INDEX ON 实发工资 TAG 实发工资C、INDEX ON 实发工资 TAG 实发工资 OF GZ.CDX D、INDEX ON 基本工资 TO JBGZ46、SEEK 和 FIND 命令是作用于( ) 的快速检索命令。 ( C )A、表文件 B、命令文件( ) C、索引文件 D、排序文件47、表文件 KD.DBF 打开后，执行命令 SKIP -1，下列命令中结果为.t.的是 ( B )。A、?RECNO() B、?BOF() C、?EOF() D、DISP48、要为当前表所有职工增加 100 元工资应该使用命令 （D ）。A、CHANGE 工资 WITH 工资+100 B、REPLACE 工资 WITH 工资+100C、CHANGE ALL 工资 WITH 工资+100D、REPLACE ALL 工资 WITH 工资+10049、如果一个字段的宽度为 8,则此字段的类型不可能是 （D ）。A、数值型 B、字符型 C、日期型 D、备注型50、函数 EOF()用于检测当前数据库记录指针是否达到 （ B ）。A、文件头 B、文件尾 C、指定记录 D、对数据表文件无作用51、在 VFP 中，通用型字段 G 和备注型字段 M 在表中的宽度都是 (B )。A、2 个字节 B、4 个字节 C、8 个字节 D、10 个字节 52、执行命令 DIMENSION M(4,2)之后，数组的下标变量个数和初值分别是 ( A)。A、8,.F. B、4,.T. C、8,O D、2,空值 53、在当前表中，查找第 2 个女同学的记录，应使用命令是 ( C)。A、LOCATE FOR 性别=“女“ NEXT 2B、LOCATE FOR 性别=“女“C、LOCATE FOR 性别=“女“和 CONTINUED、LIST ROR 性别=“女“ NEXT 254、建立表文件结构时，需要定义的参数为 (C )。A、表文件名、表的大小、字段名、字段类型B、字段名、字段类型、记录个数、字段宽度C、字段名、字段类型、字段宽度、小数位数D、表文件名、字段名、字段类型、字段宽度55、ABC.DBF 是一个有两个备注型字段的表文件，使用 COPY TO PSQ 命令进行复制操作，其结果将 ( B)。A、到一个新的表文件B、得到一个新的表文件和一个新的备注文件C、得到一个新的表文件和两个新的备注文件D、显示出错误信息，表明不能复制具有备注型字段的数据56、表文件的数值型字段要求保留 2 位小数，那么该字段宽度最少应当定义成( )位。 (B )。A、2 B、3 C、4 D、557、要在当前表文件的当前记录之后插入一条新记录，应该使用命令是 ( D )。A、APPEND B、EDIT C、CHANGE D、INSERT58、DELETE 命令的功能是 ( A )。A、为当前记录做删除标记B、直接物理删除当前记录C、删除当前数据库文件的所有记录D、在提问确认后物理删除当前记录59、下列不能作为查询的命令是 ( B )。A、locate B、index C、SEEK D、FIND 60、在建立表结构(modi stru)过程中不须要输入字段宽度的字段类型是 ( C)。A、字符型 B、数值型 C、备注型 D、符型和数值型61、在以下关于索引的说明中，错误的是 ( B )。A、索引可以提高查询速度 B、索引可能降低更新速度C、引和排序具有不同的含义 D、引文件比排序文件小62、计当前工作区记录数的函数是 ( B )。A、RECNO( ) B、RECCOUNT( ) C、FCOUNT( ) D、FOUND( )63、已知 P=DATE(),则 P 为( )型内存变量。 ( B )。A、字符 B、日期 C、逻辑 D、数值64、在下列 VFoxPro 的表达式中，结果为.T.的是 ( B )。A、112=“90“ B、张先生=李先生C、90/09/09-8500EXITENDIFSTORE 3*X TO XENDDO?YSET TALK ONRETURN 答案为:2.已知 S1=1,S2=1+2,S3=1+2+3,SN=1+2+N,下面的程序求 S20 到 S80 有多少数能被 17 或 35 整除。改正后运行程序，将程序执行结果填入答案框内。SET TALK OFFI=20 N=0DO WHILE I=25 中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。 SET TALK OFFCLEARs=0k=1DO WHILE .T.s=s*kIF k=25EXITENDIFk=k+4ENDDO?sRETURN答案为:4.下面的程序是求 1 到 500 的偶数立方和与奇数立方和之差。程序中有一处错。更正程序中的错误,运行更正后的程序, 记录运行结果,将结果填入答题窗口内。SET TALK OFFSTORE 0 TO I,S1,S2DO WHILE I0A=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IF A=5 .OR. B=5 .OR. C=5S=S+1ENDIFENDIFX=X+1ENDDO答案为:6.下面的程序是求在 1,2,3,4,.,10 这 10 个数中,任意选两个不同的数,求它们的和能被 2 整除的数的总对数. (注意: 象 3+5 和 5+3 认为是同一对数). 程序中有一处错误。改正程序中的错误后运行程序，将程序执行结果填入答案框内。 SET TALK OFF CLEAR N=0 I=1 DO WHILE I(I+J)/2 N=N+1 ENDIF J=J+1 ENDDO I=I+1 ENDDO ?N SET TALK ON RETURN答案为:7.已知一个数列的前三个数是 1,2,3,从第四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第 15 个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SET TALK OFFDIME A(15)A(1)=1A(2)=2A(3)=3I=4DO WHILE I=15A(I)=A(I-1)+A(I-2)+A(I-3)I=I+1ENDDO? A(15)SET TALK ONRETURN 答案为:四、程序填空并得到答案1.下列的程序是求 S=8!+9!+10!的程序. 在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。 SET TALK OFF CLEAR S=0 I=8 DO WHILE I500EXITENDIFENDIFNEXT?“S=“,SRETURN答案为:8.编程求 S=1*3+2*4+3*5+.+198*200。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFS=0N=1DO WHILE N3000 止，求此时数列中最大的元素值。 (程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=0p=0i=1DO WHILE .t.p=p+i_ IF s3000EXITENDIFi=i+1enddo? p RETURN答案为:13.求200 ，600间奇数之和。(程序名由考生自定) 。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。Set talk offs=0for I=200 to 600 if _loopendifs=s+Iendfor? Sreturn答案为:14.编程求区间5000，9999中所有素数的个数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.Set talk off I=9999t=0do while I=5000j=2do while j=680000 为止的奇数 N。答案为:9.1!+2!+3!+n! 当 s 大于 61000 时结束累加，求 n。答案为:一、求余数类1.统计1000，4000内所有既能被 7 整除，且至少有一位数字是 6 的数的个数3.求连续 N 个不是 7 的倍数的自然数之和，当和是 101 的倍数时显示最后的自然数。4.编程序求在 3000 以内被 17 或者 23 整除的正整数数的个数。5.下面的程序是求 1 到 2000 之间的不能被 3 或 5 或 7 整除的整数之和。6.编写程序，求 11000 之间能被 3 整除的数的个数。7.编写程序，求在 1000 以内能被 17 或 23 整除的正整数的个数。8.编写程序，求出 1-5000 以内能被 3 或者 7 整除数的个数。9.编写程序，求 1 到 2000 之间的不能被 3 或 5 或 7 整除的整数之和。10.编程序求出 1-5000 以内能被 37 整除的整数之和。11.编写程序，求100，5000既能被 6 整除又能被 7 整除的数之和。12.求551,732之间所有不能被 3 整除,但能被 8 整除的整数的和。13.计算 10005000 之间能被 13 或 15 或 17 整除的数。问：这些整数的和是多少？14.编程序求出 300 到 500 之间同时满足除 3 余 2 和除 5 余 3 条件的数的个数。15.编程序求出 1-800 以内的能被 7 整除的数的平方和。16.求出100，500以内同时满足除以 7 余 1，除以 5 余 3,除以 3 余 1 的所有整数个数。17.求105，625间能被 3 和 5 整除的自然数之和。18.编程序统计 11000 能被 3 整除的数的个数19.编程序求出 1 到 5000 之间的能被 5 整除的前若干个偶数之和，当和大于 500 时程序退出20.编程序求出 100 到 200 之间同时满足除 3 余 2 和除 5 余 3 条件的数的个数。21.编程序求在 3000 以内被 17 或者 23 整除的正整数数的个数22.统计区间1000，9999内所有既能被 3 整除，且千位数字与个位数字之和为 8 的整数的个数。23.编程序求出 1-100 以内的能被 9 整除的数的平方和。24.求 1 ， 999 之间能被 3 整除，且至少有一位数字是 5 的所有正整数的个数。25.编程序求出 100 到 500 之间同时满足除 3 余 2 和除 5 余 3 条件的数的个数。26.编程序求出 1-200 以内的能被 7 整除的数的平方和。27.求 1 到 3000 之间的能被 13 或 15 或 17 整除的整数之和.28.统计区间1000，9999内所有既能被 3 整除，且千位数字与个位数字之和为 8 的整数的个数。29.下列程序求出所有能被 17 整除且不含重复数字的三位数的和。30.求出100，500以内同时满足除以 7 余 1，除以 5 余 3,除以 3 余 1 的所有整数的个数.二、应用题类1.有 30 个人在一家小餐馆里用餐，其中有男人、女人和小孩。每个男人花了 3 元，每个女人花了 2 元，每个小孩花了 1元，一共花去 50 元。问其中小孩有几人？2.有 36 个学生一起买小吃，共花钱 120 元，其中每个大学生花 4 元，每个中学生花 2 元，每个小学生花 1 元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0 的解）？3.设某国今年的国民生产总值为 45600 亿元 , 若今后每年以 8% 的增长率增长 ,计算多少年后能实现国民生产总值翻两番 ?4.某工厂某年生产总值为 3 千万元，其年生产总值增长率为 10%，问多少年后其生产总值会翻一翻？5.用 50 元钱兑换一元、两元和五元的纸币的方法有多少种？（注：一元、两元、五元的纸币数可以为 0）。6.计算 5 元、2 元和 1 元兑换 100 元的方法有多少种7.把 18 元钱分成一元、二元和五元的纸币且纸币数共为 10 张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为 0）三、数列类1.设 s=1+1/2+1/3+1/n, n 为正整数。编程求使 S 刚好超过 6 时的 n。2.设 S=1+1/2+1/3+1/N,N 为正整数。编程求当算到 1000 项时 S 的值为多少?精确到小数点后两位3.求 1+3+5+7+9+11+.这样的奇数之和 .若累加数大于 500 时,则结束累加。4.已知 s=1-1/2+1/3-1/4+1/5-1/6+-1/100，求 S 的值。5.已知一个数列的前 2 项为 0，1，后面各项均为前 2 项之和，求第 40 项。6.编程序求出 2+4+8+16+32+ 这样的数之和。如果累加数大于 500 时，则程序终止并输出结果。7.编程序求 1+3+5+7+9+ 这样的数之和。如果累加数大于 1200 时，则程序终止并输出结果。8.编程求 S=31+32+33+3209.已知 S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+n,S=S1+S2+Sn 以下程序求当 n=10 时，S 的值.10.求 s=2+(2+4)+(2+4+6)+(2+4+6+8)+，求直到 s=60000 为止。11.求 1 到 1000 的偶数平方和与奇数平方和之差。12.编程序求 199 的平方根的和并输出结果。13.编写程序,求 1100 所有整数的平方和。14.编写程序，求在四位数的偶数中，所有各位数字之和是 30 的倍数的数的和。15.编写程序，求 155 的平方根的和并输出结果（按四舍五入的方式保留小数点后面第两位）。16.编写程序，求在四位数的奇数中，所有各位数字之和是 25 的倍数的数的和。17.四位数的各位数字的平方和等于 100，问其中最大的一个是多少？18.编写程序，计算在 0 至 50 的范围内有多少个数，其每位数的乘积大于每位数的和。19.编写程序，求在四位数的偶数中，所有各位数字之和是 30 的倍数的数的和。20.编写程序，求在四位数的奇数中，所有各位数字之和是 30 的倍数的数的和。21.编程序求 300850 的平方根的和并输出结果。（保留小数点两位）22.求200，600间奇数之和。四、求阶乘类1.编程求 s=1!+2!+3!+9!2.s=3!+5!+7!+.+n!，求直到 s=680000 为止的最大阶乘数 n。3.求 s=3!+5!+7!+，直到 s=28000 为止。4.求这样一个三位数，该三位数等于其每位数字的阶乘之和。即：abc=a!+b!+c!五、特殊类（1）回文数1.将一个数的数码倒过来得到的新数叫原数的反序数。如果一个数等于他的反序数，则称他是一个对称数。求不超过 10000 的最大的对称数。2.设 N 是一个四位数，它的 9 倍恰好是其反序数（例如：1234 的反序数是 4321），求 N 的值。3.编写程序，求三位数中所有回文数之和。所谓回文数，就是对正整数 N 从左到右读与从右到左读其结果值相同的数。如“101“。（2）素数4.编程求出 10-1000 以内按从小到大顺序排在第 10 位的回文素数。所谓回文素数，就是对正整数 N 从左到右读与从右到左读其结果值相同且都为素数。如“101“。5.求3，100内的素数的个数。素数为除了能被 1 和本身整除之外，不能被其它数整除的数。（3）阿姆斯特郎数6.水仙花数是一个三位正整数 , 它等于它的各位数字的立方之和 . 例如 :153=13+53+33, 所以 153 是水仙花数 . 试求所有的水仙花数之积。 7.一个数等于它各位数字的立方和，该数称为阿姆斯特郎数。求 3 位数中的阿姆斯特郎数之和.(4)自守数8.编程求出 10-10000 以内按从小到大顺序排在第 5 位的自守数。所谓自守数，就是该数平方后的尾数等于该数自身的自然数。如 25*25=625，76*76=5776。（5）完数9.数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6 就是一个完数。求出 1000 以内的所有的完数之和。（6）其它10.编写程序，求共有几组 I，J ，K 符合 IJK+KJI=1333，其中 I，J，K 是 09 之间的一位整数。11.已知 abc，且 a+b+c0 OR MOD(I,5)0S=S+IENDIFENDFOR?SRETURN2、统计1000，4000内所有既能被 7整除，且至少有一位数字是 6的数的个数 ；CLEARN=0 &计数变量FOR I=1000 TO 4000A=I%10 &个位数字B=INT(I/10)%10 &十位数字C=INT(I/100)%10 &百位数字IF I%7=0 AND (A=6 OR B=6 OR C=6)N=N+1ENDIFENDFOR?NRETURN3、求连续 N个不是 7的倍数的自然数之和，当和是 101的倍数时显示最后的自然数。 CLEARS=0FOR N=1 TO 10000000IF S0S=S+NENDIFENDFOR?”最后的自然数是:”,N-1RETURN4、一个自然数被 8除余 1，所得的商被 8除也余 1，再将第二次 的商被 8除后余 7，最后得到一个商为 a。又知这个自然数被 17 除余 4，所得的商被 17除余 15，最后得到一个商是 a的 2倍。编写程序求这个自然数。CLEARFOR I=1 TO 10000000000A=INT(INT(INT(I/8)/8)/8)B=INT(INT(I/17)/17)IF I%8=1 AND INT(I/8)%8=1 AND INT(INT(I/8)/8)%8=7 AND I%17=4 AND INT(I/17)%17=15 AND B=2*A?IEXITENDIFENDFOR RETURN二、数列类1、设 s=1+1/2+1/3+1/n, n为正整数。编程求使 S刚好超过 6时的 n；CLEARN=0S=0DO WHILE .T.IF S6EXITENDIFN=N+1S=S+1/NENDDO?”所求 N是：”,NRETURN2、已知 s=1-1/2+1/3-1/4+1/5-1/6+-1/100，求 S的值；CLEARS=0FOR N=1 TO 100S=S+(1/N)*(-1)(N-1)ENDFOR?SRETURN3、已知一个数列的前 2项为 0，1，后面各项均为前 2项之和，求第 40项。CLEARDIMESION A(40)A(1)=0A(2)=1FOR N=3 TO 40A(N)=A(N-1)+A(N-2)ENDFOR?A(40)RETURN4、编程求 S=31+32+33+320 CLEARS=0FOR N=1 TO 20S=S+3NENDFOR?SRETURN5、已知 S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+n,S=S1+S2+Sn 写程序求当 n=10时 S的值CLEARS=0FOR N=1 to 10sub=0FOR I = 1 to NSUB=SUB+IENDFORS=S+SUBENDFOR?SRETURN6、求 s=2+(2+4)+(2+4+6)+(2+4+6+8)+，求直到 s=60000为止CLEARS=0FOR N=1 TO 10000000IF S=60000EXITENDIFSUB=0FOR I=2 TO 2*N STEP 2SUB=SUB+IENDFORS=S+SUBENDFOR?SRETURN7、编写程序，求 155的平方根的和并输出结果（按四舍五入的方式保留小数点后面第两位）CLEARS=0FOR I=1 TO 55S=S+SQRT(I)ENDFORS=ROUND(S,2)?SRETURN三、阶乘类1、 编程求 s=1!+2!+3!+9! CLEARS=0FOR N=1 TO 9SUB=1FOR I=1 TO NSUB=SUB*IENDFORS=S+SUBENDFOR?SRETURN2、 求 s=3!+5!+7!+N！，直到 s=28000为止,并求最大的 N。CLEARS=0FOR N=3 TO 1000000 STEP 2IF S=28000EXITENDIFSUB=1FOR I=1 TO NSUB=SUB*IENDFORS=S+SUBENDFOR?”和=”,S?”最大的 N=”,N-2RETURN 3、求这样一个三位数，该三位数等于其每位数字的阶乘之和。即：abc=a!+b!+c!CLEARFOR A=1 TO 9FOR B=0 TO 9FOR C=0 TO 9M=A*100+B*10+CS1=1FOR I=1 TO AS1=S1*IENDFORS2=1FOR I=1 TO BS2=S2*IENDFORS3=1FOR I=1 TO CS3=S3*IENDFORIF M=S1+S2+S3?MENDIFENDFOREND