国家计算机2级考试VFP表单题3.doc

表单的二三题，要设置默认目录 1. 在属性中设置TEXT1的VALUE属性=DATE（） 对SPINNER1的UPCLICK事件编写代码如下： THISFORM.TEXT1.VALUE=THISFORM.TEXT1.VALUE+1 对SPINNER1的DOWNCLICK事件编写代码如下： THISFORM.TEXT1.VALUE=THISFORM.TEXT1.VALUE-1 2. 对“计算”的CLICK事件的代码编写如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if B=/ AND c=0 or not b$*/+- thisform.text4.value=非法计算 ENDI DO CASE CASE B=+ thisform.text4.value=A+C CASE B=- thisform.text4.value=A-C CASE B=* thisform.text4.value=A*C CASE B=/ thisform.text4.value=A/C ENDC 3. 对“计算”的CLICK事件编写代码如下： x=thisform.text1.value do case case x10 y=x/3 case x=10 and x20 y=2*x+1 CASE X=20 Y=3*X-10 ENDC THISFORM.TEXT2.VALUE=Y 4. 对“更新”的CLICK事件编写代码如下： a=thisform.spinner1.value b=thisform.spinner2.value c=thisform.spinner3.value thisform.shape1.backcolor=rgb(a,b,c) do case case thisform.shape1.backcolor=rgb(255,0,0) thisform.shape1.curvature=0 case thisform.shape1.backcolor=rgb(0,0,255) thisform.shape1.curvature=99 endc 5. 对“删去数字字符后的字符串是”的CLICK事件的代码编写如下： a=thisform.text1.value b=len(a) 输入的字符串的长度 c= d= for i=1 to b c=substr(a,i,1)将每个字符单独取出 if not c$0123456789$$排除包含数字的情况 d=d+c endi endfor thisform.text2.value=d 如果判断大小写,小写字母a的ASCII码值为97 大写字母A的ASCII码值为65 6. 补充介绍 列表框的方法选介: ADDITEM:当ROWSOURCETYPE值为0时,使用本方法可以在列表中添加一个新项 例如:THISFORM.LIST1.ADDITEM(“姓名”),字符型 就为LIST1增加一个项”姓名” REMOVEITEM: 当ROWSOURCETYPE值为0时,使用本方法可以在列表中删除一项 格式:THISFORM.LIST1.REMOVEITEM(NINDEX) NINDEX的取值范围是1~LISTCOUNT,数值型 对”添加并计算”的CLICK事件代码编写如下: a=thisform.text1.value thisform.list1.additem(a) thisform.list2.additem(str(len(a))) 7. 对”天空”(PAGE1)的CLICK事件代码如下: this.backcolor=rgb(0,0,255) 对”沙漠”(PAGE2)的CLICK事件代码如下: this.backcolor=rgb(255,255,0) 对”雪原”(PAGE3)的CLICK事件代码如下: this.backcolor=rgb(255,255,255) 8. 对”是否闰年”的CLICK事件的代码编写如下: a=year(thisform.text1.value) if a%4=0 and a%1000 or a%400=0 thisform.text2.value=是闰年 ELSE thisform.text2.value=不是闰年 ENDI 9. 对”因子个数”的CLICK事件代码编写如下: a=thisform.text1.value n=0 for i=1 to a if a%i=0