湖南省非计算机专业等级考试试题(FOXPRO一级选择题).doc

湖南省非计算机专业等级考试试题（FOXPRO一级选择题）1、 要求一个数据库文件的数值型字段具有5位小数，那么该字段的宽度最少应当定为（ ）A、5位 B、6位 C、7位 D、8位2、某数值型字段的宽度定为6，小数位为2，该字段所能存放的最小数值是（ ）A、0 B、-999.99 C、-99.99 D、-9999.993、可以使用5种不同的数据类型描述数据库文件中的字段，它们分别是字符型（C）、数值型（N）、日期型（D）、逻辑型（L）和（ ）A、屏幕型（S） B、备注型（M） C、浮点型（F） D、全局型（PUB）4、在FOXPRO数据库管理系统中，程序文件的扩展名为（ ）A、DBF B、 DBT C、PRG D、FTP5、在FOXPRO中，内存变量赋值后，（ ）。A、可在内存中长期保存在 B、可以在数据库长期保存C、不重新赋值就可长期保存 D、存入内存文件中可以长期保存6、下列FOXPRO表达式运算结果为日期型的是（ ）。 A、05/05/97+2 B、CTOD（04/05/97）-DATE（） C、CTOD（04/05/97）-3 D、DATE（）+04/05/977、职工工资数据库文件按基本工资字段升序索引后，再按GO TOP 命令，此时当前记录是（ ）。A、1 B、基本工资最少的记录号 C、0 D、基本工资最多的记录号8、在FOXPRO状态下执行命令？TYPE（04/05/97）后，屏幕上显示的结果是（ ）。A、C B、N C、 04/05/97 D、D9、FOXPRO函数ROUND（123456.789,-2）的值是（ ）。 A、123456 B、123500.000 C、123456.700 D、-123456.7910、MODIFY STRUCTURE命令的功能是（ ）。A、修改字段的类型 B、增加新的字段 C、修改字段的名称 D、修改库文件的结构11、DELETE命令的作用是（ ）。A、为当前记录做删除标记 B、直接物理删除当前记录C、删除当前数据库文件的所有记录 D、在提问确认后物理删除当前记录12、有如下命令序列： GO 50 SKIP ？RECN（）设当前数据库文件有50条记录，执行以上命令序列后输出的结果是（ ）。A、50 B、51 C、EOF D、-113、执行LOCATE FOR 成绩60 命令之后,要将记录定位在下一个成绩小于60分的记录上,应使用命令( ).A、LOCATE WHILE 成绩60 B、SKIP C、LOCATE FOR 成绩60 D、CONTINUE14、在FOXPRO中，COPY TO ABC FOR 命令相当于完成的关系运算是( ). A、连接操作 B、投影操作 C、选择操作 D、拷贝操作15、在以下各种说法中，正确的是（ ）。 A、DELETE ALL 、ZAP和PACK的功能各不相同 B、ZAP和PACK的功能相同C、DELETE ALL和ZAP功能相同 D、DELETE和PACK功能相同16、对两个数据库文件进行物理连接操作的命令是（ ）。 A、LINK B、JOIN C、SET RELATION D、RELATION17、命令？AT（“日”，“东园三日雨兼风”）的输出结果是（ ）。 A、4 B、.T. C、7 D、018、在命令程序文件中，IF语句允许嵌套（ ）。 A、24 B、64 C、48 D、12819、三种基本程序设计结构是循环、选择和（ ）。 A、分支 B、过程调用 C、多路选择 D、顺序20、在FOXPRO状态下，建立或修改命令文件的命令是（ ）。 A、MODIFY B、MODIFY COMMANDC、MODIFY STRUCTURE D、MODIFY STRUCTURE21、在FOXPRO中，函数INT（-33/2）的值应为 ( ). A、-16 B、-16.5 C、16 D、-1722、关于工作区，下面说法正确的是（ ）。A、 在同一时刻只能选择一个主工作区，主工作区中可以打开两个以上的数据库B、工作区10与工作区1是同一工作区C、每个工作区的记录指针不因其工作区记录指针的改变而改变D、当工作区转移后，原工作区记录指针的指向位置发生变化23、对数据库进行逻辑连接的命令是（ ）。 A、JOIN B、LINK C、RELATION D、SET RELATION24、当前工资数据库文件中有30条记录，当前记录号是8，用SUM命令计算工资总和，如果不给出“范围”选项，那么系统将（ ）。 A、只计算当前记录的工资值 B、计算全部记录的工资和C、计算后22条记录的工资和 D、计算前8条记录的工资和25、对指定范围内满足条件的数值型字段求平均值的命令是（ ）。 A、SUM B、AVERAGE C、COUNT D、TOTAL26、当前数据库中有数值型字段“年龄”，每条记录对应一个职工。下面命令中可统计出年龄在35以上职工人数的是（ ）。 A、 SUM 年龄 TO XY FOR 年龄35 B、AVERAGE 年龄 TO XY FOR 年龄35C、COUNT FOR 年龄35 TO XY D、COUNT ON 年龄 TO XY FOR年龄35 27、数据库文件YJ.DBF已经打开,其中有10条记录.要以关键字XM排序,执行命令SORT ON XM TO YJ后,屏幕将显示 ( ). A、10条记录排序完成 B、覆盖原文件吗?(Y/N)C、文件正在使用 D、出错信息28、快速查询命令FIND用于（ ）。 A、索引后的库文件 B、升序排序库文件C、降序排序后库文件 D、一般库文件29、在查找满足条件的记录时，若希望能找到所有满足条件的记录，可用（ ）命令。 A、FIND B、LOCATE C、FINDCONTINUE D、LOCATECONTINUE30、在FOXPRO中，对数据库进行排序的关键字可以为（ ）字段。 A、逻辑型和备注型 B、日期型和逻辑型C、日期型和备注型 D、逻辑型、日期型和备注型31、在FOXPRO中，对数据库进行排序会改变数据库的（ ）。 A、数据项 B、记录数 C、逻辑顺序 D、物理顺序32、在FOXPRO中，数据库建立索引，将产生相应的索引文件，而原文件内容（ ）。 A、并不改变 B、顺序改变 C、记录数改变 D、数据改变33、在FOXPRO中，SKIP命令移动记录指针的基准是（ ）。 A、第一条记录 B、当前记录 C、指定记录 D、库文件尾34、在FOXPRO中，对未经排序或索引的数据库文件进行查找时，只能用（ ）命令。 A、FIND B、SEEK C、LOCATE D、DISPLAY35、当前数据库文件ST.DBF的字段如下：姓名(C，8)、英语（N，2）、数学（N，2）、总成绩（N，3），要求按总成绩从高到低排序，再按英语从低到高排序生成新库SST.DBF,其命令是( ). A、SORT TO SST ON 英语,总成绩/D B、SORT TO SST ON 英语,总成绩/D ALLB、 SORT TO SST ON 总成绩/A,英语 ALL D、SORT TO SST ON 总成绩/A,英语/D36、FOXPRO是一种（ ）数据库管理系统。 A、层次型 B、网状型 C、关系型 D、逻辑型37、数据库DB、数据库系统DBS、数据库管理系统DBMS三者之间的关系是（ ）。 A、DB包括DBS和DBMS B、DBS包括DB和DBMSC、DBMS包括DB和DBS D、DBS包括DB，但不包括DBMS38、数据库系统的核心部分是（ ） A、数据模型 B、数据库 C、计算机硬件 D、数据库管理系统39、数据库管理系统（DBMS）是（ ）。 A、系统软件 B、应用软件 C、辅助设计软件 D、教学软件40、FOXPRO所管理的主要数据库文件类型是（ ）。 A、.DBF B、.PRG C、.TXT D、.DBT41、数据库管理系统常用的数据模型有（ ）三种。 A、网状模型、链状模型和层次模型 B、层次模型、环状模型和关系模型C、层次模型、网状模型和关系模型 D、层次模型、环状模型和语义模型42、为了使用户使用数据库更方便，常常把数据库管理系统提供的数据操作语言嵌入到某种高级语言中，此高级语言称为（ ）。 A、查询语言 B、宿主语言 C、自含语言 D、会话语言43、关系数据库的任何检索操作都是由三种基本运算组合而成的，这三种基本运算不包括（ ）。 A、投影 B、比较 C、连接 D、选择44、在FOXPRO中，建立数据库文件结构用（ ）命令。 A、CREATE B、MODIFY STRUCTURE C、COPY D、EDIT45、FOXPRO中有两变量，它们是（ ）。 A、字段变量和内存变量 B、用户变量和系统变量 C、整形变量和实型变量 D、数字变量和非数字变量46、在FOXPRO中，字符型、日期型、备注型、逻辑型的数据长度最大分别是（ ）。 A、256，8，64，10 B、254，8，10，1C、128，10，8，1 D、512，6，10，147、在FOXPRO中，定义数据库结构时（ ）字段只需要定义字段名和字段类型。 A、逻辑型、备注型和字符型 B、逻辑型、日期型和字符型C、逻辑型、日期型和备注型 D、逻辑型、数值型和字符型48、MOD（SQRT（25+9），3）的值是（ ）。 A、6 B、36 C、12 D、049、FOXPRO中逻辑运算符有（ ）种。 A、1 B、2 C、3 D、450、ROUND（4.785,2）的执行结果为( ). A、4.700 B、4.800 C、4.790 D、4.79551、下面几个有关“数据处理”的说法正确的是（ ）。A、 数据处理只是对数值进行科学计算B、 数据处理只是在出现计算机以后才有C、 对数据进行汇集、舆、分组、排序、存储、检索等都是数据处理D、 数据处理可有可无52、存储在计算机的有结构的数据集合称为（ ） A、数据结构 B、数据库系统 C、数据库管理系统 D、数据库53、数据处理经历了由低级到高级的发展过程，大致可分为三个阶段。现处于（ ）阶段。 A、无管理 B、文件管理 C、数据库系统 D、人工管理54、对于数据库而言，能支持它的各种操作的软件系统称为（ ）。 A、命令系统 B、操作系统 C、数据库系统 D、数据库管理系统55、数据库系统具有（ ）等特点。 A、数据结构化 B、较高程序的数据共享C、较少的冗余 D、三者都是56、假设已经执行了正确命令M=28+2，再执行命令？M，屏幕将显示（ ）。 A、30 B、28+2 C、28+2 D、30.0057、把当前数据库文件中“性别”字段的值全部清除，但仍保留该字段，应当使用（ ）命令。 A、MODIFY STRUCTURE B、DELE C、 REPLACE D、ZAP58、表达式VAL（SUBSTR（P586，2，1）+3的计算结果是（ ）。 A、8 B、11 C、8.00 D、11.0059、用MODIFY STRU 命令把数据库文件中“地址”字段的宽度从18位改成14位，但不修改其它字段，正常结束后显示数据库文件记录，会发现各条记录“地址”字段的数据（ ） A、全部丢失 B、任保留18位 C、只保留前14位 D、凡超过14位的字段删空60、在数据库中，单入口索引文件是按“索引关键字表达式”值（ ）次序来建立索引。 A、固定的上升次序 B、固定的下降次序 C、由开关控制次序 D、随机次序61、一个在FOXPRO下工作的数据库，有50个记录，其记录指针指向第9条记录，当执行了SKIP 2*3后系统显示的记录号为（ ）。A、6 B、15 C、9 D、362、DAY（01/09/93）返回的是（ ）。A、9 B、1 C、计算机日期 D、错误信息63、FOXPRO的系统名称是（ ）。A、数据库 B、高级语言 C、数据库管理系统 D、数据库系统64、使用FOXPRO时，每个工作区可以打开几个数据库文件正确的是（ ）。A、1 B、2 C、10 D、1565、FOXPRO提供的语言体现了（ ）特征，用FOXPRO编写的程序是结构化的程序。A、自顶向下式程序设计 B、结构式程序设计C、面向对象式程序设计 D、递归式程序设计66、与GET 命令联合使用的READ命令中若缺省SAVE 子句，则（ ）。A、GET输入的数据自动存入变量 B、GET输入的数据自动放弃存盘C、 当前所有的GET 子句都被清除 D、当前所有的GET子句都被保留67、命令7,77 SAY “ABCDE”执行后，屏幕上的显示可能有（ ）。A、第7行的最后一列显示“D” B、第8行的开头一列显示“A”C、错误信息 D、第8行的开头一列显示“D”68、数组K（2，3）的下标变量的个数是（ ）A、2 B、3 C、6 D、1269、在找满足条件的记录时，若期望能找到所有满足条件的记录，可用命令（ ）。A、FIND B、LOCATE C、FINDCONTINUE D、LOCATECONTINUE70、要使三个数据库文件同时处于打开状态，其方法是（ ）A、使用USE命令 B、在不同工作区依次使用USE命令打开C、使用USE INDEXE 命令 D、一条USE命令中写三个数据文件名71、数据库文件ST.DBF中有字段：姓名/C、出生年月/D、总分/N等。要建立姓名、总分、出生年月的组合索引，其索引关键字表达式是（ ）。A、姓名+总分+出生年月 B、“姓名”+“总分”+“出生年月”C、姓名+STR(总分)+STR（出生年月） D、姓名+STR（总分）+DTOC（出生年月）72、执行命令SET DELETE OFF后，则（ ）。A、禁止对数据库文件记录删除 B、显示记录时不忽略有删除标记记录C、取消数据库文件记录的删除标记 D、执行记录删除命令时不提示信息73、在当前工作区已经打开了一个库文件，用命令COPY TO NEW STRUCTURE EXTENDED可以产生一个结构文件NEW.DBF，它的结构是自动产生的，其字段个数是（ ）。A、2 B、3 C、4 D、1074、在“职工档案”库文件中，婚否是L型字段，性别是C型字段，若检索“已婚的女同志”，应该用逻辑表达式是（ ）。A、婚否.OR.(性别=女) B、（婚否=.F.）.AND. (性别=女)C、婚否.AND. (性别=女) D、已婚.OR. (性别=女)75、要清除当前所有其名字的第二个字符为“X”的内存变量，应该用命令（ ）。A、RELEASE ALL *X B、RELEASE ALL LIKE XC、RELEASE ALL LIKE ？X* D、RELEASE ALL LIKE “？X”76、若想从字符串“北京市”中取出汉字“京”，应该使用函数（ ）A、SUBSTR（“北京市”，2，2） B、SUBSTR（“北京市”，2，1）C、SUBSTR（“北京市”，3，1） D、SUBSTR（“北京市”，3，2）77、若要恢复用DELETE命令删除的若干记录，应该（ ） A、用RECALL命令 B、立即按ESC键 C、用RELEASE命令 D、用FOUND命令78、FOXPRO启动后，执行命令文件MAIN.PRG使用的命令是（ ）。 A、！MAIN B、DO MAIN C、MAIN D、RUN MAIN79、要从某数据库文件中真正删除一条记录，应使用命令（ ）。 A、先用DELETE命令，再用ZAP B、直接用ZAPC、先用DELETE命令，再用PACK D、直接用DELETE命令80、数据库文件已打开而索引文件尚未打开时，打开索引文件的命令是（ ）。A、USE （索引文件名） B、INDEX WITH（索引文件名）C、SET INDEX TO （索引文件名） D、INDEX ON （索引文件名）81、FOXPRO 是结构化程序设计语言，下列不属于分支执行结构的是（ ）。 A、DO WHILEENDDO B、IFENDIFC、DO CASEENDCASE D、IFELSEENDIF82、显示已打开数据库的最后三条记录的数据，下列命令组中错误的是（ ）。 A、GO BOTTOM B、GO BOTTOM C、GO RECCOUN()-2 D、GO RECCOUNT()-2 SKIP 3 SKIP 2 LIST REST LIST REST LIST REST LIST NEXT 383、在FOXPRO中，对变量的赋值有多种方式，请指出下面的赋值表达式不正确的是（ ）。A、STORE “计算机”TO NAME B、STORE “计算机”TO ZD，ZD1C、NAME=“计算机” D、STORE 10，28 TO SJ，SJ184、建立结构复合索引文件的命令是（ ）。A、 Index on tag B、 Index on tag ofC、 Index on toD、Index on order 85、在FOXPRO提示符下建立命令文件应用下列哪个命令（ ）。 A、EDLIN B、EDIT C、MODI FILER D、MODI COMM86、下列函数输出结果为17的是（ ）。 A、？INT(17.8) B、?ROUND(16.8,0)C、?ABS(ROUND(16.8,-1) D、?INT(16.8)87、设当前数据库共有300条记录，当前记录为第一条记录，则统计前100条记录中，工资（字段名为GZ）平均值命令是（ ）。 A、Average Rest GZ B、Average Next 100 GZC、Average Record 100 GZ D、Average ALL GZ88、统计当前数据库语文成绩（字段名为YW）高于80分的记录数的命令是（ ）。A、Average For YW80 B、Sum For YW80C、Count For YW80 D、List For YW8089、已打开数据库文件有100条记录，在下面4组命令中，（ ）组命令执行后数据库的记录数保持不变。 A、DELE ALL B、DELE ALL C、DELE ALL D、ZAP ZAP PACK LIST RECA ALL RECA ALL 90、FOXPRO提供了工作区概念，其中对当前工作区叙述错误的是（ ）。A、 最后一次执行SELECT 命令时所选择的工作区为当前工作区B、 建立数据库时所在工作区是当前工作区C、 当前工作区中只有一条记录指针D、当前工作中字段名可直接使用91、数据库系统中数据的最小单位是（ ）。 A、文件 B、记录 C、数据项 D、数组92、若测试一打开的库文件结构时，最后一行信息为“TOTAL 60”，则执行RECSIZE（）后，返回值是（ ）。 A、61 B、60 C、59 D、以上均不是93、在工作区1中已打开数据库CGE.DBF,则在工作区2再次打开的操作是（ ）。A、USE IN 2 AGAIN B、USE CGE IN 2 AGAIN C、USE CGE IN 2 D、非法操作94、随数据库自动打开和更新的索引文件是（ ）。 A、单入口索引文件 B、独立的复合索引文件C、结构复合索引文件 D、扩展名为.IDX 索引文件95、若当前目录下有一数据库文件WZ.DBF，要想再建立与这结构完全相同的库文件，其正确的操作命令是（ ）。 A、CREATE WZ B、USE WZ COPY STRU EXTE TO WZ1 C、USE WZ D、COPY STRU EXTE TO WZ1 COPY STRU EXTE TO WZ1 CREATE WZ2 FROM WZ196、设FOXPRO默认的日期格式是yy/mm/dd，给日期型字段输入1998年6月30日的数据，从键盘输入的数据是（ ） A、06/30/98 B、98/06/30 C、98630 D、98063097、对FOXPRO 语法规定叙述错误的是（ ） A、短语表示库记录的可执行范围从当前操作记录开始B、缺省表示对全部或RECORD 表示对第n条记录进行操作C、选择/D时，表示以升序进行排序 D、注释语句可以以&开头98、既是算术运算符，又是字符运算符的是（ ） A、+ B、 C、* D、/99、数据库的安全性控制措施是层层设防，下列哪种措施不是安全措施（ ） A、密码技术 B、用户标识鉴定 C、授权 D、封锁100、数据库设计的四个阶段分别是（ ）A、 需求分析、概念设计、逻辑设计和物理设计B、 需求分析、选择DBMS、实施、维护C、 选择DBMS、逻辑设计、物理设计和实施维护D、选择DBMS、需求分析、概念设计和逻辑设计湖南省等级考试编程题参考题解1.编程序求出1-200以内的能被7整除的数的平方和。377986s=0for I=1 to 200 if mod(I,7)0 loop endif s=s+I*Iendfor?”s=”,s2.编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是 09之间的一位整数。6n=0for I=1 to 9 for j=0 to 9 for k=1 to 9 if (I*100+j*10+k)+(k*100+j*10+i)=1333 n=n+1 endif endfor endforendfor?n3.编程序求199的平方根的和并输出结果。（保留小数点两位）.661.46s=0for I=1 to 99s=s+sqrt(I)ednfor?round(s,2)4.编写程序，求所有符合算式ij*ji=1300的最小数ij（即i*10+j）。其中i、j是19之间的一位整数。25A=0for I=1 to 9 for J=1 to 9 if (I*10+J)*(J*10+I)=1300 A=I*10+J exit EndifEndforIf a0Exitendifendfor?A5.编程序求出1100所有整数的平方和并输出结果。338350s=0for n=1 to 100s=s+n*endfor?n6.编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。1298515s=0for n=1001 to 9999 step 2a=int(n/1000)b=int(n-a*1000)/100)c=int(n-a*1000-b*100)/10)d=mod(n,10) w=a+b+c+d if mod(w,25)=0 s=s+n endifendfor?s33.编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。1107.编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。288840s=0for n=1000 to 9998 step 2a=int(n/1000)b=int(n-a*1000)/100)c=int(n-a*1000-b*100)/10)d=mod(n,10) w=a+b+c+d if mod(w,30)=0 s=s+n endifendfor?s8.编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500 时程序退出。550s=0for n=1 to 5000 if mod(n,5)=0 .and.mod(n,2)=0 s=s+n endif if s500 exit endifendfor?s9.已知abc，且a+b+c=100 Exit Endif If 1/(a2)+1/(b2)=1/(c2) N=N+1 Endif Endfor EndforEndfor?Nset talk on10.编程序求在3000以内被17或者23整除的正整数数的个数。299set talk offclearn=0for i=17 to 3000if mod(i,17)=0 .or. mod(i,23)=0n=n+1endifendfor?n11.一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。496a=0for i=200 to 500s=0for j=1 to i-1if mod(i,j)=0s=s+jendifendforif s=ia=a+iendifendfor?a86.一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如, 6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求1，1000之间的最大完数。49612.已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。334745777a1=0a2=0a3=1n=4do while na+bn=n+1endifendfor?n29.程序，计算在0至99的范围内有多少个数，其每位数的乘积小于等于每位数的和。3714.程序，计算在0至50的范围内有多少个数，其每位数的乘积小于每位数的和.26程序与13题类似127.统计100,10000之间有多少个这样的整数,其各位数字之和能被7整除。140815.用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中一分、两分或五分的硬币数可以为0枚).13n=0for i=0 to 50 for j=0 to 50 for k=0 to 20 if i+2*j+5*k=100 .and.i+j+k=50 n=n+1 endif endfor endfor endfor ?n16.把18元钱分成一元、二元和五元的纸币且纸币数共为10张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为0）。3程序与13题类似17.编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。161095s=0for n=1001 to 9999 step 2a=int(n/1000)b=int(n-a*1000)/100)c=int(n-a*1000-b*100)/10)d=mod(n,10) w=a*b*c*d if mod(w,125)=0 .and.w0 s=s+n endifendfor?s96.设某四位数的各位数字的平方和为100，且该数能被3整除。求共有多少个这样的四位数。.2364.有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？ .418.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100900之间的所有回文数的个数。80n=0for i=100 to 900 a=int(i/100)b=int(i-a*100)/10)c=mod(i,10) if a=c n=n+1 endifendfor?n25.所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。1119.编程序求出100到200之间同时满足除3余2和除5余3条件的数的个数。6n=0for I=100 to 200 if mod(I,3)=2 .and. mod(I,5)=3n=n+1endifendfor?n20.百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。3n=0for i=1 to 100 for j=1 to 20 for k=1 to 34 if i/3+j*5+k*3=100 .and.i+j+k=100 n=n+1 endif endfor endfor endfor?n=,n38.有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？.9101.马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，共花去50先令。如果要求男人、女人和小孩都有人参与，试求有多少种方案分配男人、女人和小孩的人数。975.把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案?.8021编程序求出 2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。510clears=0n=1do while s=500 s=s+2n n=n+1enddo?s=,s22.今有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？(鸡23.免29.羊177.犬121)clears=0flag=1for y=1 to 300 for q=1 to 400 for t=1 to 200 j=(1496-5*y-4*q-2*t)/3 if (4*y+2*q+6*j+3*t)=1175.and.(3*y+q+7*j+5*t)=958.and.(2*y+3*q+5*j+t)=861 flag=0 exit endif endfor if flag=0 exit endif endfor if flag=0 exit endifendfor ?j=,j23.编程序求出1100所有整数的立方和并输出结果。2550250024.“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=13+53+33。编写程序求100至400的范围内有多少个水仙花数。326.所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。13127.编写程序，求出9到499之间的所有非偶数非素数的数之和。40965s=0n=0for I=9 to 499 step 2 for j=2 to sqrt(i)if mod(I,j)=0s=s+In=n+1exitendif endforendfor?”s=”,s?”n=”,n28.编写程序，求出3到100之间的所有非偶数非素数的数的个数。25同上103 求500,1999之间的素数的个数，且要求该素数十位数字为7。2242.求666,777范围内素数的个数。 .1646.求444,666范围内最大的素数是多少？ .66130.编写程序，求在101000之间所有能被4除余3，被7除余5，被9除余2的数之和。1700s=0for I=10 to 1000 if mod(I,4)=3.and.mod(I,7)=5.and.mod(I,9)=2 s=s+I endifendfor?s44.求351,4