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

更新时间:2024-03-06 00:26:01 阅读量: 综合文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

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

一、单项选择题 1.在有关数据库的概念中,若干记录的集合称为( )。

A.文件 B.字段 C.数据项D.表 标准答案D 2.要计算职称为副教授或教授的工资总额,下列命令中错误的是( )。 A.工资 FOR 职称=\副教授\职称=\教授\

B.SUM ALL 工资 FOR 职称=\副教授\职称=\教授\ C.SUM 工资 FOR \教授\职称

D.SUM 工资 FOR 职称=\副教授\职称=\教授\ 标准答案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.A B.BCD C.A BC D.ABCD 标准答案C 6.在以下四组函数运算中,结果相同的是( )。

A.LEET(\与SUBSTR(\ B.YEAR(DATE())与SUBSTR(DTOC(DATE()),7,2) C.VARTYPE(\与VARTYPE(36-5*4)

D.假定A=\与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

第 1 页 共 14 页 2008-06-13

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.日期型 17.用COPY STRU TO <文件名> 形成的文件是( )。

A.表文件 B.索引文件 C文本文件 D.正式文件 18.不能作为索引关键字的数据类型是( )。

A.数值型 B.备注型 C. 日期型 D.字符型 19.显示数据表当前记录内容的命令是( )。

A.LIST NEXT 1 B.DISPLAY ALL C.TYPE D. DISP REST 20.用命令DIMENSION A(4,5)定义后,A数组中共有( )个数据元素。

A.4 B.5 C.9 D.20 21.执行USE命令的作用是 ( )。 A.关闭所有工作区的数据表文件

B关闭当前工作区的数据表文件 C.关闭所有文件

D.对数据表文件没有影响 22.函数EOF()用于检测当前数据库记录指针是否达到( )。

A.文件头 B.文件尾 C.指定记录 D.第一条记录 23. 建立表文件用( ) 命令。

A.MODI COMM B.EDIT C.CREATE D.MODI STRU 24.INSERT 命令将一条新记录加到( )。

A.当前记录之前 B.当前记录之后 C.文件末尾 D.文件顶部 25.下述命令中不能关闭数据表的命令是( )。

A.USE B.CLOSE DATABASE C.CLEAR D.CLOSE ALL 26.以下表达式的结果为数值型的是( )。

A.\牛\牛群\ B.\+\

C.{^98/6/14}+15 D.{^1994-08-06}-{^1992-08-11} 27.用菜单方式打开一个数据表文件应该使用的菜单序列为( )。 A.文件→打开→表 B.文件→打开→表格

C.文件→新建→数据表 D.数据→表→ 打开 28.清除主窗口屏幕的命令是( )。

A.CLEAR B.CLEAR ALL

C.CLEAR SCREEN D.CLEAR WINDOWS 29.对于只有两种取值的字段,一般使用的数据类型是( )。

A.字符型 B.数值型 C.日期型 D.逻辑型 30.在下面的Visual FoxPro表达式中,不正确的是 ( )。

A.{^2008-05-01 10:10:10 AM}-10 B.{^2008-05-01}-DATE()

C.{^2008-05-01}+DATE() D{^2008-05-01}+1000 第 2 页 共 14 页 2008-06-13

标准答案B 标准答案A 标准答案B 标准答案D 标准答案D 标准答案B 标准答案A 标准答案C 标准答案B 标准答案C 标准答案D 标准答案C 标准答案A 标准答案D 标准答案C

31.下面( )不是VFP程序文件中可以使用的注释语句。 A.NOTE <注释内容> B.* <注释内容>

C.// <注释内容> D.&& <注释内容> 标准答案C 32.Visual FoxPro 6.0中,命令?VARTYPE(\的输出结果是( )。

A.D B.N C.C D.U 标准答案C 33.下列各字符组合中( )不是VFP中的字符常量。

A.计算机应用 B.'2008' C.\ 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}

C\选项> D.^2003/05/18}+15 标准答案B 37.逻辑型字段\团员\其值为真的正确条件表达是( )。 A.FOR 团员=T B.FOR 团员=\.\

C.FOR 团员 D.FOR 团员=\.\ 标准答案C 38.函数LEN(TRIM(SPACE(8)-SPACE(8)))返回的值是( )。

A.8 B.16 C.0< D.出错 标准答案C 39.执行LIST ALL命令后,记录指针指向( )。 A.第一条记录 B.最后一条记录

C.第一条记录的前面 D.最后一条记录的后面 标准答案D 40.逻辑运算符在运算时,其优先顺序是( )。

A.NOT AND OR B.AND NOT OR

C.OR NOT AND D.从左至右按先后顺序 标准答案A 41.显示当前表中所有带删除标记的记录的命令是( )。

A.DISPLAY FOR DELETED() B.DISPLAY FOR NOT DELETED()

C.DISPLAY DELETED() D.DISPLAY RECORD DELETED() 标准答案D 42 .当前表中含\姓名\字段,显示\李\姓的所有记录的命令是( )。

A.DISPLAY FOR \李\姓名 B.DISPLAY FOR 姓名=\李\

C.DISPLAY SUBSTR (姓名,1,2)=\李\姓名,1,1)=\李\ 标准答案B 43.下列函数中,运算结果为字符型的是( )。

A.AT(\智能ABC\ B.INT(123.456)

C.VAL(\ D.DTOC(DATE()) 标准答案D 44.在VFP中,可以对数值型同时也可以对字符型内存变量输入数据的命令是( )。

A.ACCEPT B.INPUT C.WAIT D.EDIT> 标准答案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 实发工资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.的是( )。

第 3 页 共 14 页 2008-06-13

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)之后,数组M的下标变量个数和初值分别是( )。

A.8,.F. B.4,.T. C.8,O D.>2,空值 标准答案A 56.在当前表中,查找第2个女同学的记录,应使用命令是( )。

A.LOCATE FOR 性别=\女\ B.LOCATE FOR 性别=\女\ C.LOCATE FOR 性别=\女\和 CONTINUE

D.LIST ROR 性别=\女\ 标准答案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为( )型内存变量。

第 4 页 共 14 页 2008-06-13

A.字符 B.日期 C.逻辑 D.数值 标准答案B 69.在下列VFoxPro的表达式中,结果为.T.的是( )。

A.[112]>=\ B.[张先生]>=[李先生] C.{90/09/09}-8<{90/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.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(\的输出结果是( )。

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(\,屏幕显示的结果为:6。 <标准答案>1

12.执行命令 ?AT(\,屏幕显示的结果为: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(\年CHINA大事回顾\的返回结果是18。 <标准答案>2 21.函数SUBSTR(\国际互连网\的返回值是“连网”。 <标准答案>2 22.LEN(STR(1234.587))的值是4。 <标准答案>2

23.内存变量的类型取决于赋值数据的类型。 <标准答案>1

第 5 页 共 14 页 2008-06-13

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 Y>500 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的三位数的个数。程序中有一行有错误。更正程序中的错误,运行更正后的程序,

第 6 页 共 14 页 2008-06-13

记录运行结果,将结果填入答题窗口。 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 J(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

第 7 页 共 14 页 2008-06-13

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 a<>5 and b<>5 and c<>5 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

第 8 页 共 14 页 2008-06-13

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

第 9 页 共 14 页 2008-06-13

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

第 10 页 共 14 页 2008-06-13

本文来源:https://www.bwwdw.com/article/dyba.html

Top