2009设计题及答案.doc

09年与往年新增部分的题目设计一：设计二：参考答案：Init事件代码： bo1.rowsource=select dist 种类 from book1 into cursor tmpinteractiveChange事件代码：set talk offsum 数量 for 种类=bo1.value to thisform.text1.value参考答案：click事件代码：if thisform.optiongroup1.value=1 select * from teach1 order by 系号 into table pxelse select 系号,sum(基本工资) as 工资总额 from teach1 group by 系号 into table hzendif参考答案：Optiongroup1的value属性设置为：(无)统计按钮的click事件代码：set talk offsele 1use ddm1loca for 系名=thisform.optiongroup1.valuesele 2use teach1count for 系号=a.系号 to thisform.text1.value也可以用以下答案：select count(*) from ddm1,teach1 where ddm1.系号=teach1.系号 and 系名=thisform.optiongroup1.value into array athisform.text1.value=a(1)设计三：参考答案：n=thisform.text1.value*thisform.text2.value+thisform.text3.value*thisform.text4.valueif n=300thisform.text5.value=round(n*0.9,0)else thisform.text5.value=round(n,0)endif参考答案：n=0for i=1 to thisform.text1.value if i%2=0 n=n+i endifendforthisform.text2.value=n参考答案：n=0for i=1 to thisform.text1.value if i%2!=0 n=n+i endifendforthisform.text2.value=n参考答案：n=0for i=1 to len(thisform.text1.value) x=substr(thisform.text1.value,i,1) if x=A and x=a and x9 or substr(x,i,1)=90 AND X(1)=80 AND X(1)=70 AND X(1)=60 AND X(1)70 Y=及格 CASE X(1)MAX MAX=A ENDIF ENDFOR THISFORM.TEXT2.VALUE=CHR(MAX)19、在“结果字符串”按钮的CLICK事件中编写如下代码：C1=ALLTRIM(THISFORM.TEXT1.VALUE)N=LEN(C1)C2=ALLTRIM(THISFORM.TEXT2.VALUE)C3=FOR I=1 TO N IF SUBSTR(C1,I,1)C2 C3=C3+SUBSTR(C1,I,1) ENDIFENDFORTHISFORM.TEXT3.VALUE=C320、在“统计结果”的CLICK事件中编写如下代码：C1=ALLTRIM(THISFORM.TEXT1.VALUE)N=LEN(C1)C2=ALLTRIM(THISFORM.TEXT2.VALUE)C3=0FOR I=1 TO N IF SUBSTR(C1,I,1)=C2 C3=C3+1 ENDIFENDFORTHISFORM.TEXT3.VALUE=C321、在“统计数字个数”按钮的CLICK事件中编写代码：C1=ALLTRIM(THISFORM.TEXT1.VALUE)N=LEN(C1)N2=0FOR I=1 TO N IF ASC(SUBSTR(C1,I,1)=48 AND ASC(SUBSTR(C1,I,1)=48 AND ASC(SUBSTR(C,I,1)=57 S=S+VAL(SUBSTR(C,I,1) ENDIFENDFORTHISFORM.TEXT2.VALUE=S26、1720007-2011/12方法一：C=ALLTRIM(THISFORM.TEXT1.VALUE)N=LEN(C)S=FOR I=N TO 1 STEP -1 S=S+SUBSTR(C,I,1)ENDFORIF C=S Y=是ELSE Y=不是ENDIFTHISFORM.TEXT2.VALUE=Y方法二：C=ALLTRIM(THISFORM.TEXT1.VALUE)N=LEN(C)FOR I=1 TO INT(N/2) IF SUBSTR(C,I,1)SUBSTR(C,N+1-I,1) EXIT ENDIFENDFORIF I=INT(N/2)+1 Y=是ELSE Y=不是ENDIFTHISFORM.TEXT2.VALUE=Y27、击鼓传花Timer1N=thisform.optiongroup1.valueN=n+1If n=9 N=1EndifThisform.optiongroup1.value=nCommand1If this.caption=”开始” This.caption=”停止” Thisform.timer1.enabled=.t.Else This.caption=”开始” Thisform.timer1.enabled=.f.Endif 28、水仙花ab=thisform.text1.valuen=0for i=100 to ab gw=i%10 bw=int(i%100)/10) cw=int(i/100) if gw3+bw3+cw3=i n=n+i endifendforthisform.text2.value=n29、素数这题的代码一定要写在控件Combo1的 InteractiveChange 事件下其中，表格控件Grid1的recordsource属性一定要设置成4-SQL说明1、表格控件P220重点在P222的两个属性设置Recordsourcetype、recordsource2、判断多选钮是否选中，详见P216的多选钮Value属性即可thisform.grid1.recordsource=select 学号,课程名称,成绩 from FGrade where 学号=this.value into cursor a1if thisform.check1.value=1select avg(成绩) from a1 into array abthisform.text1.value=ab(1)elsethisform.text1.value=endifrc代表原字符；c代表待删除字符；dc代表结果这里使用了P316 倒数10行的函数chrtran，功能是替换字符，就直接得到结果了。【百度搜索到的】rc=thisform.text1.valuec=thisform.text2.valuedc=chrtran(rc,c,)thisform.text3.value=dc本题思路：使用循环的方式，依次从源字符串中取出1个字符，判断取出的字符是否等于目标字符，如果等于的话，个数变量num加1，直到源字符串的所有字符都被遍历结束，那么num就是最终的个数Len函数 详见P46Ifelseendif 详见P133Forendfor 详见P139rc=thisform.text1.valuec=thisform.text2.valuenum=0for i=1 to len(rc)if substr(rc,i,1)=cnum=num+1endifendforthisform.text3.value=numif recno()1skip -1mand2.enabled=.t.thisform.refreshelsethis.enabled=.f.endifSkip 函数的使用 详见P781、因为输入字符过程中，总会存在着看不到的空格字符，而空格字符的acsii值很小，所以如果没有判断是否为空格的语句，就会出现没结果，其实是有结果，只不过结果是空格，看不到效果而已。2、ascii的比较，在这里试过不能直接比较，所以才采用函数asc，使用这个函数得到字符对应的ascii进行比较，可行的。 Asc函数 详见P46最后一个rc=thisform.text1.valuec=substr(rc,1,1)for i=2 to len(rc)if substr(rc,i,1) if asc(substr(rc,i,1)cc=substr(rc,i,1)endifendforthisform.text2.value=c选项按钮组的属性 详见P216做法1：value属性不修改，也即取值1do casecase thisform.optiongroup1.value=1a=1房case thisform.optiongroup1.value=2a=2房case thisform.optiongroup1.value=3a=3房endcaseselect count(*),avg(售价) from housexs where 房型=a into array abcthisform.text1.value=abc(1)thisform.text2.value=abc(2)做法2：首先修改选项按钮组的value属性为 1房select count(*),avg(售价) from housexs where 房型=thisform.opt