《2010年vfp表单题(设计+编程)专项训练》由会员分享，可在线阅读，更多相关《2010年vfp表单题(设计+编程)专项训练（6页珍藏版）》请在金锄头文库上搜索。
1、第 1 页 共 6 页二级 VFP 表单题练习（2009 级）113、dsg1301.scx属性参考设置如下：（组合框和命令按钮组可使用生成器直接设置部分属性）属性参考设置如下：（组合框和命令按钮组可使用生成器直接设置部分属性） # form Form1 AutoCenter = .T. Caption = “组合框的使用“ # label Label1 Caption = “请选择“ # combobox Combo1 RowSourceType = 1 RowSource = “年,月,日“ # commandgroup Commandgroup1 ButtonCount = 2 Comm
2、and1.Caption = “确定“ Command2.Caption = “取消“ Command2.Enabled = .F. #114、dsg1401.scx属性参考设置如下：（命令按钮组可使用生成器直接设置部分属性）属性参考设置如下：（命令按钮组可使用生成器直接设置部分属性） # form Form1 Caption = “多项选择“ # container Container1 SpecialEffect = 1 # checkbox Check1 Caption = “答案 A“ # checkbox Check2 Caption = “答案 B“ # checkbox Chec
3、k3 Caption = “答案 C“ # checkbox Check4 Caption = “答案 D“ # commandgroup Commandgroup1第 2 页 共 6 页Command1.Caption = “确定“ Command2.Caption = “重选“ Command3.Caption = “退出“ 115、dsg1501.scx属性参考设置如下：（列表框可使用生成器直接设置部分属性）属性参考设置如下：（列表框可使用生成器直接设置部分属性） # form Form1 Caption = “国家代码查询“ # listbox List1 RowSourceType
4、= 6 RowSource = “国家名称,国家代码“ # label Label1 AutoSize = .T. Caption = “国家名称“ # label Label2 AutoSize = .T. Caption = “国家代码“ #116、dsg1601.scx属性参考设置如下：属性参考设置如下： # form Form1 Caption = “登录界面“ # container Container1 SpecialEffect = 0 # label Label1 Caption = “用户名“ # label Label2 Caption = “密码“ # commandbu
5、tton Command1 Caption = “确定“ # textbox Text2 PasswordChar = “*“ #第 3 页 共 6 页117、dsg1701.scx属性参考设置如下：属性参考设置如下： # form Form1 AutoCenter = .T. Caption = “页面选择“ # pageframe Pageframe1 Page1.Caption = “第一页“ Page1.BackColor = 255,0,0 Page2.Caption = “第二页“ Page3.Caption = “第三页“ # commandbutton Command1 Cap
6、tion = “确定“ #-以下题目- 注：不得新建表单，不得增、删原表单上的控件，不得更改 Class 属性（类名） 和 Name 属性（对象名） ； 表单运行后关闭，否则不得分。 - 213、dsg1302.scx参考解答：编写参考解答：编写“统计统计”按钮的按钮的 click 事件代码如下：事件代码如下： if thisform.optiongroup1.value=1thisform.grid1.recordsource=“sele 客户号,count(订单号) as 订单数,avg(金额) as 平均金额 from orders group by 客户号 into cursor ls
7、b“ endif if thisform.optiongroup1.value=2thisform.grid1.recordsource=“sele 职员号,count(订单号) as 订单数,avg(金额) as 平均金额 from orders group by 职员号 into cursor lsb“ endif thisform.refresh 214、dsg1402.scx第 4 页 共 6 页参考解答：编写参考解答：编写“显示显示”按钮的按钮的 click 事件代码如下：事件代码如下： cglb=bo1.value thisform.grid1.recordsource=“sele
8、 rcda.人才编号,姓名,成果名称 from cjda,rcda where rcda.人才 编号=cjda.人才编号 and 成果类别=cglb into cursor lsb“ sele count(*) from lsb into array a thisform.text1.value=a(1) thisform.refresh 215、dsg1502.scx参考解答：编写组合框的参考解答：编写组合框的 click 事件代码如下：事件代码如下： xb=this.value thisform.list1.rowsource=“sele 教师名,系名,基本工资 from ddm1,tea
9、ch1 where ddm1.系号 =teach1.系号 and 性别=xb into cursor lsb“ sele sum(基本工资) from lsb into array a if thisform.check1.value=1thisform.text1.value=a(1) elsethisform.text1.value=“ endif thisform.refresh216、dsg1602.scx参考解答：编写列表框参考解答：编写列表框 list1 的的 click 事件代码如下：事件代码如下： gsxm=this.value thisform.list2.rowsource
10、=“sele 评委编号,分数 from gsb,pfb where gsb.歌手编号=pfb.歌手编 号 and 歌手姓名=gsxm into cursor lsb“ sele avg(分数) from lsb into array a thisform.text1.value=a(1) thisform.refresh 217、dsg1702.scx参考解答：编写组合框的参考解答：编写组合框的 click 事件代码如下：事件代码如下： kch=this.value thisform.grid1.recordsource=“sele * from grade where 课程号=kch int
11、o cursor lsb“ sele count(*) from lsb where 成绩 between 85 and 100 into array a sele count(*) from lsb where 成绩 between 60 and 84 into array b sele count(*) from lsb where 成绩800thisform.text5.value=round(s*0.9,0) endif thisform.text5.value=round(s,0) thisform.refresh 314、dsg1403.scx参考解答：编写参考解答：编写“计算计算
12、”按钮的按钮的 click 事件代码如下：事件代码如下： x=thisform.text1.value do casecase x5y=cos(x)-2case x=-5y=(2+abs(x)/5otherwisey=2*x-3 endcase thisform.text2.value=y thisform.refresh 315、dsg1503.scx参考解答：编写文本框参考解答：编写文本框 text1 的的 click 事件代码如下：事件代码如下： 方法一：方法一： if thisform.check1.value=1this.fontbold=.T. else this.fontbold
13、=.F. endif if thisform.check2.value=1this.fontitalic=.T. else this. fontitalic=.F. endif if thisform.check2.value=1this.fontunderline=.T. else this. fontunderline=.F. endif thisform.refresh 方法二：方法二： a=iif(thisform.check1.value=1,.t.,.f.) b=iif(thisform.check2.value=1,.t.,.f.) c=iif(thisform.check3.v
14、alue=1,.t.,.f.) this.fontbold=a this.fontitalic=b this.fontunderline=c thisform.refresh第 6 页 共 6 页316、dsg1603.scx参考解答：编写参考解答：编写“成绩等级成绩等级”按钮的按钮的 click 事件代码如下：事件代码如下： cj=thisform.text1.value do case case cj=85 and cj=60 and cj=0 and cj999 or x100jg=“输入有误“ elsegw=int(x/1)%10sw=int(x/10)%10bw=int(x/100)%10jg=gw+sw+bw endif thisform.text2.value=jg thisform.refresh
