编写代码题目汇总.doc

编写代码题目汇总 一、比较大小题目 第1题 2820024 第2题 2820009 二、统计整除、不整除题目 第1题 2820010 答案： 编写“统计”命令按钮Command1的Click事件代码： 注意：先在属性窗口中查看得知text1、text2的value是数值型（0） x=thisform.text1.value s=0 for i=1 to x if mod(i,3)=0 and mod(i,7)!=0 s=s+i endif Endfor thisform.text2.value=s 第2题 3020201 答案： 在“因子个数”按钮的Click事件里面写下如下代码： num=0 x=thisform.text1.value for i=1 to x-1 if x%i=0 num=num+1 Endif Endfor thisform.text2.value=num thisform.refresh 三、计算器题目 第1题 2820028 四、复选框题目 第1题 3020103（类似题） 答案： 编写“允许计算”复选框Check1的Click事件代码： if this.value=1 mand1.enabled=.t. else mand1.enabled=.f. endif 编写“添加”命令按钮Command1的Click事件代码： replace all 金额 with 单价*数量 第2题 3020001n 答案： 在TEXT1的CLICK事件中编写如下代码： if thisform.check1.value=1 this.fontbold=.t. else this.fontbold=.f. endif if thisform.check2.value=1 this.fontitalic=.t. else this.fontitalic=.f. endif if thisform.check3.value=1 this.fontunderline=.t. else this.fontunderline=.f. endif thisform.refresh 五、统计题目 第1题 3020001-6 答案： 在“求三位数字”按钮的CLICK事件里写下如下代码： x=thisform.text1.value y=allt(str(x)) if x99 thisform.text2.value=substr(y,1,1) thisform.text3.value=substr(y,2,1) thisform.text4.value=substr(y,3,1) else thisform.release endif 第2题 3020005n 答案： 在“计算”按钮的CLICK事件里写下如下代码： x=thisform.text1.value y=allt(str(x)) a=substr(y,1,1) b=substr(y,2,1) c=substr(y,3,1) if x100 or x999 z=输入有误 Else z=a+b+c endif thisform.text2.value=z 第3题 3020004-6 答案： 在“计算”按钮的CLICK事件里写下如下代码： x=thisform.text1.value s=0 for i=1 to x if i%2=0 s=s+i endif endfor thisform.text2.value=s 第4题 3020003-6 答案： 在“计算”按钮的CLICK事件里写下如下代码： x=thisform.text1.value s=0 for i=1 to x if i%2!=0 s=s+i endif endfor thisform.text2.value=s 第5题 3021014-6 答案： 在“非数字字符个数”按钮的CLICK事件中编写如下代码： x=allt(thisform.text1.value) s=0 for i=1 to len(x) y=substr(x,i,1) if asc(y)asc(0) or asc(y)asc(9) s=s+1 endif endfor thisform.text2.value=s 第6题 3020002-6 答案： 在“统计英文字母个数”按钮的CLICK事件中编写如下代码： x=allt(thisform.text1.value) s=0 for i=1 to len(x) y=substr(x,i,1) If asc(y)=asc(A) and asc(y)=asc(Z) or asc(y)=asc(a)