级《vfp程序设计》练习表单题部分表单题参考答案Word格式文档下载.docx
《级《vfp程序设计》练习表单题部分表单题参考答案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《级《vfp程序设计》练习表单题部分表单题参考答案Word格式文档下载.docx（34页珍藏版）》请在冰点文库上搜索。
Height=100
Width=70
Top=20
Left=30
BorderColor=255,0,0
commandCommand1
commandCommand2
退出"
230102、line.scx
图形"
Width=100
BorderWidth=6
Curvature=99
BackColor=255,0,255
BorderColor=255,255,0
lineLine1
BorderWidth=20
BorderColor=0,0,255
230103、imsh2.scx
BackColor=200,255,255
FontName="
隶书"
FontSize=18
BackStyle=0
日落"
ForeColor=0,0,255
imageImage1
Picture=..\..\fjexam95\sunset.jpg
Stretch=1
230104、sjrq2.scx
显示时间与日期"
pageframePageframe1
PageCount=2
Page1.Caption="
时间"
Page2.Caption="
日期"
labellabel1
FontSize=14
Caption=（time（））
labellabel2
FontBold=.T.
Caption=（dtoc（date（）））
230105、shpr.scx
形状变化"
FontSize=12
圆角曲率"
spinnerSpinner1
KeyboardHighValue=99
KeyboardLowValue=0
SpinnerHighValue=99.00
SpinnerLowValue=0.00
BackColor=255,0,0
230106、horse.scx
哈哈镜"
FontSize=20
Picture=..\..\fjexam95\zebra.bmp
Stretch=2
Height=120
Width=80
230107、Selball2.scx
选择"
optiongroupOptiongroup1
ButtonCount=3
Option1.Caption="
选1号"
Option2.Caption="
选2号"
Option3.Caption="
选3号"
Option1.Top=5
Option2.Top=5
Option3.Top=5
commandgroupCommandgroup1
ButtonCount=2
Command1.Caption="
Command2.Caption="
Command1.Top=5
Command2.Top=5
230108、dxxz2.scx
多项选择"
checkCheck1
选择1"
checkCheck2
选择2"
230109、combo.scx
请选择"
comboboxCombo1
RowSourceType=1
RowSource="
VB,VFP,C语言"
checkboxCheck1
总成绩"
checkboxCheck2
平均成绩"
230110、edit.scx
显示"
editboxEdit1
楷体"
Alignment=2
Value=居中显示
Value=（date（））
ForeColor=100,0,100
BackColor=200,200,255
二、表单编程
230200、lbtjsc.scx
参考解答：
●对象command1（添加按钮）的click事件
a=thisform.text1.value
thisform.list1.additem（a）
●对象command2（删除按钮）的click事件
fori=thisform.list1.listcountto1step-1
ifthisform.list1.selected（i）
thisform.list1.removeitem（i）
endif
endfor
230201、ddcx.scx
●设置对象text1的value属性为“=date（）”
●对象command1（查询按钮）的click事件
rq=thisform.text1.value
thisform.grid1.recordsource="
sele订单号,签订日期,金额fromorders;
where签订日期<
=rqintocursorls"
thisform.refresh
230202、xscx.scx
a=alltrim（bo1.value）
b=alltrim（bo2.value）
selectxsb.商品号,商品名,上半年利润,下半年利润,上半年利润+下半年利润fromxsb,spdmb;
wherexsb.商品号=spdmb.商品号and部门号=aand年度=bintocursorlsb"
230203、login2.scx
●对象command1（确定按钮）的click事件
xh=alltrim（bo1.value）
mm=alltrim（thisform.text1.value）
select姓名fromstulogwherealltrim（学号）==xhandalltrim（密码）==mmintocursorlsb
thisform.label3.visible=.t.
selelsb
ifreccount（）=0
thisform.label3.caption="
密码错误"
else
gotop
欢迎"
+alltrim（姓名）+"
同学"
230204、adds.scx
●对象command1（统计按钮）的click事件
replall金额with单价*数量
●对象check1（复选框）的click事件
ifthis.value=1
mand1.enabled=.t.
mand1.enabled=.f.
230205、gspf.scx
●对象combo1（选择歌手姓名组合框）的interactivechange事件
a=alltrim（this.value）
select评委编号,分数fromgsb,pfb;
wheregsb.歌手编号=pfb.歌手编号andalltrim（歌手姓名）=aintocursorlsb"
selectavg（分数）fromlsbintoarrayabc
thisform.text1.value=abc（1,1）
230206、tsxz.scx
●对象optiongroup1的click事件
seleavg（单价）,sum（数量）frombook1where种类=bo1.valueintoarraysz
thisform.text1.value=sz（1,1）
thisform.text1.value=sz（1,2）
230207、ddpx.scx
●对象command1（生成表按钮）的click事件
ifthisform.optiongroup1.value=1
sele职员号,avg（金额）as平均金额fromordersgroupby职员号;
orderby平均金额intotablepx_a
orderby平均金额descintotablepx_b
230208、ddtj.scx
thisform.grid1.recordsource="
select客户号,count（订单号）,sum（金额）;
fromordersgroupby客户号intocursorls"
ifthisform.optiongroup1.value=2
select职员号,count（订单号）,sum（金额）;
fromordersgroupby职员号intocursorls"
230209、rccx.scx
●对象command1（显示按钮）的click事件
bh=bo1.value
thisform.list1.rowsource="
sele姓名,成果名称,成果类别fromrcda,cjda;
wherercda.人才编号=cjda.人才编号andrcda.人才编号=bhintocursorls"
230210、teach1.scx
●对象combo1的init事件
this.listindex=1
●对象combo1的click事件
seleavg（基本工资）fromddm1,teach1whereddm1.系号=teach1.系号;
and系名=this.valueintoarraya
ifthisform.check1.value=0
thisform.text1.value="
"
thisform.text1.value=a（1,1）
230300、calchar.scx
t=0
fori=1tolen（a）
x=substr（a,i,1）
ifx!
=space
（1）
t=t+1
endif
thisform.text2.value=t
230301、chadate.scx
●对象text1的value值改为“=date（）”
●对象spinner1的upclick事件
thisform.text1.value=thisform.text1.value-1
●对象spinner1的downclick事件
thisform.text1.value=thisform.text1.value+1
230302、js2.scx
●对象command1（计算按钮）的click事件
b=thisform.text2.value
ifbo1.value="
+"
c=a+b
-"
c=a-b
c=a*b
/"
ifb<
>
c=a/b
else
c="
除数不能为0"
thisform.text3.value=c
230303、calc.scx
x=thisform.text1.value
docase
casex<
=-10
y=2*（sin（x）+1）
=10
y=（abs（x）-5）/3
otherwise
y=x/7-8
endcase
thisform.text2.value=y
230304、xsys.scx
●对象command1（更新按钮）的click事件
r=thisform.spinner1.value
g=thisform.spinner2.value
b=thisform.spinner3.value
thisform.shape1.backcolor=rgb（r,g,b）
ifr=255andg=0andb=0
thisform.shape1.curvature=0
ifr=0andg=255andb=0
thisform.shape1.curvature=50
ifr=0andg=0andb=255
thisform.shape1.curvature=99
thisform.shape1.curvature=1
230305、stfn.scx
●对象command1（偶数字符串按钮）的click事件
s=alltrim（thisform.text1.value）
n=len（s）
js=””
fori=1ton
c=substr（s,i,1）
ifc>
="
0"
andc<
9"
d=val（c）
ifd%2=0
js=js+c
thisform.text2.value=js
230306、addcal.scx
s=thisform.text1.value
n=str（len（s））
a=s+space
（1）+alltrim（n）
thisform.text1.setfocus
230307、SelPag.SCX
●对象page1（天空页）的click事件
this.backcolor=rgb（0,0,255）
●对象page2（沙漠页）的click事件
this.backcolor=rgb（255,255,0）
●对象page3（雪原页）的click事件
this.backcolor=rgb（255,255,255）
230308、leapyear.scx
●对象command1（是否闰年按钮）的click事件
y=year（thisform.text1.value）
if（y%4=0andy%100!
=0）ory%400=0
thisform.text2.value="
是闰年"
不是闰年"
230309、factor.scx
●对象command1（因子个数按钮）的click事件
n=thisform.text1.value
js=0
fori=1ton-1
ifn%i=0
js=js+1
230310、stat.scx
●对象command1（数字字符个数按钮）的click事件
ifc>
升级会员 