1、vfp表单所有习题参考答案 VFP表单实验参考讲义一、标签和文本框(一)题目要求:(1)该表单的名称为“Form1”,标题为“密码输入窗口”,高度为190,宽度为300; (2)定义一个名称为“Label1”、标题为“请输入密码”、字号为10磅的标签;(3)定义一个名称为“Text1”的文本框,用于输入密码,当输入密码时,屏幕显示“*”; (4)定义一个名称为“Label2”的标签,标题为空,自动调整控件大小; (5)定义一个名称为“Command1”,标题为“显示密码”的按钮,当单击该按钮时,标签“Label2”显示输入的密码,编写Click事件代码(6)定义一个名称为“Command2”,
2、标题为“关闭”的按钮,当单击该按钮时,释放该表单。(不得退出VFP系统)操作要点:1)注意将text1的属性passwordchar设置为:*2)label2的属性autosize设置为:.T.3) “显示密码” 按钮Command1 的Click事件代码:写法一:Thisform.Label2.Caption=Thisform.Text1.Value写法二:X=Thisform.Text1.ValueThisform.Label2.Caption=X3)“关闭”的按钮Command2的Click事件代码:Thisform.Release(二)Command1 的CLICK事件代码:if th
3、isform.text1.value=abc thisform.label2.caption=欢迎使用else thisform.label2.caption=密码错误EndifCommand2 的CLICK事件代码:thisform.release(三)代码编写:1) “确定” 按钮Command1 的Click事件代码: If Thisform.text1.value=”ABCD”Messagebox(“欢迎光临”,65,“密码正确“) ElseMessagebox(“禁止进入“,65,”密码错误“) Endif2)“关闭”的按钮 Command2的Click事件代码:Thisform.R
4、elease(四)代码编写: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) 定义一个名称为“
5、Text1”的文本框,用于输入摄氏温度,再定义一个名称为“Text2”的文本框,具有只读属性,用于显示华氏温度; 4) 定义一个名称为“Command1”,标题为“转换”的按钮,当单击该按钮时,将输入的摄氏温度转换成华氏温度并显示在Text2文本框中,编写其Click事件代码;其中:华氏温度=9/5*摄氏温度+32 5) 定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。操作要点:1)文本框text2的readonly属性设置为.T.2)“转换” 按钮Command1的Click事件代码:X=Val(Thisform.Text1.Val
6、ue)Thisform.Text2.Value=9/5*X+322)“关闭”的按钮 Command2的Click事件代码:Thisform.Release(六)题目要求:(1)该表单的名称为“Form1”,标题为“计算”,高度为260,宽度为400;(2)定义三个文本框,从左到右名称分别为“Text1”、“Text2”和“Text3”,其中“Text1”、“Text2”用于输入两个数,“Text3”用于显示“Text1”和“Text2”中两数之和;(3)定义一个名称为“Label1”的标签,标题为“+”; (4)定义一个名称为“Label2”的标签,标题为“等于”;(5)定义一个名称为“Com
7、mand1”,标题为“确定”的按钮,当单击该按钮时,文本框“Text3”中显示“Text1”和“Text2”中两数之和;(6)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)操作要点:1)“确定” 按钮Command1 的Click事件代码: X=Val(Thisform.Text1.Value) Y=Val(Thisform.Text2.Value)Thisform.Text3.Value=X+Y2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release(七)题目要求:(1)该表单的名称为“Form1
8、”,标题为“奇偶判断”,高度为260,宽度为400;(2)定义一个名称为“Label1”标题为“请输入一个数”的标签;(3)定义一个名称为“Label2”标题为“结果”的标签;(4)定义一个名称为“Text1”的文本框;(5)定义一个名称为“Text2”的文本框,具有只读属性(6)定义一个名称为“Command1”,标题为“判断”的按钮,当单击该按钮时,若Text1文本框输入的为偶数,则在Text2文本框中显示“这是一个偶数”,否则显示“这是一个奇数”,编写其Click事件代码;(7)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)操
9、作要点:1)“判定” 按钮Command1 的Click事件代码:X=Val(Thisform.Text1.Value)IF MOD(X,2)=0 Thisform.Text2.Value=“这是一个偶数!”ELSEThisform.Text2.Value=“这是一个奇数!”ENDIF2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release(八)代码编写:1)“计算” 按钮Command1 的Click事件代码: x=thisform.text1.value thisform.text2.value=x22)“关闭”的按钮 Command2的Click事件代
10、码: Thisform.Release(九) 代码编写:1)“产生随机数” 按钮Command1 的Click事件代码:法一:x=int(1000*rand()if x=100thisform.text1.value=xEndif法二:x=int(900*rand()+100thisform.text1.value=x2) “判别” 按钮Command2 的Click事件代码: X=thisform.text1.value If mod(x,2)=0 Thisform.label2.caption=“偶数“ Else Thisform.label2.caption=“奇数“ endif3)“关
11、闭”的按钮 Command3的Click事件代码: Thisform.Release(十) 题目要求: (1)该表单的名称为“Form1”,标题为“颜色设置”,高度为260,宽度为400;(2)定义一个名称为“Label1”标题为“红”的标签;(3)定义一个名称为“Label2”标题为“绿”的标签;(4)定义一个名称为“Label3”标题为“蓝”的标签;(5)定义三个名称分别为“Text1”、“Text2”、“Text3”的文本框; (6)定义一个名称为“Command1”,标题为“设置为表单背景色”的按钮,当单击该按钮时,表单背景色设置为用3个文本框中数字组成的rgb颜色,编写Click事件
12、代码;(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,宽度为40
13、0;(2)定义一个名称为“LABEL1”,标题为“你的选择是”的标签; (2)定义一个名称为“TEXT1”的文本框,具有只读属性;(3)定义一个名称为“List1”的列表框,数据来源类型为值,列表项的来源设置为“神州5号,神州6号,嫦娥1号”,当选中列表项后,选中的项显示在文本框中,编写其CLICK事件代码。(4)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)。操作要点:1)TEXT1的只读设置: READONLY属性设为.T.2)LIST1的ROWSOURCETYPE属性选择”1-值”,ROWSOURCE属性里写上“神州5号,神州
14、6号,嫦娥1号” 注意:分隔的逗号全部是英文逗号!3)列表框LIST1的CLICK事件代码:thisform.text1.value=this.value或:thisform.text1.value=thisform.list1.value4)“关闭”按钮 Command1的Click事件代码: Thisform.Release(十二)题目要求: (1)该表单的名称为“Form1”,标题为“风景区添加”,高度为260,宽度为400;(2)定义一个名称为“Text1”的文本框,字体为10磅字; (3)定义一个名称为“List1”的列表框,数据来源类型为1,列表项的来源设置为“泰山,黄山” (4)
15、定义一个名称为“Command1”,标题为“添加”的按钮,当单击该按钮时,文本框中输入的内容添加到列表框最后,编写其Click事件代码;(5)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)。 代码编写:1)“添加” 按钮Command1 的Click事件代码:X=Thisform.Text1.ValueThisform.List1.AddItem(X) 2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release(十三)题目要求:(1)该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽
16、度为400;(2)定义一个名称为“List1”列表框,字号为11磅,用于显示偶数;(3)定义一个名称为“Command1”,标题为“开始”的按钮,当单击该按钮时,将1到100之间的偶数显示在列表框“List1”中,编写其Click事件代码;(4)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。代码编写:1)“开始” 按钮Command1 的Click事件代码: FOR N=2 TO 100 STEP 2 Thisform.List1.AddItem(STR(N,3)ENDFOR注意:因为列表框的默认类型为字符型,所以加数字进去时要使用
17、函数转换。2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release(十四)题目要求:1) 表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400;2) 定义一个名称为“Label1”标题为“你选中的项是”的标签;3) 定义一个名称为“Text1”的文本框,具有只读属性; 4) 定义一个名称为“List1”的列表框,数据来源类型为“值”,项的来源为“ A,B,C,D,E”,当选中列表项后,选中的项显示在文本框中,编写其Click事件代码;6) 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出V
18、FP系统)。代码编写:1)列表框List1 的Click事件代码:X=Thisform.List1.ValueThisform.Text1.Value=X 2)“关闭”的按钮 Command1的Click事件代码:Thisform.Release(十五) 操作要点:1)“添加到右边”按钮 Command1的Click事件代码:thisform.list2.additem(thisform.list1.value)2)“关闭”按钮 Command2的Click事件代码: Thisform.Release三、组合框(十六)题目要求: 1) 该表单的名称为“Form1”,标题为“课程选择”,高度为2
19、60,宽度为400;2) 定义一个名称为“Combo1”的下拉组合框,数据来源类型为1,列表项的来源设置为“计算机基础,高等数学,大学英语”,编写其Click事件代码,使得选中的列表项显示在文本框中;3)定义一个名称为“Text1”的文本框,字体为12磅字,用于显示列表框选中的列表项;4) 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)。操作要点:1)下拉组合框Combo1 的Click事件代码:X=Thisform.Combo1.ValueThisform.Text1.Value=X 2)“关闭”的按钮 Command1的Clic
20、k事件代码:Thisform.Release (十七)题目要求:1) 该表单的名称为“Form1”,标题为“成绩表单”,高度为260,宽度为400;2) 将考生文件夹下的自由表cj.dbf添加到表单的数据环境中;3) 定义一个名称为“Combo1”下拉列表框,数据来源类型为“字段”,数据项的来源为cj表中“姓名”字段;4) 定义一个名称为“Text1”的文本框;5)编写下拉列表框的“Click”事件代码,将选中学生所对应的成绩显示在文本框中;6) 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。操作要点:1)下拉列表框Combo1 的
21、Click事件代码: Thisform.Text1.Value=成绩 2)“关闭”的按钮 Command1的Click事件代码:Thisform.Release四、复选框(十八)(法1)Check1 的Value属性值初始为数值型.复选框Check1 的Click事件代码: IF ThisForm.Check1.Value=1ThisForm.Label1.Fontunderline=.T. ELSEThisForm.Label1.Fontunderline=.F.ENDIF (法2)Check1 的Value属性值初始为逻辑型.复选框Check1 的Click事件代码: IF ThisFor
22、m.Check1.Value=.T. ThisForm.Label1.Fontunderline=.T.ELSEThisForm.Label1.Fontunderline=.F.ENDIF (十九)题目要求:(1) 表单的名称为“Form1”,标题为“设置窗口”. (2)定义一个名称为“Label1”、标题为“请输入内容”的标签,字体为加粗、楷体14磅字。(3)定义一个名称为“Text1”高度适中的文本框,Value值为“请观察效果”;(4)定义一个名称为“Check1”,标题为“文本框背景为红色”、Value值为.F.的复选框,当选中该复选框时,“Text1”背景为红色(RGB值为255,0
23、,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事件代码: IF ThisForm.Check1.Value=.T.ThisForm.Text1.BackColo
24、r=RGB(255,0,0) ELSE ThisForm.Text1.BackColor=RGB(255,255,255)ENDIF 2)复选框Check2 的Click事件代码: IF ThisForm.Check2.Value=.T. ThisForm.Text1.ForeColor=RGB(0,0,255) ELSE ThisForm.Text1. ForeColor =RGB(0,0,0) ENDIF说明:因为题目要求将CHECK1和CHECK2的初值设为.F.,所以代码里要把复选框写成相应的逻辑型。五、选项按钮组(二十)(1)该表单的名称为“Form1”,标题为“我的表单”,高度为2
25、60,宽度为400;(2)定义一个名称为“LABEL1”,标题为“请输入文本内容”的标签,字号为楷体,加粗,14磅字。(3)定义一个名称为“TEXT1”的文本框,字号为16磅字,用于输入文本;(4)定义一个名称为“LABEL2”,标题为“请选择字体”的标签,字体为黑体,加粗,12磅字。(5)定义一个名称为“OPTIONGROUP1”的选项按钮组,标题依次为“宋体”、“隶书”、“黑体”、“幼圆”,当选中某个按钮时,文本框中的字体发生相应的变化,用DO CASE结构编写CLICK事件代码。(6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时释放该表单 (不得退出VFP系统
26、)。操作要点:1)选项按钮组OPTIONGROUP1的CLICK事件代码:do case case this.value=1 thisform.text1.fontname=宋体 case this.value=2 thisform.text1.fontname=隶书 case this.value=3 thisform.text1.fontname=黑体 case this.value=4 thisform.text1.fontname=幼圆Endcase注意:this.value等价于thisform.optiongroup1.value2)关闭按钮COMMAND1的CLCK事件代码:TH
27、ISFORM.RELEASE(二十一)题目要求:(1)该表单的名称为“Form1”,标题为“字符转换”,高度为260,宽度为400;(2)定义一个名称为“Label1”、标题为“请输入字符串”的标签,字体为加粗12磅字;(3)定义一个名称为“Text1”的文本框,字体为10磅字,用于输入字符串;(4)定义一个名称为“OptionGroup1”的选项按钮组,2个按钮的标题顺序为“转成大写”、“转成小写”,当选中某个按钮时,文本框输入的字符串发生相应的变化,编写“OptionGroup1”的Click事件代码;(5)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表
28、单 (不得退出VFP系统)操作要点:1)选项按钮组OPTIONGROUP1的CLICK事件代码:x=thisform.text1.valuedo case case this.value=1 thisform.text1.value=upper(x) case this.value=2 thisform.text1.value=lower(x)Endcase2)关闭按钮COMMAND1的CLICK事件代码:Thisform.release六、命令按钮组(二十二)题目要求:(1)该表单的名称为“Form1”,标题为“学生成绩查询”,高度为260,宽度为400;(2)将xdcj.dbf添加到表单的
29、数据环境中(3)将xscj表各字段拖至表单上;(4)定义一个名称为“CommandGroup1”的命令按钮组,4个按钮的标题顺序为“第一条”、“上一条”、“下一条”、“最后一条”当选中某个按钮时,文本框中字符串发生相应的变化,编写“CommandGroup1”的Click事件代码.操作要点:右击命令按钮组,在弹出的快捷菜单上选生成器,弹出“命令组生成器”对话框选“布局”选项卡,按钮布局:水平按钮组各命令按钮的CLICK事件代码如下:1) COMMAND1的CLICK事件代码:go 1thisform.refresh2) COMMAND2的CLICK事件代码:skip -1thisform.re
30、fresh3) COMMAND3的CLICK事件代码:Skip 1thisform.refresh4) COMMAND4的CLICK事件代码:go bottomthisform.refresh七、微调控件(二十三)操作要点:1)把spinner1的increment属性设置为1.00,spinnerhighvalue设为40,spinnnerlowvalue设为61) Spinner1的interactivechange事件代码:thisform.text1.fontsize=thisform.spinner1.value2)关闭按钮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七、计时器
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1