VFP课件表单1

练习1：设计一个表单：有一组合框， rowsourcetype=1,rowsource=农电,农发 ,植保；一文本 框。功能：当在组合框中选定一专业后，立刻在文本 框中显示此专业全称，农电为“农业电器与自动化”， 农发为“农村区域发展”，植保为“植物保护”。
组合框的click事件如下：
do case case this.value="农电" thisform.text1.value="农业电器与自动化" se this.value="农发" thisform.text1.value="农村区域发展" case this.value="植保" thisform.text1.value="植物保护"
提示见下页
求阶乘
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
提示见下页
提示:cmd1的click事件代码如下：
n=int(rand()*reccount())+1 go n thisform.refresh
表单报告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）中显示所有选择的信息。
第二页的active事件代码如下： average 成绩 for 性别= "男" to x t第his三.la页be的atipvteio事n件=st代r(码x,4如) 下： count for 性别= "男" to x bel1.caption=str(x,4)
endcase
练习2设计一个表单：有一页框，共有3页，每页标题分别为求和， 求平均，统计人数；每页各有一标签。功能：当单击每页时，在 其标签上显示xsda表中男生的成绩的相应数据。
第一页的active事件代码如下： Sum 成绩 for 性别= "男" to x bel1.caption=str(x,4)
表单报告1：设计一个名为my_form1的表单文件如图: 有一个标签名为lab 有一个文本框名为txt，字体“隶书”，字号14，红色 有两个按钮，按钮名分别为cmd1和cmd2 表单功能是：当单击"显示姓名"按钮时，在文本框中随机显 示rcda表中某条记录的姓名，当单击"退出"按钮时，退出表 单。 提示：随机函数rand( )产生随机数n>0, n<1