vfp表单所有习题参考答案.docx
- 文档编号:25719323
- 上传时间:2023-06-11
- 格式:DOCX
- 页数:115
- 大小:3.19MB
vfp表单所有习题参考答案.docx
《vfp表单所有习题参考答案.docx》由会员分享,可在线阅读,更多相关《vfp表单所有习题参考答案.docx(115页珍藏版)》请在冰豆网上搜索。
vfp表单所有习题参考答案
VFP表单实验参考讲义
一、标签和文本框
(一)
题目要求:
(1)该表单的名称为“Form1”,标题为“密码输入窗口”,高度为190,宽度为300;
(2)定义一个名称为“Label1”、标题为“请输入密码”、字号为10磅的标签;(3)定义一个名称为“Text1”的文本框,用于输入密码,当输入密码时,屏幕显示“*”;(4)定义一个名称为“Label2”的标签,标题为空,自动调整控件大小;(5)定义一个名称为“Command1”,标题为“显示密码”的按钮,当单击该按钮时,标签“Label2”显示输入的密码,编写Click事件代码(6)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单。
(不得退出VFP系统)
操作要点:
1)注意将text1的属性passwordchar设置为:
*
2)label2的属性autosize设置为:
.T.
3)“显示密码”按钮Command1的Click事件代码:
写法一:
Thisform.Label2.Caption=Thisform.Text1.Value
写法二:
X=Thisform.Text1.Value
Thisform.Label2.Caption=X
3)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(二)
Command1的CLICK事件代码:
ifthisform.text1.value="abc"
thisform.label2.caption="欢迎使用"
else
thisform.label2.caption="密码错误"
Endif
Command2的CLICK事件代码:
thisform.release
(三)
代码编写:
1)“确定”按钮Command1的Click事件代码:
IfThisform.text1.value=”ABCD”
Messagebox(“欢迎光临”,65,“密码正确“)
Else
Messagebox(“禁止进入“,65,”密码错误“)
Endif
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(四)
代码编写:
1)“确定”按钮Command1的Click事件代码:
r=val(thisform.text1.value)
s=3.1415926*r*r
messagebox(str(s,5,2),65,”面积”)
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(五)
题目要求:
(1)该表单的名称为“Form1”,标题为“温度转换”,高度为260,宽度为400;
2)定义一个名称为“Label1”标题为“摄氏温度”的标签;再定义一个名称为“Label2”标题为“华氏温度”的标签,两个标签的字号均为11磅;
3)定义一个名称为“Text1”的文本框,用于输入摄氏温度,再定义一个名称为“Text2”的文本框,具有只读属性,用于显示华氏温度;4)定义一个名称为“Command1”,标题为“转换”的按钮,当单击该按钮时,将输入的摄氏温度转换成华氏温度并显示在Text2文本框中,编写其Click事件代码;其中:
华氏温度=9/5*摄氏温度+32
5)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
操作要点:
1)文本框text2的readonly属性设置为.T.
2)“转换”按钮Command1的Click事件代码:
X=Val(Thisform.Text1.Value)
Thisform.Text2.Value=9/5*X+32
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(六)
题目要求:
(1)该表单的名称为“Form1”,标题为“计算”,高度为260,宽度为400;
(2)定义三个文本框,从左到右名称分别为“Text1”、“Text2”和“Text3”,其中“Text1”、“Text2”用于输入两个数,“Text3”用于显示“Text1”和“Text2”中两数之和;
(3)定义一个名称为“Label1”的标签,标题为“+”;(4)定义一个名称为“Label2”的标签,标题为“等于”;
(5)定义一个名称为“Command1”,标题为“确定”的按钮,当单击该按钮时,文本框“Text3”中显示“Text1”和“Text2”中两数之和;
(6)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)
操作要点:
1)“确定”按钮Command1的Click事件代码:
X=Val(Thisform.Text1.Value)
Y=Val(Thisform.Text2.Value)
Thisform.Text3.Value=X+Y
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(七)
题目要求:
(1)该表单的名称为“Form1”,标题为“奇偶判断”,高度为260,宽度为400;
(2)定义一个名称为“Label1”标题为“请输入一个数”的标签;
(3)定义一个名称为“Label2”标题为“结果”的标签;
(4)定义一个名称为“Text1”的文本框;(5)定义一个名称为“Text2”的文本框,具有只读属性
(6)定义一个名称为“Command1”,标题为“判断”的按钮,当单击该按钮时,若Text1文本框输入的为偶数,则在Text2文本框中显示“这是一个偶数”,否则显示“这是一个奇数”,编写其Click事件代码;
(7)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)
操作要点:
1)“判定”按钮Command1的Click事件代码:
X=Val(Thisform.Text1.Value)
IFMOD(X,2)=0
Thisform.Text2.Value=“这是一个偶数!
”
ELSE
Thisform.Text2.Value=“这是一个奇数!
”
ENDIF
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(八)
代码编写:
1)“计算”按钮Command1的Click事件代码:
x=thisform.text1.value
thisform.text2.value=x^2
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(九)
代码编写:
1)“产生随机数”按钮Command1的Click事件代码:
法一:
x=int(1000*rand())
ifx>=100
thisform.text1.value=x
Endif
法二:
x=int(900*rand())+100
thisform.text1.value=x
2)“判别”按钮Command2的Click事件代码:
X=thisform.text1.value
Ifmod(x,2)=0
Thisform.label2.caption=“偶数“
Else
Thisform.label2.caption=“奇数“
endif
3)“关闭”的按钮Command3的Click事件代码:
Thisform.Release
(十)
题目要求:
(1)该表单的名称为“Form1”,标题为“颜色设置”,高度为260,宽度为400;
(2)定义一个名称为“Label1”标题为“红”的标签;
(3)定义一个名称为“Label2”标题为“绿”的标签;
(4)定义一个名称为“Label3”标题为“蓝”的标签;
(5)定义三个名称分别为“Text1”、“Text2”、“Text3”的文本框;
(6)定义一个名称为“Command1”,标题为“设置为表单背景色”的按钮,当单击该按钮时,表单背景色设置为用3个文本框中数字组成的rgb颜色,编写Click事件代码;
(7)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)
。
操作要点:
1)Command1的Click事件代码:
X=Val(Thisform.Text1.Value)
Y=Val(Thisform.Text2.Value)
Z=Val(Thisform.Text3.Value)
Thisform.Backcolor=RGB(X,Y,Z)
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
二、列表框
(十一)
题目要求:
(1)该表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400;
(2)定义一个名称为“LABEL1”,标题为“你的选择是”的标签;
(2)定义一个名称为“TEXT1”的文本框,具有只读属性;
(3)定义一个名称为“List1”的列表框,数据来源类型为值,列表项的来源设置为“神州5号,神州6号,嫦娥1号”,当选中列表项后,选中的项显示在文本框中,编写其CLICK事件代码。
(4)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
操作要点:
1)TEXT1的只读设置:
READONLY属性设为.T.
2)LIST1的ROWSOURCETYPE属性选择”1--值”,ROWSOURCE属性里写上“神州5号,神州6号,嫦娥1号”
注意:
分隔的逗号全部是英文逗号!
!
!
3)列表框LIST1的CLICK事件代码:
thisform.text1.value=this.value
或:
thisform.text1.value=thisform.list1.value
4)“关闭”按钮Command1的Click事件代码:
Thisform.Release
(十二)
题目要求:
(1)该表单的名称为“Form1”,标题为“风景区添加”,高度为260,宽度为400;
(2)定义一个名称为“Text1”的文本框,字体为10磅字;
(3)定义一个名称为“List1”的列表框,数据来源类型为1,列表项的来源设置为“泰山,黄山”(4)定义一个名称为“Command1”,标题为“添加”的按钮,当单击该按钮时,文本框中输入的内容添加到列表框最后,编写其Click事件代码;
(5)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
代码编写:
1)“添加”按钮Command1的Click事件代码:
X=Thisform.Text1.Value
Thisform.List1.AddItem(X)
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(十三)
题目要求:
(1)该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽度为400;
(2)定义一个名称为“List1”列表框,字号为11磅,用于显示偶数;
(3)定义一个名称为“Command1”,标题为“开始”的按钮,当单击该按钮时,将1到100之间的偶数显示在列表框“List1”中,编写其Click事件代码;
(4)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
代码编写:
1)“开始”按钮Command1的Click事件代码:
FORN=2TO100STEP2
Thisform.List1.AddItem(STR(N,3))
ENDFOR
注意:
因为列表框的默认类型为字符型,所以加数字进去时要使用函数转换。
2)“关闭”的按钮Command2的Click事件代码:
Thisform.Release
(十四)
题目要求:
1)表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400;
2)定义一个名称为“Label1”标题为“你选中的项是”的标签;
3)定义一个名称为“Text1”的文本框,具有只读属性;
4)定义一个名称为“List1”的列表框,数据来源类型为“值”,项的来源为“A,B,C,D,E”,当选中列表项后,选中的项显示在文本框中,编写其Click事件代码;
6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
代码编写:
1)列表框List1的Click事件代码:
X=Thisform.List1.Value
Thisform.Text1.Value=X
2)“关闭”的按钮Command1的Click事件代码:
Thisform.Release
(十五)
操作要点:
1)“添加到右边”按钮Command1的Click事件代码:
thisform.list2.additem(thisform.list1.value)
2)“关闭”按钮Command2的Click事件代码:
Thisform.Release
三、组合框
(十六)
题目要求:
1)该表单的名称为“Form1”,标题为“课程选择”,高度为260,宽度为400;
2)定义一个名称为“Combo1”的下拉组合框,数据来源类型为1,列表项的来源设置为“计算机基础,高等数学,大学英语”,编写其Click事件代码,使得选中的列表项显示在文本框中;
3)定义一个名称为“Text1”的文本框,字体为12磅字,用于显示列表框选中的列表项;
4)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
操作要点:
1)下拉组合框Combo1的Click事件代码:
X=Thisform.Combo1.Value
Thisform.Text1.Value=X
2)“关闭”的按钮Command1的Click事件代码:
Thisform.Release
(十七)
题目要求:
1)该表单的名称为“Form1”,标题为“成绩表单”,高度为260,宽度为400;
2)将考生文件夹下的自由表cj.dbf添加到表单的数据环境中;
3)定义一个名称为“Combo1”下拉列表框,数据来源类型为“字段”,数据项的来源为cj表中“姓名”字段;
4)定义一个名称为“Text1”的文本框;
5)编写下拉列表框的“Click”事件代码,将选中学生所对应的成绩显示在文本框中;
6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
操作要点:
1)下拉列表框Combo1的Click事件代码:
Thisform.Text1.Value=成绩
2)“关闭”的按钮Command1的Click事件代码:
Thisform.Release
四、复选框
(十八)
(法1)Check1的Value属性值初始为数值型.
复选框Check1的Click事件代码:
IFThisForm.Check1.Value=1
ThisForm.Label1.Fontunderline=.T.
ELSE
ThisForm.Label1.Fontunderline=.F.
ENDIF
(法2)Check1的Value属性值初始为逻辑型.
复选框Check1的Click事件代码:
IFThisForm.Check1.Value=.T.
ThisForm.Label1.Fontunderline=.T.
ELSE
ThisForm.Label1.Fontunderline=.F.
ENDIF
(十九)
题目要求:
(1)表单的名称为“Form1”,标题为“设置窗口”.
(2)定义一个名称为“Label1”、标题为“请输入内容”的标签,字体为加粗、楷体14磅字。
(3)定义一个名称为“Text1”高度适中的文本框,Value值为“请观察效果”;
(4)定义一个名称为“Check1”,标题为“文本框背景为红色”、Value值为.F.的复选框,当选中该复选框时,“Text1”背景为红色(RGB值为255,0,0),当未选中该复选框时,“Text1”背景为白色(RGB值为255,255,255);(5)定义一名称为“Check2”,标题“文本框前景为蓝色”、Value值为.F.的复选框,当选中该复选框时,“Text1”前景为蓝色(RGB值为0,0,255),未选中该复选框时,“Text1”前景为黑色(RGB值为0,0,0)(6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不退出VFP系统)。
操作要点:
1)复选框Check1的Click事件代码:
IFThisForm.Check1.Value=.T.
ThisForm.Text1.BackColor=RGB(255,0,0)
ELSE
ThisForm.Text1.BackColor=RGB(255,255,255)
ENDIF
2)复选框Check2的Click事件代码:
IFThisForm.Check2.Value=.T.
ThisForm.Text1.ForeColor=RGB(0,0,255)
ELSE
ThisForm.Text1.ForeColor=RGB(0,0,0)
ENDIF
说明:
因为题目要求将CHECK1和CHECK2的初值设为.F.,所以代码里要把复选框写成相应的逻辑型。
五、选项按钮组
(二十)
(1)该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽度为400;
(2)定义一个名称为“LABEL1”,标题为“请输入文本内容”的标签,字号为楷体,加粗,14磅字。
(3)定义一个名称为“TEXT1”的文本框,字号为16磅字,用于输入文本;
(4)定义一个名称为“LABEL2”,标题为“请选择字体”的标签,字体为黑体,加粗,12磅字。
(5)定义一个名称为“OPTIONGROUP1”的选项按钮组,标题依次为“宋体”、“隶书”、“黑体”、“幼圆”,当选中某个按钮时,文本框中的字体发生相应的变化,用DOCASE结构编写CLICK事件代码。
(6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时释放该表单(不得退出VFP系统)。
操作要点:
1)选项按钮组OPTIONGROUP1的CLICK事件代码:
docase
casethis.value=1
thisform.text1.fontname="宋体"
casethis.value=2
thisform.text1.fontname="隶书"
casethis.value=3
thisform.text1.fontname="黑体"
casethis.value=4
thisform.text1.fontname="幼圆"
Endcase
注意:
this.value等价于thisform.optiongroup1.value
2)关闭按钮COMMAND1的CLCK事件代码:
THISFORM.RELEASE
(二十一)
题目要求:
(1)该表单的名称为“Form1”,标题为“字符转换”,高度为260,宽度为400;
(2)定义一个名称为“Label1”、标题为“请输入字符串”的标签,字体为加粗12磅字;
(3)定义一个名称为“Text1”的文本框,字体为10磅字,用于输入字符串;
(4)定义一个名称为“OptionGroup1”的选项按钮组,2个按钮的标题顺序为“转成大写”、“转成小写”,当选中某个按钮时,文本框输入的字符串发生相应的变化,编写“OptionGroup1”的Click事件代码;
(5)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)
操作要点:
1)选项按钮组OPTIONGROUP1的CLICK事件代码:
x=thisform.text1.value
docase
casethis.value=1
thisform.text1.value=upper(x)
casethis.value=2
thisform.text1.value=lower(x)
Endcase
2)关闭按钮COMMAND1的CLICK事件代码:
Thisform.release
六、命令按钮组
(二十二)
题目要求:
(1)该表单的名称为“Form1”,标题为“学生成绩查询”,高度为260,宽度为400;
(2)将xdcj.dbf添加到表单的数据环境中
(3)将xscj表各字段拖至表单上;
(4)定义一个名称为“CommandGroup1”的命令按钮组,4个按钮的标题顺序为“第一条”、“上一条”、“下一条”、“最后一条”当选中某个按钮时,文本框中字符串发生相应的变化,编写“CommandGroup1”的Click事件代码.
操作要点:
右击命令按钮组,在弹出的快捷菜单上选生成器,弹出“命令组生成器”对话框
选“布局”选项卡,按钮布局:
水平
按钮组各命令按钮的CLICK事件代码如下:
1)COMMAND1的CLICK事件代码:
go1
thisform.refresh
2)COMMAND2的CLICK事件代码:
skip-1
thisform.refresh
3)COMMAND3的CLICK事件代码:
Skip1
thisform.refresh
4)COMMAND4的CLICK事件代码:
gobottom
thisform.refresh
七、微调控件
(二十三)
操作要点:
1)把spinner1的increment属性设置为1.00,spinnerhighvalue设为40,spinnnerlowvalue设为6
1)Spinner1的interactivechange事件代码:
thisform.text1.fontsize=thisform.spinner1.value
2)关闭按钮COMMAND1的CLICK事件代码:
thisform.release
(二十四)
代码编写:
1)“设置为表单背景色”按钮COMMAND1事件代码为:
x=thisform.spinner1.value
y=thisform.spinner2.value
z=thisform.spinner3.value
thisform.backcolor=rgb(x,y,z)
2)关闭按钮COMMAND1的CLICK事件代码:
thisform.release
七、计时器
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vfp 表单 所有 习题 参考答案