第一套：表单fh上有一个命令按钮(cmdcj)和一个计时器(Timer1)控件，其功能是：从学生表(student)中抽取学生学号和姓名。按下列要求修改表单，修改后表单运行效果如图2所示。 1.设置表单的标题属性为\抽奖\，边框类型为\固定对话框\。 2.在表单的右方添加一个命令按钮控件，并设置标题为\退出\。 3.编写新添加的命令按钮的Click事件代码，其功能是释放表单。 4.在命令按钮(cmdcj)的下方添加一个列表框控件(对象名为List1)。
5.在计时器对象的Timer事件代码的末尾，添加一条命令，使得命令按钮(cmdcj)的标题显示当前记录中xh和xm字段值。
1.步骤1:双击项目管理器的\文档\选项卡中\表单\分支下的fh文件，打开表单设计器。 步骤2:分别设置表单的属性Caption和BorderStyle为\抽奖\和\固定对话框\。 2.选择\表单控件\列表框中的\命令按钮\，添加到表单中，并改变其Caption属性值为\退出\。3.选择命令按钮的Click时间属性并添加代码如下\。4. 选择\表单控件\列表框中的\列表框控件\，添加到表单cmdcj下方，使其Caption属性值为\。
5.双击定时器按钮出现代码输入窗口，在其后加入如下代码：thisform.cmdcj.Caption = xh + xm
表单fg的功能是：表单上显示奥运会五环图标等。按下列要求修改表单，修改后表单运行效果如图2所示。
第二套：1.在表单的下方添加一个命令按钮控件，并将其标题设置为\显示\，将表单的新方法COL的程序代码复制到该命令按钮的Click事件代码中。
2.完善命令按钮的Click事件代码(在程序末尾添加4条命令)，其功能是设置S5形状控件的有关属性：形状设置为圆形，边框颜色(BorderColor属性)设置为红色，背景(BackStyle属性)设置为透明，边框宽度设置为3。3.将表单的背景颜色设置为白色，并将标题修改为\同一个世界，同一个梦想\。
步骤1:在\表单控件\面板上单击命令按钮，在表单的下方画一个按钮，在\属性面板\中找到form1的col属性复制器，将全部代码粘贴到命令按钮的Click事件代码尾部。步骤2:在命令按钮的Click事件尾部加如下代码：
thisform.s4.bordercolor=rgb(0,255,0)、thisform.s5.Curvature=99、thisform.s5.backStyle = 0、thisform.s5.borderwidth = 3、thisform.s5.bordercolor = rgb(255,0,0)步骤3:设置form1的BackColor为RGB(255，255，255），Caption为\同一个世界，同一个梦想\。
表单fg的功能是：表单上显示奥运会五环图标和\北京2008\字样等。按下列要求修改表单，修改后表单运行时如图2所示。
第三套：1.在表单的Activate事件代码的第2条命令后添加一条命令，实现表单运行开始时标题从右向左移动显示。2.分别修改对象名为S1、S2、S3、S4、S5的5个形状控件的有关属性：形状为\圆形\，边框颜色(BorderColor属性)分别为蓝色、黄色、黑色、绿色、红色，背景样式(BackStyle属性)为透，边框宽度为3。3.在表单的下方添加一个标签控件，并设置有关属性：标题为\北京2008\，字号为16，前景颜色为红色。
4.将表单的背景颜色设置为白色。步骤1:在表单Activate事件中加入\，i）\。步骤2:按住［Ctrl+Shift］组合键单击5个控件，使其处于同时被选中状态，设计器属性Curvature为99，BackStyle为0，并分别编辑其Click事件为thisform.forsave，BorderColor分别为蓝色、黄色、黑色、绿色、红色。步骤3:单击控件面板的标签按钮在表单的下方画出标签，修改其Caption属性为\北京2008\，FontSize为16，ForeColor为红色。 步骤4:设置Form1的BackColor为RGB(255，255，255）。表单fe的功能是：用鼠标在表单上写文字等。按下列要求修改表单，修改后表单运行效果如图2所
第四套：1.将表单的标题设置为\鼠标写字与小球移动\，边框样式设置为\固定对话框\。2.
在表单界面的右下方添加形状控件，并设置形状控件的有关属性，使其形状为圆形，背景颜色为红色。3.修改表单的MouseDown事件代码，其功能是：使表单前景颜色为蓝色以实现用鼠标在表单界面上写的文字为蓝色，并修改表单的MouseMove事件代码，删除其中的第六行语句(该语句为THISFORM Coord.Caption=\…)。4.将表单对象新方法XYZ中的代码复制到形状控件的Click方法程序中。步骤1:设置表单的Caption属性为\鼠标写字与小球移动\，BorderStyle为\固定对话框\。步骤2:在控件面板中选取形状控件，在表单右下方画出形状控件，并设置其属性Curvature为99，BackColor为(RGB255，0，0)。步骤3:将表单的MouseDown事件代码修改成如下代码：
LPARAMETERS nButton, nShift, nXCoord, nYCoordthisform.forecolor=rgb(0,0,255)、thisform.x=nXCoord、thisform.y=nYCoord、thisform.pset(nXCoord,nYCoord)、并将MouseMove事件代码修改成如下代码：LPARAMETERS nButton, nShift, nXCoord, nYCoord、if nButton=1、thisform.pset(nXCoord,nYCoord)、thisform.line(thisform.x,thisform.y,nXCoord,nYCoord)、endif、thisform.x=nXCoord、thisform.y=nYCoord
步骤4:按照题目要求，将表单对象新方法xyz中的代码复制到形状控件的Click方法中。 第五套：在T盘中有10个图片文件1.BMP、2.BMP、…、10.BMP。表单F081F的功能是：通过连续播放BMP文件产生动画效果。按下列要求修改表单，修改后表单运行效果如图2所示。1.将命令按钮的Left、Top属性分别修改为100、95。2.设置表单的有关属性：标题为\播放两幅动画\，高度为140，宽度为210，且使其运行时自动居中。3.在图像对象(Image1)右方添加一个图像对象(Image2)。4.在计时器对象的Timer事件代码的末尾，添加一条命令，使Image2显示图片的顺序为10.BMP、9.BMP、…、1.BMP。5.修改\播放\命令按钮的Click事件代码：保留第3条命令，删除其余命令。步骤1:在属性面板中将命令按钮的Left、top属性分别设置为100和95。步骤2:设置表单的Caption属性为\播放两幅动画\，Height为140，Width为210，AutoCenter为.T.。步骤3:在控件面板中选取图像控件，在图像对象Image1右方添加图像对象Image2。步骤4:在计时器对象的Timer事件中加入代码thisform.image2.picture=alltrim(str(11-n))+\，使Image2显示图片的顺序为10.bmp、9.bmp…、1.bmp。步骤5:按照题目要求，修改\播放\命令按钮的Click事件代码。
第六套：表单ff的功能是：通过连续播放BMP位图文件产生动画效果。按下列要求修改表单，修改后表单运行效果如图2和图3所示。
1.设置表单的有关属性，使其标题为\播放动画\，且无最大化、最小化按钮。 2.在\播放\命令按钮下方添加一个命令按钮，其标题属性设置为\退出\，且编写其Click事件代码，其功能是释放表单。
3.完善\播放\命令按钮的Click事件代码，其功能是：单击该按钮则其标题在\播放\与\停止\之间切换(即播放动画时显示\停止\，停播时显示\播放\，并且如果单击\停止\按钮，则将计时器对象设置为不可使用。步骤1:设置表单的Caption属性为\播放动画\， MinButton为.F.，MaxButton为.T.。
步骤2:在\播放\按钮下添加命令按钮，其Caption为\退出\，Click事件为：thisform.release。 步骤3:完善\播放\命令按钮的Click事件代码： IF this.caption=\播放\this.caption=\停止\
THISFORM.TIMER1.Enabled=.t. ELSE
this.caption=?播放?
thisform.Timer1.Enabled = .F.
ENDIF
表单fe的功能是：用鼠标在表单上写汉字等操作。按下列要求修改表单，修改后表单运行效果如图2所示。 第七套：
1.设置表单的有关属性，使其标题为\鼠标写字\，边框样式属性为\固定对话框\，背景颜色为\黄色\。
2.如图2所示，在表单的上部添加一个标签控件，用来显示鼠标的位置，并将其对象名修改为coord，背景样式设置为\透明\。
3.在表单的下部添加一个文本框控件(对象名为Text1)和计时器控件(对象名为Timer1)，并设置计时器控件的有关属性，使得表单运行时触发计时器事件的间隔时间为5秒。 4.编写计时器控件的Timer事件代码，实现在文本框中显示当前的系统日期和时间。
步骤1:设置表单的Caption属性为\鼠标写字\， BorderStyle为\固定对话框\，BorderColor为RGB(255,255,0)。
步骤2:在控件面板中选择标签控件，在表单上部添加标签按钮，其属性Name为\，BackStyle设置为\透明\。
步骤3:在表单中分别添加文本控制控件(Text1）和定时器(Timer1），设置定时器属性Interval为5000，Timer为thisform.Text1.Value=DATETIME()。
第八套：表单fd用于水平或垂直显示标签等操作。按下列要求修改表单，修改后表单运行效要如图2和图3所示。
1.修改表单的有关属性，使其图标为pc.ico文件；设置标签控件的显示字号属性为14，字体属性为隶书(或黑体)；将右边命令按钮的标题设置为\水平标签\。
2.在\垂直标签\命令按钮的Click事件代码后添加3条命令，实现的功能是：将标签控件的自动调整大小属性设置为.F.，高度设置为130，标题设置为变量cc的内容。
3.编写\水平标签\命令按钮Click事件代码，其功能是：将标签控件的自动调整大小属性设置为.T.，高度设置为20，标签控件标题属性为变量C的内容。
步骤1:双击表单的Icon属性，在新的窗口中选择考生目录下的\。设置标签控件的FontSize属性为'14'，name 为\隶书\设置左边标题的Caption属性为\水平标签\。 步骤2:在\垂直标签\命令按钮的Click事件后加入如下代码： thisform.Label1.AutoSize = .F. thisform.Label1.Height = 130 thisform.Label1.Caption= cc.
步骤3:设置\水平标签\，加入如下代码: thisform.Label1.AutoSize = .T. thisform.Label1.Height = 20 第九套：
表单fc用于输入表名显示表结构。按下列要求修改表单，修改后表单运行效果如图2所示。 1.将表单的标题属性设置为\输入表名显示表结构\。 2.将标签控件的显示字号属性设置为10。 3.将表格控件换为列表框控件。
4.完善文本框控件的Valid事件代码，其功能是：使用IF…ELSE…ENDIF结构实现以下功能，若输入的文件不存在，则在自定义对话框中显示\文件不存在!\使用MESSAGEBOX()函数，其参数为：X+?文件不存在?，48)，否则将X作为列表框的数据源，并且将列表框的数据源类型设置为：结构。 thisform.Label1.Caption= C.
步骤1:双击表单的Caption属性，设置为：输入表名显示表结构。 步骤2:选择标签控件的FontSize属性并将其值设置为10。 步骤3:删除表格控件，单击控件面板上的列表框控件，在原表格控件的位置画出一个列表框，并修改编辑框控件Text1的Valid属性如下： x=ALLT(this.value) c=x+\if file(%use &x
thisform.List1.RowSource = x thisform.List1.RowSourceType = 8 else
messagebox(x+?文件不存在?,48) endif
表单f081c用于输入表名浏览表数据。按下列要求修改表单，修改后表单运行效果如图2所示。 第十套：
1.修改表单的有关属性，使其运行时自动居中，且无最大化、最小化按钮，标题为\输入表名浏览表\。
2.将标签控件的字号设置为10。
3.完善文本框控件的Valid事件代码，其功能是：使用IF…ELSE…ENDIF结构实现以下功能，若输入的文件不存在，则利用MESSAGEBOX()函数显示\文件不存在!\，否则将X作为表格的数据源，并且设置表格控件宽度为400。
步骤1:双击表单的Caption属性，设置为输入表名浏览表，设置MaxButton和MinButton均为.T.，设置AutoCenter为.T.。
步骤2:选择标签控件的FontSize属性并将其值设置为10。 步骤3:修改编辑框控件Text1的Valid属性如下： x=ALLT(this.value) c=x+\if file(%use &x
thisform.Grid1.RecordSource=x thisform.Grid1.width=400 else
messagebox(x+?文件不存在?,48) endif
11套，表单fb用于口令输入。按下列要求修改表单，修改后表单运行效果如图2所示。 图2
1.将左边命令按钮的标题设置为\确定\，且两个命令按钮的TOP属性均设置为82。 2.修改表单的有关属性，使其运行时自动居中，高度为120，宽度为280。 3.在表单上添加一个标签控件和一个文本框控件，并按图2所示设置标签和文本框控件的有关属性(文本框的\占位符\属性为\。 4.编写\确定\命令按钮的Click事件代码，其功能是：使用IF…ELSE…ENDIF结构实现下列功能，若文本框的Value值等于\，则利用MESSAGEBOX()函数显示\，否则显示
\口令不正确!\。
步骤1:双击打开表单文件fb，单击左面的按钮设置其Caption属性为\确定\，Top属性为82，设置右边\退出\命令按钮的Top属性为82。
步骤2:设置表单的AutoCenter属性为.T.，Width属性为280，Height属性为120。
步骤3:分别添加一个标签控件和一个文本框控件，设置标签控件的Caption属性为口令输入，设置文本框控件的PassWordChar属性为星号(*)。
步骤4:设置\确定\命令按钮的Click事件代码如下：
if thisform.Text1.value = ?ABC?
=messagebox(?OK!?,64) else
=messagebox(?口令不正确?,48)
Endif 12套， 图2
表单fb用于浏览表数据。按下列要求修改表单，修改后表单运行效果如图2所示。
1.修改表单的有关属性，使其运行时自动居中。
2.将student.score、tcher、course表添加到数据环境中。 3.在表单上添加一个选项按钮组和一个表格。 4.将表格下方左边的命令按钮换为标签控件。
5.使用生成器按图2所示修改选项按钮组的有关属性。
6.将选项按钮组的Value属性设置为\，并编写其Click事件代码，要求：第1条命令为c=THIS.Value；第2条命令的功能是将表格数据源属性设置为C；第3条命令按图2所示设置标签控件的标题属性，显示被选中表的表名和\表浏览\信息。 步骤1:设置表单的AutoCenter属性为：.T.。
步骤2:在表单上单击鼠标右键，在弹出的快捷菜单中选择【数据环境】命令，打开数据环境设计器，如图3.31所示。接着用鼠标右键单击该设计器，在弹出的快捷菜单中选择【添加】命令。在打开的\添加表或视图\对话框中将表tcher、student、score、course添加到表格中，如图3.32所示。
图3.31
图3.32