福建省计算机二级考试08年-6月设计题答案.doc

提示：作为设计题的第2 题，一般地，做题前可以先试运行表单，其次要查看并了解数据环境中的表。&表格显示的数据由2个属性决定：recordsourceType和recordsource&注意到recordsourceType已经设置为4-查询，这里只需要设置recordsource属性即可bmh=alltrim(thisform.text1.value)nd=alltrim(thisform.text2.value)thisform.grid1.recordsource=select xsb.商品号,商品名,上半年利润, ;下半年利润,上半年利润+下半年利润 from xsb,spdmb ;where xsb.商品号=spdmb.商品号 and ;部门号=bmh and 年度=nd into cursor tmpthisform.refreshif thisform.optiongroup1.value=1select 职员号,avg(金额) as 平均金额 from orders ; group by 职员号 order by 2 into table px_aelseselect 职员号,avg(金额) as 平均金额 from orders ; group by 职员号 order by 2 desc into table px_dendifif thisform.optiongroup1.value=1thisform.grid1.recordsource=select 客户号,count(*), ; sum(金额) from orders group by 客户号 ; into cursor tmpendifif thisform.optiongroup1.value=2thisform.grid1.recordsource=select职员号,count(*), ; sum(金额) from orders group by 职员号 ; into cursor tmpendifgsbh=gsb.歌手编号dime aa(1,6)&定义一个 1行6列的二维数组select 分数 from pfb order by 评委编号 ;where 歌手编号=gsbh into array aass=0for i=1 to 6attname=thisform.text+alltrim(str(i)+.value&attname = aa(1,i)ss=ss+aa(1,i)endforthisform.text7.value=ss/61） 设置combo1的value属性为: =ddm1.系名2） 组合框的interactivechange事件编写代码如下：dime aa(1)if thisform.check1.value=1select avg(基本工资) from teach1 ;where 系号=ddm1.系号 into array aathisform.text1.value=aa(1)elsethisform.text1.value=endif&list1的rowsourceType已经设置为“3-SQL”，columncount为3，故：thisform.list1.rowsource=select 姓名,成果名称,成果类别 ;From rcda,cjda ;where rcda.人才编号=cjda.人才编号 and ;rcda.人才编号=bo1.value ;into cursor tmp&建议用结构清晰的三个独立的if语句。&注意到text1和text2都为数值型文本框x=thisform.text1.valueif x=10 and x=20y=3*x-10endifthisform.text2.value=y&判断一个字符ch是否数字字符，只需判断这个字符的ASCII码&是否处于0到9的ASCCII码之间，而字符ch的ASCII码可以用ASC(ch)获得&本程序的思路是：把text1中的字符按顺序逐个取出并判断是否数字字符。&如果不是是，连接到text2之后aa=alltrim(thisform.text1.value)bb=&bb初始为空字符串lth=len(aa)for i=1 to lthch=substr(aa,i,1) &取出aa的第i个字符if asc(ch)asc(9)&如果不是数字字符bb=bb+ch&连接endifendforthisform.text2.value=bbyy=year(thisform.text1.value)if yy%4=0 and yy%100!=0 or yy%400=0res=是闰年elseres=不是闰年endifthisform.text2.value=res&此题用到宏替换函数:&，详见课本第3章的字符型函数。&注意到四个文本框的数据类型，其中text2为字符型，其他为数值型。x=thisform.text1.valueop=alltrim(thisform.text2.value)y=thisform.text3.valueif op=+ or op=- or op=* or (op=/ and y!=0)res=x &op y &以op=*为例，此命令相当于：res=x*yelseres=非法计算endifthisform.text4.value=restxt=alltrim(thisform.text1.value)lth=str(len(txt)thisform.list1.additem(txt)thisform.list2.additem(lth)&注意到text1已经是数值型&计算数n的因子个数，本程序把从1到n-1之间的每个数都测试是否能整除n&若是，则为因子，那么计数器