改错题、查询、表单题

1、试卷方案：所有改错和表单题目试卷总分：150分共有题型：2种一、程序改错 共10题 （共计100分）第1题 （10.0分）*-*【程序改错】*-*题目：下列程序用来产生20个0100之间的随机整数，* 并找出其中的最大数和最小数，输出时20个随机* 整数*均在一行显示，下一行显示最大数和最小数。*要求：* (1)将下列程序输入到项目中的程序文件pcode中，并* 对其中的2条错误语句进行修改。* (2)在修改程序时不允许修改程序的总体框架和算法，* 不允许增加或减少语句的数目。*-DIMENSION A(20)FOR I=1 TO 20 A(I)=INT(RAND()*100)ENDFORMm

2、ax=A(1)Mmin=A(1)?A(1)FOR i=2 to 20*FOUND* ?STR(A(I),3) IF Mmax<A(i) Mmax=A(i) ENDIF IF Mmin>A(i) Mmin=A(i) ENDIFENDFOR*FOUND*?"最大数是：" + Mmax + "最小数是：" ,Mmin第2题 （10.0分）*-*【程序改错】*-*题目：下列的程序的功能是：删除字符串（不包括汉字）中的空格* 并将它按字符从大到小的顺序排列后输出。例如：字符串* "B C efA",输出结果为“feCBA”。要求：*

