2023下更新vfp表单例题参考

VFP表单实验参考讲义一、标签和文本框〔一〕题目要求：〔1〕该表单的名称为“Form1”，标题为“密码输入窗口〞，高度为190，宽度为300；〔2〕定义一个名称为“Label1〞、标题为“请输入密码〞、字号为10磅的标签；〔3〕定义一个名称为“Text1〞的文本框，用于输入密码，当输入密码时，屏幕显示“*〞；〔4〕定义一个名称为“Label2〞的标签，标题为空，自动调整控件大小；〔5〕定义一个名称为“Command1”，标题为“显示密码〞的按钮，当单击该按钮时，标签“Label2”显示输入的密码，编写Click事件代码〔6〕定义一个名称为“Command操作要点：1〕注意将text1的属性passwordchar设置为：*2〕“显示密码〞按钮Command1的Click事件代码:写法一：Thisform.Label2.Caption=写法二：X=Thisform.Label2.Caption=X3〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔二〕Command1的CLICK事件代码:ifthisform.text1.value="abc"thisform.label2.caption="欢送使用"elsethisform.label2.caption="密码错误"EndifCommand2的CLICK事件代码:thisform.release〔三〕代码编写：“确定〞按钮Command1的Click事件代码:IfThisform.text1.value=〞ABCD〞Messagebox(“欢送光临〞，65，“密码正确“)ElseMessagebox(“禁止进入“，65，〞密码错误“)Endif2〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔四〕代码编写：“确定〞按钮Command1的Click事件代码:r=val(thisform.text1.value)s=3.1415926*r*rmessagebox(str(s,5,2),65,〞面积〞)2)“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔五〕题目要求：(1)该表单的名称为“Form1”2)定义一个名称为“Label1”标题为“摄氏温度〞的标签；再定义一个名称为“Label2”标题为“华氏温度〞的标签,两个标签的字号均为3)定义一个名称为“Text1”的文本框，用于输入摄氏温度，再定义一个名称为“Text2”的文本框，具有只读属性，用于显示华氏温度;4)定义一个名称为“Command5)定义一个名称为“Command2”操作要点：1〕“转换〞按钮Command1的Click事件代码:X=Val(Thisform.Text1.Value)Thisform.Text2.Value=9/5*X+322〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔六〕题目要求：〔1〕该表单的名称为“Form1”〔2〕定义三个文本框，从左到右名称分别为“Text1〞、“Text2〞和“Text3〞，其中“Text1〞、“Text2〞用于输入两个数，“Text3〞用于显示“Text1〞和“Text2〞中两数之和；〔3〕定义一个名称为“Label1〞的标签，标题为“+〞；〔4〕定义一个名称为“Label2〞的标签，标题为“等于〞；〔5〕定义一个名称为“Command1〞，标题为“确定〞的按钮，当单击该按钮时，文本框“Text3〞中显示“Text1〞和“Text2〞中两数之和；〔6〕定义一个名称为“Command2”操作要点：1〕“确定〞按钮Command1的Click事件代码:X=Val(Thisform.Text1.Value)Y=Val(Thisform.Text2.Value)Thisform.Text3.Value=X+Y2〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔七〕题目要求：(1)该表单的名称为“Form1”(2)定义一个名称为“Label1”(3)定义一个名称为“Label2”(4)定义一个名称为“Text1”的文本框；(5)定义一个名称为“Text2(6)定义一个名称为“Command1”(7)定义一个名称为“Command2”操作要点：1〕“判定〞按钮Command1的Click事件代码:X=Val(Thisform.Text1.Value)IFMOD(X,2)=0Thisform.Text2.Value=“这是一个偶数!〞ELSEThisform.Text2.Value=“这是一个奇数!〞ENDIF2〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔八〕代码编写：1〕“计算〞按钮Command1的Click事件代码:thisform.text2.value=x^22〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔九〕代码编写：1〕“产生随机数〞按钮Command1的Click事件代码:x=int(1000*rand())ifx>=100thisform.text1.value=xEndif2)“判别〞按钮Command2的Click事件代码:Ifmod(x,2)=0Thisform.label2.caption=“偶数“ElseThisform.label2.caption=“奇数“endif3〕“关闭〞的按钮Command3的Click事件代码:Thisform.Release〔十〕题目要求：(1)该表单的名称为“Form1”(2)定义一个名称为“Label1”(3)定义一个名称为“Label2”(4)定义一个名称为“Label3”(5)定义三个名称分别为“Text1”、“Text2”、“Text(6)定义一个名称为“Command1”(7)定义一个名称为“Command2”“设置为表单背景色〞按钮操作要点：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”，标题为“列表框应用(2)定义一个名称为“LABEL1”(2)定义一个名称为“TEXT1”的文本框，具有只读(3)定义一个名称为“List1”的列表框，数据来源类型为值，列表项的来源(4)定义一个名称为“Command1”操作要点：1〕TEXT1的只读设置:READONLY属性设为.T.2〕LIST1的ROWSOURCETYPE属性选择〞1--值〞,ROWSOURCE属性里写上“神州5号，神州6号，嫦娥1号〞注意:分隔的逗号全部是英文逗号！！！3〕列表框LIST1的CLICK事件代码:thisform.text1.value=this.value4〕“关闭〞按钮Command1的Click事件代码:Thisform.Release〔十二〕题目要求：(1)该表单的名称为“Form1”(2)定义一个名称为“Text1”的文本框，字体为10磅(3)定义一个名称为“List1”的列表框，数据来源类型为1，列表项的来源设置为“泰山,黄山〞(4)定义一个名称为“Command1(5)定义一个名称为“Command2”代码编写：1〕“添加〞按钮Command1的Click事件代码:X=ThisfoThisform.List1.AddItem(X)2〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔十三〕题目要求：〔1〕该表单的名称为“Form1〞，标题为“我的表单〞，高度为260，宽度为400；〔2〕定义一个名称为“List1〞列表框,字号为11磅，用于显示偶数；〔3〕定义一个名称为“Command1〞，标题为“开始〞的按钮，当单击该按钮时，将1到100之间的偶数显示在列表框“List1〞中，编写其Click事件代码；〔4〕定义一个名称为“Command2”代码编写：1〕“开始〞按钮Command1的Click事件代码:FORN=2TO100STEP2Thisform.List1.AddItem(STR(N,3))ENDFOR注意：因为列表框的默认类型为字符型，所以加数字进去时要使用函数转换。2〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔十四〕题目要求：1)表单的名称为“Form1”2)定义一个名称为“Label1”3)定义一个名称为“Text1”4)定义一个名称为“List1”6)定义一个名称为“Command1”代码编写：1〕列表框List1的Click事件代码:X=Thisform.List1.ValueThisform.Text1.Value=X2〕“关闭〞的按钮Command1的Click事件代码:Thisform.Release(十五)操作要点：1〕“添加到右边〞按钮Command1的Click事件代码:thisform.list2.additem(thisform.list1.value)2〕“关闭〞按钮Command2的Click事件代码:Thisform.Release三、组合框〔十六〕题目要求：1)该表单的名称为“Form1”2)定义一个名称为“Combo1”3〕定义一个名称为“Text1”的文本框，字体为12磅4〕定义一个名称为“Command1”操作要点：1〕下拉组合框Combo1的Click事件代码:Thisform.Text1.Value=Thisform.Combo1.Value2〕“关闭〞的按钮Command1的Click事件代码:Thisform.Release〔十七〕题目要求：1)该表单的名称为“Form1”2)将考生文件夹下的自由表cj.dbf添加到表单的数据环境中；3)定义一个名称为“Combo1”4)定义一个名称为“Text1”5〕编写下拉列表框的“Click〞事件代码，将选中学生所对应的成绩显示在文本框中；6)定义一个名称为“Command1”操作要点：1〕下拉列表框Combo1的Click事件代码:Thisform.Text1.Value=成绩2〕“关闭〞的按钮Command1的Click事件代码:Thisform.Release四、复选框〔十八〕(法1)Check1的Value属性值初始为数值型.复选框Check1的Click事件代码:IFThisForm.Check1.Value=1ThisForm.Label1.Fontunderline=.T.ELSEThisForm.Label1.Fontunderline=.F.ENDIF(法2)Check1的Value属性值初始为逻辑型.复选框Check1的Click事件代码:IFThisForm.Check1.Value=.T. ThisForm.Label1.Fontunderline=.T.ELSEThisForm.Label1.Fontunderline=.F.ENDIF〔十九〕题目要求：(1)表单的名称为“Form1”(2)定义一个名称为“Label1”、标题为“请输入内容〞的标签，字体为加粗、楷体14磅(3)定义一个名称为“Text1”(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)定义一个名称为“Command操作要点：1〕复选框Check1的Click事件代码:IFThisForm.Check1.Value=.T.ThisForm.Text1.BackColor=RGB(255,0,0)ELSEThisForm.Text1.BackColor=RGB(255,255,255)ENDIF2〕复选框Check2的Click事件代码:IFThisForm.Check2.Value=.T.ThisForm.Text1.ForeColor=RGB(0,0,255)ELSEThisForm.Text1.BackColor=RGB(0,0,0)ENDIF说明：因为题目要求将CHECK1和CHECK2的初值设为.F.,所以代码里要把复选框写成相应的逻辑型。〔二十〕“添加〞按钮的click事件代码为：Ifthisform.check1.value=.t.Thisform.list1.additem(thisform.check1.caption)EndifIfthisform.check2.value=.t.Thisform.list1.additem(thisform.check2.caption)EndifIfthisform.check3.value=.t.Thisform.list1.additem(thisform.check3.caption)Endif“关闭〞按钮的Click事件代码:Thisform.Release五、选项按钮组〔二十一〕(1)该表单的名称为“Form1”，标题为“我的表单〞，高度为260，宽度为400；(2)定义一个名称为“LABEL1”，标题为“请输入文本内容〞的标签,字号为楷体,加粗,14磅字。(3)定义一个名称为“TEXT1”的文本框，字号为16磅字，用于输入文本；(4)定义一个名称为“LABEL2”，标题为“请选择字体〞的标签，字体为黑体，加粗，12磅字。(5)定义一个名称为“OPTIONGROUP1”的选项按钮组，标题依次为“宋体〞、“隶书〞、“黑体〞、“幼圆〞，中选中某个按钮时，文本框中的字体发生相应的变化，用DOCASE结构编写CLICK事件代码。(6)定义一个名称为“Command1”，标题为“关闭〞的按钮，当单击该按钮时释放该表单(不得退出VFP系统)。操作要点：1〕选项按钮组OPTIONGROUP1的CLICK事件代码：docasecasethis.value=1thisform.text1.fontname="宋体"casethis.value=2thisform.text1.fontname="隶书"casethis.value=3thisform.text1.fontname="黑体"casethis.value=4thisform.text1.fontname="幼圆"Endcase2〕关闭按钮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事件代码:docasecasethis.value=1thisform.text1.value=upper(x)casethis.value=2thisform.text1.value=lower(x)Endcase2〕关闭按钮COMMAND1的CLICK事件代码:Thisform.release六、命令按钮组〔二十三〕题目要求：(1)该表单的名称为“Form1”，标题为“学生成绩查询〞，高度为260，宽度为400；(2)将xdcj.dbf添加到表单的数据环境中(3)将xscj表各字段拖至表单上；(4)定义一个名称为“CommandGroup1”的命令按钮组，4个按钮的标题顺序为“第一条〞、“上一条〞、“下一条〞、“最后一条〞中选中某个按钮时，文本框中字符串发生相应的变化，编写“CommandGroup1”的Click操作要点：右击命令按钮组，在弹出的快捷菜单上选生成器，弹出“命令组生成器〞对话框选“布局〞选项卡，按钮布局：水平按钮组各命令按钮的CLICK事件代码如下：COMMAND1的CLICK事件代码:go1thisform.refreshCOMMAND2的CLICK事件代码:skip-1thisform.refreshCOMMAND3的CLICK事件代码:Skip1thisform.refreshCOMMAND4的CLICK事件代码:gobottomthisform.refresh七、微调控件〔二十四〕操作要点：1〕把spinner1的increment属性设置为1.00，spinnerhighvalue设为40，spinnnerlowvalue设为62〕关闭按钮COMMAND1的CLICK事件代码:thisform.release〔二十五〕代码编写：1〕“设置为表单背景色〞按钮COMMAND1事件代码为：thisform.backcolor=rgb(x,y,z)2〕关闭按钮COMMAND1的CLICK事件代码:thisform.release七、图像控件〔二十六〕操作要点：1〕在图像控件image1的picture属性中导入一个图片文件，将image1的stretch属性设为：2-变比填充2〕确定按钮COMMAND1的CLICK事件代码:3〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release八、计时器〔二十七〕题目要求：(1)该表单的名称为“Form1”，标题为“欢送光临〞，高度为260，宽度为400；(2)定义一个名称为“LABEL1”，标题为“2023北京奥运〞的标签,字号为12的加粗蓝色字体(RGB值为0,0,255);(3)定义一个名称为“TIMER1”的计时器,Enabled为.F.,Interval的值为500,编写Timer事件代码,使得每执行一次代码标签上移10;(4)定义一个名称为“Command1”，标题为“开始〞的按钮，当单击该按钮时，标签LABEL1中的内容逐渐向表单上方移动;(5)定义一个名称为“Command2”，标题为“关闭〞的按钮，当单击该按钮时，释放该表单(不得退出VFP系统)。操作要点：1〕TIMER1按钮的TIMER事件代码为:Command1按钮的CLICK事件代码为:thisform.timer1.enabled=.t.2〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release注意：1〕不要忘记设置TIMER1的INTERVAL2〕执行过程：开始按钮的CLICK事件代码为激活时钟TIMER1，由TIMER1的CLICK事件代码控制标签的移动。〔二十八〕代码编写：1〕时钟TIMER1按钮的TIMER事件代码为:thisform.label1.left=thisform.label1.left+52〕“开始“按钮Command1的CLICK事件代码为:thisform.timer1.enabled=.t.3〕“关闭〞按钮Command2的Click事件代码:Thisform.Release〔二十九〕操作要点：1)自动居中，把label2的aligenment属性设为2-中央2)把label2的caption属性设为空3〕把timer1的interval属性设为1000，并在timer1的timer事件代码里写：thisform.label2.caption=time()4〕“关闭〞按钮Command2的Click事件代码:Thisform.Release〔三十〕操作要点：Timer1的timer事件代码为：thisform.shape1.left=thisform.shape1.left+5“关闭〞按钮的Click事件代码:This