VFP教材表单1.pptVIP

表单报告1：设计一个名为my_form1的表单文件如图: 有一个标签名为lab 有一个文本框名为txt，字体“隶书”，字号14，红色 有两个按钮，按钮名分别为cmd1和cmd2 表单功能是：当单击显示姓名按钮时，在文本框中随机显示rcda表中某条记录的姓名，当单击退出按钮时，退出表单。 提示：随机函数rand( )产生随机数n0, n1 提示见下页 n=int(rand()*reccount())+1 go n thisform.refresh 提示:cmd1的click事件代码如下： 表单报告2：设计一个文件名为My__form2的表单,表单上有如下一些控件：标签5个：如图。 文本框2个：名字分别为t1,t2。表单的caption为调查表 单选钮组名为opg，有2个单选钮男,女;名为op1,op2，value分别为1，0 组合框1个：名为cob，rowsource=农学,土化,农工；rowsourcetype=值 列表框1个：名为LST，rowsource=高数,英语,计算机;rowsourcetype=值。 表单的功能是:1、填写或选择姓名，性别，专业及选修课。2、当选择最后的选修课时，信息文本框（t2）中显示所有选择的信息。 提示见下页 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 这些代码可写入列表框的click中 my_form4：1个文本框名字为txt1 2个微调名字分别为sp1,sp2，sp1最大值为50，最小值为1，sp2最大值为90，最小值为51，增加或减少量为2 2个复选框名字分别为chk1,chk2；初值value=0 表单功能为：用微调选择数值进行运算，单击求阶层，求出sp1至sp2中数值之间的阶层值存放在p变量中，同时显示在txt1中，如sp1中56，sp2中81，则求p=56*57*58*......*81 单击求累加，求出sp1至sp2中数值之间的累加和存放在s变量中，同时显示在txt1中，如sp1中60，sp2中90，则求s=60+61+62+.....+90 提示：循环用For 语句，循环变量用i。 提示见下页