VFP教材表单2.pptVIP

表单实验1： 设计一个名为 my_form1的表单，表单运行时标签不可见,取消按钮不可用,单击显示按钮标签可见,同时显示按钮不可用,取消按钮可用.单击取消按钮标签不可见,同时取消按钮不可用,显示按钮可用. 要求:1.form1的caption为:关于系统.高为283,宽为428,运行时总在最前,自动居中. 2.标签的top为48,left为84.name为lbl1,字号为28,楷体,红色.标签大小自动调整即autosize为.t. 表单实验2： 设计一个名为 my_form2的表单，实现边移动(先向上移动,到顶后,再从底下向上移动)边变色。0.3秒移动一次,每次移动30. 要求标签内容自定.(参考表单教案) 表单实验3： 设计一个设计一个名为 my_form3的表单，用标签实现模拟计时。(参考表单教案) 表单实验4： 设计一个名为 my_form3的表单，任意输入一个数.单击确定后,在文本框中显示该数的阶乘值. (要求：text1的value初始值为0)提示:for I =1 to thisform.text1.value 表单实验5： 设计一个名为 my_form5的表单，实现标签的缩放。 计时器的interval属性为：300;表单运行时计时器不起作用,即计时器的enabled属性为：.f. 。单击变按钮时，五角星开始变大，字号每次增加5，当字号增加到100时，再从10开始，每次增加5，直到100，这样不断的增加。 单击停止时，五角星停止变化。 提示：标签的caption属性为☆. 对五角星的变大变小的程序语句写到计时器的timer事件中。 变按钮的click事件为：thisform.timer1.enabled=.t. 停止按钮的click事件为：thisform.timer1.enabled=.f. 表单实验6： 设计一个名为 my_form6的表单如图: 有一个标签名为lab 有一个文本框名为txt，字体“隶书”，字号14，红色 有两个按钮，按钮名分别为cmd1和cmd2 表单功能是：当单击显示姓名按钮时，在文本框中随机显示rcda表中某条记录的姓名，当单击退出按钮时，退出表单。 提示：随机函数rand( )产生随机数n=0, n1 提示:cmd1的click事件代码如下： n=int(rand( )*reccount( ))+1 go n thisform.refresh 提示:先把rcda添入数据环境中. 表单实验7： 设计一个名为 my_form7的表单如图:单击开始在三个文本框中产生三个（0—9之间的）随机数，并判断三个数中有没有7，有的话，在标签上显示赢否则显示输。单击退出按钮执行thisform.release释放表单。 表单实验8： 设计一个名为 my_form8的表单如图:单击确认按钮判断密码是否为aaa，是执行my_form7，否则释放。要求：text1的最大长度为8. 即maxlength = 8 p=1 for i=thisform.sp1.value to thisform.sp2.value p=p*i endfor thisform.txt1.value=p s=0 for i=thisform.sp1.value to thisform.sp2.value s=s+i Endfor thisform.txt1.value=p 求阶乘 求累加和 表单实验11： 文件名为My_form11,表单上有如下一些控件：标签5个：如图。 文本框2个：名字分别为t1,t2。表单的caption为调查表 单选钮组名为opg，有2个单选钮男，女；名为op1,op2，value分别为1，0 下拉组合框1个：名为cob，rowsource=农学,土化,农工；rowsourcetype=值 列表框1个：名为lst，rowsource=高数,英语,计算机;rowsourcetype=值。 表单的功能是:1、填写姓名,选择性别，专业及选修课。2、当选择最后的选修课时，信息文本框（t2）中显示所有选择的信息。 这些代码可写入列表框的click中 if thisform.opg.op1.value=1 thisform.t2.value=thisform.t1.value+男+thisform.cob.value+this.lst.value else thisform.t2.value=thisform.t1.value+女+thisform.cob.value+this.lst.value endif 表单实验12： 文件名为My_form12,有一组合框，rowsourcetype=1,rowsource=农电,农发 ,植保；一文本框。功能：