表单操作题1设计一个名为Frm01的表单，表单的控件名和文件名均为Frm01。
表单的形式如下图所示。
要求如下：1. 表单标题为"零件供应情况"，表格控件为Grid1，命令按钮"查询"为Command1、"退出"为Command2，标签控件Label1 和文本框控件Text1(程序运行时用于输入工程号)。
2. 运行表单时，在文本框中输入工程号，单击"查询"命令按钮后，表格控件中显示相应工程所使用的零件的零件名、颜色和重量(通过设置有关"数据"属性实现)，并将结果按"零件名"升序排序存储到pp.dbf文件。
单击"退出"按钮关闭表单。
答题要求：(1)将表格的recordsourcetype属性设为“0”(2）查询的单击事件：使用select语句，将查询结果存到一个表pp.dbf中，然后再将表格grid1的recordsource属性设为"pp"(3)表单备注文件不能删除查询按钮代码：SELECT 零件.零件名, 零件.颜色, 零件.重量;FROM 供应零件!供应INNER JOIN 供应零件!零件;ON 供应.零件号= 零件.零件号;WHERE 供应.工程号= thisform.text1.value;ORDER BY 零件.零件名;INTO TABLE pp.dbfthisform.grid1.recordsource=null &&这句话可以删除thisform.grid1.recordsource="pp"thisform.grid1.refreshthisform.refresh3求1到100以内的奇数，单击"计算"按钮后,首先清除列表框中原先的内容，然后显示结果，单击"退出"按钮后退出表单。
表单文件名为Frm03.scx。
要求：1.窗体命名为frm03.scx(表单备注文件不能删除）2.窗体的标题为：求100以内的奇数3.命令按钮"计算"(名称为command1),"退出"(名称为command2)4.列表框名称为list15.判断一个数是否为奇数使用语句“i%2<>0”，即i除2不等于06.列表框中增加一项使用语句“additem(str(i))”7.要求使用for循环语句8.退出表单用release语句计算按钮的代码：thisform.list1.clearfor i=1to 100if i%2<>0thisform.list1.additem(str(i))endifendfor4.表单功能：输入圆的半径，单击计算后，在文本框2中显示圆的体积，其中圆的体积公式是V=(4/3)*3.14*r*r*r.表单文件名为Frm04.scx。
要求：1.表单文件名为frm04.scx(表单备注文件frm04.sct不能删除），存入考生文件夹。
2.表单的标题为“求圆的体积”。
3.表示半径的文本框名称为“Text1”，类型为N4.显示体积的文体框名称为“Text2”，类型为N5.“计算”命令按钮名称为“command1”，“退出”命令按扭名称为“command2”6.必须定义两个变量r（表示半径）和v（表示体积）7.计算体积的公式使用：v=(4/3)*3.14*r*r*r“计算”按钮的代码:V=0R=thisform.text1.valueV=(4/3)*3.14*r*r*rThisform.text2.value=v&&右击文本框，选择生成器，里面有设置数值型（N）的选项5在表单中创建一个具有三个页的页框，如图所示。
表单文件名为FRM05.SCX要求如下：（1）表单文件名为Frm05.scx(表单备注文件不能删除），存入考生文件夹。
（2）表单的标题为“我的页框”（3）页框名为pageframe1，三个页的标题分别为“第一页”、“第二页”、“第三页”（4）在第一页中有标签LABEL1，显示“欢迎使用VF系统”,字号为15。
（5）在第一页中有一选项按扭组OptionGroup1，有两选项按扭option1和option2，分别显示为“隶书”和“黑体”（6）单击“隶书”，标签文字显示为隶书；单击“黑体”，标签文字显示为“黑体”。
（7）其它两页无内容。
第一页的相关代码：Optiongroup1的代码：&&这句话用docase语句请看下面if this.value=1bel1.fontname="隶书"endifif this.value=2bel1.fontname="黑体"endif&&Do caseCase this.value=1bel1.fontname="隶书"Case this.value=2bel1.fontname="隶书"end case6做一个如图所示的顶层表单，表单文件名为Frm06.scx，运行时表单上加载一菜单，如图所示。
要求如下：（1）表单文件名为Frm06.scx（表单备注文件不能删除），存入考生文件夹。
（2）表单标题为“顶层表单”。
（3）菜单名为M1，生成的菜单文件名为M1.MPR（4）菜单有两菜单项，分别为“欢迎”和“退出”（5）单击欢迎，显示“VF欢迎您”(使用函数messagebox)；单击“退出”，退出VF（使用quit语句）。
注意：请将相关文件按要求存入考生文件夹，否则本题得不到成绩。
表单文件名为FRM06.scx 欢迎子菜单的命令：Messagebox（“vf欢迎您”）退出的命令为Quit7表单功能：表单上有一个表格控件，用来绑定students表，一个有三个水平命令按钮的命令按钮组，能实验对表students的添加、删除功能。
程序运行如图所示。
要求：1.表单文件名为frm07.scx(表单备注文件frm07.sct不能删除），存入考生文件夹。
2.表单的标题为“表格的使用”。
3.表格名称为grid1，“添加”按钮的名称为CmdAdd，“删除”按钮的名称为CmdDelete，“退出”按钮的名称为CmdExit。
4.不允许使用数据环境(在程序中用代码实现）。
5.添加记录后要求焦点回到表格。
6.删除必须为物理删除。
7.退出程序使用方法release8东北大学表单操作题：设计一个如下图所示的表单，选择字体、字号与字型后，文本框中文字的字体、字号和字型能随之改变。
要求：1.表单文件名为frm08.scx(表单备注文件frm08.sct不能删除），存入考生文件夹。
2.表单的标题为“复选框和选择按钮组”。
3.选项按钮组中有三个命令按钮，名称分别为Option1、Option2和Option3。
4.组合框名为Combo1，其值为三个列表项，分别为“16”、“20”、“24”。
在表单的init事件中用Additem 方法添加这三个值。
5.“加粗”复选框的名称为Check1，“下划线”复选框的名称为Check2。
6.文本框的名称为Text17.在设计表单过程中不得使用变量。
Form1 int 事件bo1.additem ("16",1)bo1.additem ("20",2)bo1.additem ("24",3)选择字号intfontsize=val(this.value)thisform.text1.fontsize= intfontsize选择字体do casecase this.value=1thisform.text1.fontname="宋体"case this.value=2thisform.text1.fontname="黑体"case this.value=3thisform.text1.fontname="隶书"case this.value=4thisform.text1.fontname="华文行楷"endcase加粗if this.value =1thisform.text1.fontbold=.t.elsethisform.text1.fontbold=.f.Endif下划线if this.value =1thisform.text1.fontunderline=.t.elsethisform.text1.fontunderline=.f.Endif9设计一个能实现密码验证的表单，运行效果如下图所示。
要求：1.表单文件名为frm09.scx(表单备注文件frm09.sct不能删除），存入考生文件夹。
2.表单的标题为“密码验证窗口”。
3.设置为顶层表单。
Showwindow 24.“用户代码”文本框名称为text1，“输入密码”文本框名称为text2。
5.将“用户代码”赋给变量strUid，“密码”赋给变量strPwd。
6.在“输入密码”文本框中输入字符显示为“*”。
7.密码及用户代码均为“001”。
8.判断用户代码及密码是否相等用完全比较运算符“==”。
9.密码输入正确用消息对话框函数messagebox显示“”。
10.密码或用户代码输入不正确用消息对话框函数messagebox显示“用户代码或密码不正确”。
11.三次密码输入不正确用消息对话框显示“三次密码输入不正确”，然后退出表单。
12.用变量i表示密码输入次数，i的初值为0。
确定按钮代码：struid=thisform.text1.valuestrpwd=thisform.text2.valueif alltrim(struid)=="001" or alltrim(strpwd)=="001"messagebox("欢迎使用")elsemessagebox("用户代码或密码不正确")i=i+1endifif i>=3messagebox("三次密码输入不正确")Thisform.releaseendif注意：1、密码显示成星号是通过text2的passwordchar属性为*2、form1的load事件的代码为public iI=010设计一个能移动记录指针的表单，运行效果如下图所示。
要求：1.表单文件名为frm10.scx(表单备注文件frm10.sct不能删除），存入考生文件夹。