国家计算机2级考试VFP表单题3.docx
- 文档编号:7774712
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:13
- 大小:438.90KB
国家计算机2级考试VFP表单题3.docx
《国家计算机2级考试VFP表单题3.docx》由会员分享,可在线阅读,更多相关《国家计算机2级考试VFP表单题3.docx(13页珍藏版)》请在冰豆网上搜索。
国家计算机2级考试VFP表单题3
表单的二三题,要设置默认目录
1.
1.在属性中设置TEXT1的VALUE属性=DATE()
2.对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
ifB="/"ANDc=0ornotb$"*/+-"
thisform.text4.value="非法计算"
ENDI
DOCASE
CASEB="+"
thisform.text4.value=A+C
CASEB="-"
thisform.text4.value=A-C
CASEB="*"
thisform.text4.value=A*C
CASEB="/"
thisform.text4.value=A/C
ENDC
3.
对“计算”的CLICK事件编写代码如下:
x=thisform.text1.value
docase
casex<10
y=x/3
casex>=10andx<20
y=2*x+1
CASEX>=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)
docase
casethisform.shape1.backcolor=rgb(255,0,0)
thisform.shape1.curvature=0
casethisform.shape1.backcolor=rgb(0,0,255)
thisform.shape1.curvature=99
endc
5.
对“删去数字字符后的字符串是”的CLICK事件的代码编写如下:
a=thisform.text1.value
b=len(a)&&输入的字符串的长度
c=""
d=""
fori=1tob
c=substr(a,i,1)&&将每个字符单独取出
ifnotc$"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.
1)对”天空”(PAGE1)的CLICK事件代码如下:
this.backcolor=rgb(0,0,255)
2)对”沙漠”(PAGE2)的CLICK事件代码如下:
this.backcolor=rgb(255,255,0)
3)对”雪原”(PAGE3)的CLICK事件代码如下:
this.backcolor=rgb(255,255,255)
8.
对”是否闰年”的CLICK事件的代码编写如下:
a=year(thisform.text1.value)
ifa%4=0anda%100<>0ora%400=0
thisform.text2.value="是闰年"
ELSE
thisform.text2.value="不是闰年"
ENDI
9.
对”因子个数”的CLICK事件代码编写如下:
a=thisform.text1.value
n=0
fori=1toa
ifa%i=0
n=n+1
ENDIF
ENDFOR
THISFORM.TEXT2.VALUE=N-1
10.
对“数字字符个数”的CLICK事件的代码编写如下:
a=thisform.text1.value
b=len(a)&&输入的字符串的长度
c=””
n=0
fori=1tob
c=substr(a,i,1)&&将每个字符单独取出
ifc$"0123456789"$$包含数字的情况
n=n+1
endi
endfor
thisform.text2.value=n
补充:
如果将题目改为求字母字符(包括大写和小写)的个数(ASC(C)>=65ANDASC(C)<=90)指大写,(ASC(C)>=97ANDASC(C)<=122)指小写
a=thisform.text1.value
b=len(a)&&输入的字符串的长度
c=””
n=0
fori=1tob
c=substr(a,i,1)&&将每个字符单独取出
if(ASC(C)>=65ANDASC(C)<=90)OR(ASC(C)>=97ANDASC(C)<=122)
n=n+1
endi
endfor
thisform.text2.value=n
11.
对”按从小到大排列”的CLICK事件的代码编写如下:
a=thisform.text1.value
b=thisform.text2.value
ifa>=b
thisform.text3.value=b
thisform.text4.value=a
else
thisform.text3.value=a
thisform.text4.value=b
endi
12.
对”计算”的CLICK事件代码编写如下:
n=0&&给个数n赋初值
s=0&&给和s赋初值
***********在两线条间完成其他语句**************
fori=0to100
ifi%7=0
s=s+i
n=n+1
endi
endfor
***********************************************
thisform.text1.value=n
thisform.text2.value=s
thisform.refresh
13.
对”逆序”的CLICK事代码编写如下:
a=thisform.text1.value
b=len(a)
c=""
fori=bto1step-1
c=c+substr(a,i,1)
endfor
thisform.text2.value=c
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 国家 计算机 考试 VFP 表单