3、 （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-clearx='B C efA'y=''x=strtran(x,space(1),space(0)n=len(x)dimension a(n)for i=1 to n a(i)=left(x,1)*FOUND* x=substr(x,i)endfor=asort(A)*FOUND*for j=1 to n y=y+a(j)endfor?y第3题 （10.0分）*-*【程序改错】*-*题目

4、：下列的程序功能是：统计一个字符串中包含的汉字、英文* 字母及其他字符个数。* 要求：* （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-c="数据库<visual foxpro>"store 0 to hz,yw,qt && 变量分别用于汉字、英文字母和其他字符计数*FOUND*do while c>0x=asc(left(c,1) if x>127 hz=hz+1 c=subs(c,3) else if

5、x>64 and x<91 or x>96 and x<123 yw=yw+1 else qt=qt+1 endif*FOUND* c=subs(c,3) endif enddowait wind "汉字：" + str(hz,4) + "英文字母：" + str(yw,4) + "其他字符" + str(qt,4)第4题 （10.0分）*-*【程序改错】*-*题目:完数是指数n的各因子（1视为因子，n不视为因子）之和正好* 等于该数本身。例如：6为完数（因子为1、2、3，且1+2+3=6）。* 下列程序的功能

6、是：找出1000 以内的所有完数，并将找出的* 完数及该数的所有因子输出。输出结果形式为：* 6,1,2,3* 28,1,2,4,7,14* 要求：* （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-clearfor i=1 to 1000 m=0 s='' for j=1 to i-1 if i/j=int(i/j) m=m+j*FOUND* s=s+ ',' + j endif endfor if i=m ?i*FOUND* ?s

7、endifendfor第5题 （10.0分）*-*【程序改错】*-*题目：下列的程序功能是：求出不超过6位数的Armstrong数。所谓* Armstrong数是指一个n位数的正整数，它的每位数字的n次方* 之和等于该数本身。例如：153=13+53+33 要求：* （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-clear for m=1 to 100000 n=len(allt(str(m) x=0 for y=1 to n c=substr(allt(str(m

8、),y,1)*FOUND* x=x+val(c)*n endfor*FOUND* if n=x ? 'Armstrong数', m endif endfor第6题 （10.0分）*-*【程序改错】*-*题目：下列的程序用来产生30个0100之间的随机整数，并且找出* 其中的最大偶数和最小奇数* 要求：* （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-cleardimension a(30)for i=1 to 30*FOUND* a(i)=int(r

9、and()*200)endforMmax=-1Mmin=100for i=1 to 30 ?str(a(i),3) if Mmax<a(i) and mod(a(i),2)=0 Mmax=a(i)*FOUND* else if Mmin>a(i) and mod(a(i),2)=1 Mmin=a(i) endifendfor?"最大偶数：",iif(Mmax=-1,"无",Mmax)?"最小奇数：",iif(Mmin=100,"无",Mmin)第7题 （10.0分）*-*【程序改错】*-*题目：下列的程

10、序功能是：在屏幕上显示如图所示的菱形。* A* BBB* CCCCC* DDDDDDD* EEEEEEEEE* FFFFFFFFFFF* FFFFFFFFFFF* EEEEEEEEE* DDDDDDD* CCCCC * BBB * A* * 要求：* （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-set talk offc="ABCDEF"clearfor i=1 to len(c) ?space(10-i) for j=1 to 2*i-1*F

11、OUND* ?subs(c,i) endforendfor*FOUND*for i=len(c) to 1 ?space(10-i) for j=1 to 2*i-1 ?subs(c,i,1) endforendfor第8题 （10.0分）*-*【程序改错】*-* 下列程序的功能是：第一个循环随机生成30个大写英文字母，并且存放到数组C中，* 第二个循环实现数组C中30个元素内容的排序（从小到大）。* 要求：* 将下列程序输入到项目中的程序文件pcode中，并对其中的2条错误语句进行修改；* 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。*-CLEARDIMENSIO

12、N c(30)FOR i=1 TO 30 &&第一个循环 n=CHR(64+MAX(1,MOD(INT(RAND()*100),27) c(i)=nENDFORFOR i=1 TO 30 &&第二个循环 m=c(i) FOR t=i+1 TO 30*FOUND* IF m<c(t) c(i)=c(t) c(t)=m m=c(i) ENDIF*FOUND* ENDDOENDFORDISPLAY MEMO LIKE c*第9题 （10.0分）*-*程序改错*题目：下列程序的功能是将小写金额（假设小于10万且无小数位）转换为*中文大写形式。例如：213转换为“贰

13、佰壹拾叁元”，3012转换为“叁仟零佰拾贰元”。*要求：*（1）将下列程序输入到项目中的程序文件prode中，并对其中的2条错误语句进行修改。*（2）在修改程序时，不允许修改程序的总体框架和算法，不允许增删语句。*-nmoney=10249cmoney=allt(str(nmoney)cstring1='零壹贰叁肆伍陆柒捌玖'cstring2='万仟佰拾元'*FOUND*cresult=0for n=1 to len(cmoney)*FOUND* c=substr(cmoney,n) cresult=cresult+subs(cstring1,val(c)*2+

14、1,2)+subs(cstring2,n*2-1,2)endforwait windows '大写金额为：' + cresult第10题 （10.0分）*-*【程序改错】*-*题目：下列的程序功能是：第一个循环随机生成10个大写英文字* 母，并且存放到数组C中，第二个循环将数组C中10个元素* 排序（从小到大）。要求：* （1）将下列程序输入到项目的程序文件pcode中，并对其中的* 2条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-clear n=10dimension c(n)for i=1 to n c(i)=

15、chr(65+int(rand()*26)endfor DISPLAY MEMO LIKE c*for j=2 to n m=c(j) for t=1 to j-1 if m<c(t) for k=j to t+1 step -1*FOUND* c(k)=c(k+1) endfor c(t)=m exit endif endfor*FOUND*enddoDISPLAY MEMO LIKE c*二、VF窗体设计 共5题 （共计50分）第1题 （10.0分）请在项目JXGL中实现关于查询和表单的道操作题：1.建立查询chaxun已知学生表（xs）其中含学号（xh,c）、姓名（xm,c）等字段

16、；成绩表（cj）含学号（xh,c）、成绩（cj,n）等字段，每条记录为一位学生一门课程的考试成绩。基于xs表和cj表查询成绩优良的学生（注：成绩优良是指平均成绩大于或者等于80，且最低成绩大于或等于65。）要求：（1）输出学号、姓名、平均成绩和最低成绩（字段名依次分别为xh、xm、pjcj、zdcj）,查询结果按平均成绩降序排列（2）保存查询为chaxun.qpr2.修改表单forma,表单运行结果如图所示要求：（1）修改表单的基本属性，使得表单运行时自动居中（1分），标题为My form（1分）， 且作为顶层表单（2分）。（2）在表单的init事件中，在指定位置编写二行代码，分别使得该文本框

17、显示当前日期 （3分），并且文本框的数据不可修改，但能获得焦点（3分）（3）已知组合框和列表框的rowsourcetype属性值都为3-SQL语句， 并依此修改组合框的Rowsouce属性，使得其可以读取学生表中不同的籍贯 （重复值仅显示一次），参考代码： select_ _ from xs _ cursor temp001 (5分)（4）参考下面的代码，在组合框的interactivechange事件中为列表框的rowsource属性设 定值，使得在选择不同的系别时，该系别的所有学生能在列表框中显示。参考代码： this._ . _.rowsource=select xm from xs w

18、here jg=this._ into _temp002(5分)第2题 （10.0分）请在项目JXGL中实现关于查询和表单的道操作题：1.建立查询chaxun已知Jc表包含: 出版社名称(cbsmc c) 出版年月(cbnf c) 定价(dj n)等字段基于jc(教材)表统计各出版社2000年以后(含2000年),出版的教材种数及平均定价.要求：(1)输出出版社名称、教材种数、平均定价(cbsmc、jczs、pjdj)； 查询结果按教材种数降序排序；输出去向为屏幕（即主窗口）(2)将查询保存为chaxun.qpr2.修改表单forma要求：1）修改表单的基本属性，使得表单运行时自动居中（1分）

19、，且没有最大化、最小化（2分），且作为顶层表单（2分）。2）在表格的init事件中，在指定位置写上代码，使得该表单一运行实现如图所示的单列背景为红色（3+3分）。3）如图所示，设置相关属性，使得表格的首列标题为学号，并居中（2+2分）4）修改命令按钮的属性，使得显示如图所示的退(X)出（2分）， 在相应事件中编写代码，当用户单击该按钮时，自动退出该表单（3分）第3题 （10.0分）请在项目JXGL中实现关于查询和表单的道操作题：1.建立查询chaxun基于XS表和CJ表统计所有已登记的成绩中，有两门或两门以上课程不合格的学生的总课程门数和成绩不合格门数。要求：(1)输出字段为：XH、XM、总门

20、数、不合格门数（输出显示xh,xm,zms,bhgms），查询结果按不合格门数降序排序。 （注：不合格是指成绩小于60）。(2)保存查询为chaxun.qpr2.修改表单forma要求：1）修改表单的基本属性，使得表单运行时自动居中（2分），标题为My Form（2分） 并边框格式为固定对话框即，不能调整该表单边框（2分）。2）修改选项按钮组中的选项按钮属性，显示如图所示（3分）， 设置选项按钮组值，使得其值为字符型的女（3分）3）设置表格的recordsourcetype属性为4-SQL说明（2分）4）依据以下示例代码，为选项按钮组的interactivechange编写代码， 当用户选择不

21、同的性别时，将在表格中显示xs表中该性别所有学生的所有字段。 示例代码：thisform.grid1._=select _from xs where xb=_ into curs t003 (2分+2分+2分)第4题 （10.0分）请在项目JXGL中实现关于查询和表单的道操作题：1.建立查询chaxun工资表（GZ）含有工号（gh, C）、基本工资（jbgz,N）、岗位津贴（gwjt,N）、综合津贴（zhjt, N）、住房补贴（zfbt,N）等字段。教师表（js）含工号（gh, C）、院系专业代码（yxzydm,C）等字段。基于JS表和GZ表查询各院系专业教师人数和应发工资总额。要求：(1)查

22、询输入字段为yxzydm、人数、应发工资总额；查询结果按应发工资总额降序排序， 且仅输出应发工资总额最多的前三个院系专业；输入去向为表文件TEMP。 注：应发工资总额=jbgz+gwjt+zhjt+zfbt(2)将查询保存为chaxun.qpr2.修改表单forma,运行界面如图所示。(1)修改表单的基本属性，使得表单运行时自动居中（2分）， 且为没有最大化按钮（2分）。(2)修改组合框的属性，将组合框的列数属性设置为2（3分）； 已知组合框的rowsourcetype属性=6-字段，修改组合框的rowsource属性， 组合框中显示学生(xs)的学号(xh)和姓名(xm)。(3分)。(3)修改两个文本框的属性，文本框均只能获得焦点，不能更改内容（只读）(2分)。(4)参考下面的代码，在组合框的interactivechange事件中为2个文本文本框设定值，使得在选择不同的学生时，查