程序改错与填空全部试题.doc

程序改错、程序填空程序填空：第1题：题目：下面是计算1+1+2+2+n+n之和的平方根的程序。set talk offinput to n*space*【 ？】for i=1 to n*space*s=【 ？】endfor*space*？“结果是”，【 ？】return答案：（1）s=0 （2）s+2*i （3）sqrt（s）第2题：题目：以下程序通过键盘输入4个数字，找出其中最小的数。set talk off*space*【 ？】input “请输入第一个数字”to xdo while i=3m=xinput “请输入数字” to m*space*if 【 ？】m=xendif*space*【 ？】enddo？“最小的数是”，mset talk on答案：（1）i=1（2）xm（3）i=i+1第3题：题目：以下程序的功能：t=20+21+22+2nset talk off*space*【 ？】*space*【 ？】 to nfor i=0 to n*space*t=t+【 ？】endfor？“t的值是：”，tset talk onreturn答案：（1）t=0（2）input（3）2*i第4题：题目：复制表xsda.dbf，生成新表xs.dbf，在新表中查找所有男同学的记录，并将男同学的记录逻辑删除。set talk offuse xsda*space*【 ？】use xslocate for 性别=“男”do while found（）*space*【 ？】*space*【 ？】enddouseset talk on答案：（1）copy to xs（2）delete（3）continue第5套：题目：表rsda.dbf结构为：姓名（c，6）；性别（c，2），年龄（n，2），出生日期（d，8）。判断表中是否有“李明”，查询此人的性别及年龄，确定参加运动会的项目。set talk offuse rsda*space*【 ？】for 姓名=“李明”*space*if .not.【 ？】do casecase 性别=“男”？“请参加爬山比赛”case 年龄=50？“请参加投篮比赛”case 年龄=60？“请参加老年迪斯科比赛”*space*【 ？】else？“查无此人”browseendifuseset talk onreturn答案：（1）locate（2）eof（）（3）endcase第6题：题目：显示所有100以内的6的倍数的数，并求这些数的和。set talk offi=1*space*【 ？】do while i=100*space*if mod（【 ？】）=0？is=s+i*space*【 ？】i=i+1enddo？“s=”，sreturn答案：（1）s=0（2）i，6（3）endif第7题：题目：通过循环程序输出图形： 1 321543217654321set talk offfor n=1 to 4*space*【 ？】*space*for m=1 to 【 ？】？“”endforfor m=1 to 2*n-1*space*？str（【 ？】，1）endforendforset talk off答案：（1）？（2）8-n*2（3）2*n-m，1第8题：题目：通过循环程序输出图形： * * * * * * * * * * * * * *set talk offclearfor n=1 to 9if nmax1max1=成绩nn=recno（）endif*space*【 ？】enddo*space*【 ？】？“最高成绩：学号=“+学号+”，姓名=“+姓名+”，成绩=“？成绩useset talk on答案：（1）eof（）（2）skip（3）go nn第14题：题目：从键盘输入某设备的名称，如果找到显示其编号和价格，找不到时给出“无此设备”的提示。set talk offclearuse sbmc=space（4）10，10 say“输入设备名称：” get mc*space*【 ？】*space*loca for 名称=【 ？】*space*if 【 ？】disp 编号，价格else？“无此设备” windowsendifuse答案：（1）read（2）mc（3）found（）第15题：题目：对表xscj.dbf，如下程序可以完成：1、显示全体同学的记录，2、显示全体男同学的记录，3显示全体女同学的记录0退出set talk offclear*space*【 ？】do while .t.10，10 say “1、显示全体同学的记录，2、显示全体男同学的记录”14，10 say “3、显示全体女同学的记录，0、退出”16，16 say “ ”wait “请输入选择（03）：” to xdo casecase x=“1”listcase x=“2”list all for 性别=“男”case x=“3”list all for 性别=“女”case x=“0”*space*【 ？】endcase*space*【 ？】usereturn答案：（1）use xscj（2）exit（3）enddo第16题：题目：求1到100之间的奇数积、偶数和。set talk off*space*【 ？】s2=1for i=1 to 100*space*if mod（i，2）=【 ？】s1=s1+ielse*space*s2=【 ？】endifnext？“奇数积为：”，s2？“偶数和为：”，s1set talk on答案：（1）s1=0（2）0（3）s2=s2*i第17题：题目：下面是计算1+3+5+99之和的程序set talk off*space*【 ？】*space*for i=1 to 99【 ？】s=s+iendfor*space*？“结果=”，【 ？】returnset talk on答案：（1）s=0（2）step 2（3）s第18题：题目：在xsdb.dbf数据表中查找学生王迪，如果找到，则显示：学号、姓名、英语、出生年月日，否则提示“查无此人！”*space*【 ？】xm=“王迪”*space*【 ？】姓名=xmif foun（）*space*【 ？】 学号，姓名，英语，出生年月日else？“查无此人！”endifusereturn答案：（1）use xsdb（2）locate for（3）display第19题：题目：依次显示xsdb.dbf数据表中的记录内容*space*【 ？】*space*do while【 ？】disp*space*【 ？】enddousereturn答案：use xsdb（2）.not. eof（）（3）skip第20题：题目：求1到50的累加和（s=1+2+3+50）并显示*space*【 ？】i=1*space*do while【 ？】h=h+i*space*【 ？】enddo？hreturn答案：（1）h=0（2）i=100*space*【 ？】otherwisey=y+xendcase*space*【 ？】？“0100之间的奇数之和为：”，yreturn答案：（1）mod（x，2）=0（2）exit（3）enddo第22题：题目：下面程序根据xsdb.dbf数据表中的计算机和英语成绩对奖学金做相应调整，双科90（包括90）分以上的每人增加30元；双科75分以上（包括75）的每人增加20元；其他人增加10元。use xsdb*space*do while【 ？】do casecase 计算机=90 and 英语=90replace 奖学金 with 奖学金+30case 计算机=75 and 英语=75replace 奖学金 with 奖学金+20*space*【 ？】replace 奖学金 with 奖学金+10endcase*space*【 ？】enddo答案：（1）.not. eof（）（2）otherwise（3）skip第23题：题目：列出xsdb.dbf数据表中法律系学生记录，将结果显示输出*space*【 ？】do while .t.if 系别=“法律”dispendif*space*【 ？】if eof（）*space*【 ？】endifenddoreturn答案：（1）use xsdb（2）skip（3）exit第24题：题目：统计300到600之间（包括300和600）能被3整除的数的个数。gs=0n=300*space*do while【 ？】if mod（n，3）=0*space*【 ？】endif*space*【 ？】enddo？“300到600之间（包括300和600）能被3整除的数的个数为”，gsreturn答案：（1）n=600（2）gs=gs+1（3）n=n+1第25题：题目：查找xsdb表中计算机成绩最高分的学生，将其姓名和计算机字段的内容显示出来，如：王迪98use xsdbmax=计算机*space*【 ？】do while .not. eof（）if max计算机max=计算机*space*【 ？】endif*space*【 ？】enddo？xm，maxuse答案：（1）xm=姓名（2）xm=姓名（3）skip第26题：题目：显示输出图形* * *cleai=1do while i=3？spac（10-1）j=1do while j=90 and 英语=90（2）otherwise（3）cont第28题：题目：求0100之间的偶数之和，超出范围则退出。clea*space*stor 0 to 【 ？】*space*do while【 ？】i=i+1if mod（i，2）=0*space*【 ？】endifenddo？s答案：（1）i，s（2）i100（3）s=s+i第29题：题目：求1到100之间的奇数之和、偶数之和，并将奇数之和存入s1、偶数之和存入s2显示输出。i=1stor 0 to s1，s2do while i=100*space*if 【 ？】s1=s1+i*space*【 ？】s2=s2+iendif*space*【 ？】enddo？s1，s2答案：（1）mod（i，2）0（2）else（3）i=i+1第30题：题目：找出xsdb.dbf中奖学金最高的学生记录并输出。*space*【 ？】max=0*space*do while【 ？】if max奖学金*space*【 ？】jlh=recn（）endifskipenddo？maxdisp for recn（）=jlhuse答案：（1）use xsdb（2）！eof（）（3）stor 奖学金 to max第31题：题目：显示输出图形；*cleari=1*space*do while 【 ？】j=1do while j=7-2*i*space*【 ？】j=j+1enddo*space*【 ？】？enddo答案：（1）i4（2）？“*”（3）i=i+1第32题：题目：数据表文件da.dbf存放的是某单位职工的档案，在下面程序中，用户通过按a键或者b键，可分别显示出全体女职工的或全体男职工的记录，已知a键的ascii为65，b键的ascii为66，esc键的ascii为27。set talk offclearjp1=list for 性别=“男”jp2=list for 性别=“女”use dado while .t.clear1，10 say “a-全体女职工 b-全体男职工 esc-退出”k=inkey（0）do case case k=65*space*【 ？】waitcase k=66*space*【 ？】wait*space*【 ？】exitendcaseenddousereturn答案：（1）&jp2（2）&jp1（3）case k=27第33题：题目：共有三个表tb1.dbf tb2.dbf tb3.dbf下面程序功能是把每个表的末尾记录删除。set talk offclearn=1*space*do while n=【 ？】*space*tb=【 ？】use &tbgo bottomdelepack*space*【 ？】enddoset talk onreturn答案：（1）3（2）“tb”+str（n，1）（3）n=n+1第34题：题目：共有两个表cj.dbf,zf.dbf。按照成绩表的成绩修改总分表的总分字段。set talk offclose allselect 2use cjindex on 学号 to xhcjsele 1use zf*space*index on 【 ？】 to xhzf*space*【 ？】on 学号 from b repl 语文 with b.语文，数学 with b.数学*space*repl all 总分 with 【 ？】listset talk on 答案：（1）学号（2）upda（3）数学+语文第35题：题目：共有三个表tb1.dbf tb2.dbf tb3.dbf。下面程序功能是把每个表的首记录删除。set talk offclearn=1*space*do while n=&x .and.总分0appe blanki=i-1enddogo top m=65n=65*space*do while【 ？】if recno（）2*space*sum=【 ？】endif？“这是这一年的第”+str（sum，4）+“gd 。”set talk oncanc答案：（1）0（2）day（3）sum+1第45题：题目：输入一个字生的生日（年：y0、月m0、日d0），并输入当前日期（年：y1、月m1、日d1）。求出该学生的年龄（实际年龄）。set talk offclearinput “请输入学生出生的年份：” to yearinput “请输入学生出生的月份：” to monthinput “请输入学生出生的日期：” to day*space*age=year（【 ？】）-yearif month month（date（）age=age-1endif*space*【 ？】endif？“该学生的实际年龄为：”，age答案：（1）date（）（2）day0i=i+1endifif n0j=j+1endifinput “请输入整数” to n*space*【 ？】？“i=”，i？“j=”，jset talk onretu答案：（1）0（2）n0（3）enddo第47题：题目：计算一元二次方程的根。set talk offclearinput “n=” to ainput “b=” to binput “c=” to cif abs（a）0（3）sqrt（-deta）第48题：题目：三角形的面积为：area=sqrt（s*（s-a）*（s-b）*（s-c），其中s=（a+b+c）/2，a，b，c为三角形的三条边的长。set talk offclearinput “a=” to ainput “b=” to binput “c=” to c*space*【 ？】 a+bc and a+cb and b+ccs=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c)else？不能构成三角形*space*【 ？】endif*space*？“area=”【 ？】 areacanc答案：（1）if（2）return（3），第49题：题目：将字母转换成密码，转换规则是将当前字母变成其后的第四个字母，但w变成a、x变成b、y变成c、z变成d。小写字母的转换规则同样。set talk offclearaccept “请输入一个字符串：” to pp？ppp=“”*space*for i=1 to 【 ？】m=asc（subs（pp，i，1）*space*if m=asc（“a”）【 ？】 m=asc（“a”） and m=asc（“z”）do casecase m=asc（“w”）m=asc（“a”）case m=asc（“w”）m=asc（“a”）case m=asc（“x”）m=asc（“b”）case m=asc（“x”）m=asc（“b”）case m=asc（“y”）m=asc（“c”）case m=asc（“y”）m=asc（“c”）case m=asc（“z”）m=asc（“d”）case m=asc（“z”）m=asc（“d”）*space*【 ？】endcasep=p+chr（m）endifendfor？pset talk oncanc答案：（1）len（pp）（2）or（3）m=m+4第50题：题目：将字母转换成密码，转换规则是将当前字母变成其后的第三个字母，但x变成a、y变成b、z变成c。小写字母的转换规则同样。set talk offclearaccept “请输入一个字符串：” to pp？ppp=“”*space*for i=1 to 【 ？】m= subs（pp，i，1）*space*if m=“a”【 ？】 m=“a” and m=“z”do casecase m=“x”m=“a”case m=“x”m=“a”case m=“y”m=“b”case m=“y”m=“b”case m=“z”m=“c”case m=“z”m=“c”otherwise*space*【 ？】m=chr(m)endcasep=p+mendifendfor？pset talk oncanc答案：len（pp）（2）or（3）m=asc（m）+3第51题：题目：1982年我国第三次人口普查，结果全国人口为10.3亿，假如人口增长率为5%。编写一个程序求在公元多少年总人口翻了一番。set talk offclearp1=10.3n=1r=0.05p2=p1*（1+r）*space*do while p2=【 ？】*space*n=【 ？】*space*p2=p2【 ？】（1+r）enddon=1982+n？n，“年人口总数翻了一番”set talk oncanc答案：（1）2*p1（2）n+1（3）*第52题：题目：将输入的字符串按照正序存放到变量中，再按照逆序连接到变量t的末尾。set talk offclear*space*【 ？】“请输入一个串：” to sst=“”for i=1 to len（ss）t=t+subs（ss，i，1）endfor*space*for j=【 ？】 to 1 step -1*space*t=t+【 ？】endfor？“生成的新串为：”，tset talk oncanc答案：（1）accept（2）len（ss）（3）subs（ss，j，1）第53题：题目：企业发放的奖金根据利润提成。利润（1）低于或等于10万元时，奖金可提10%，利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可提成7.5%；20万元到40万元之间时，高于20万元的部分，可提成5%；40万元到60万元之间高于40万元的部分，可提成3%；60万元到100万元之间，高于60万元的部分，可提成1.5%，高于100万元时，超过1