vfp表单所有习题参考答案

(1)该表单的名称为“Form1”，标题为“字符转换”，高度为260，宽度为400； (2)定义一个名称为“Label1”、标题为“请输入字符串”的标签，字体为加粗12磅字； (3)定义一个名称为“Text1”的文本框，字体为10磅字，用于输入字符串；

(4)定义一个名称为“OptionGroup1”的选项按钮组，2个按钮的标题顺序为“转成大写”、“转成小写”，当选中某个按钮时，文本框输入的字符串发生相应的变化，编写“OptionGroup1”的Click事件代码；

(5)定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时，释放该表单 (不得退出VFP系统) 操作要点：

1）选项按钮组OPTIONGROUP1的CLICK事件代码: x=thisform.text1.value do case

case this.value=1

thisform.text1.value=upper(x) case this.value=2

thisform.text1.value=lower(x) Endcase

2）关闭按钮COMMAND1的CLICK事件代码: Thisform.release

六、命令按钮组

（二十二）

题目要求：

(1)该表单的名称为“Form1”，标题为“学生成绩查询”，高度为260，宽度为400； (2)将xdcj.dbf添加到表单的数据环境中 (3)将xscj表各字段拖至表单上；

(4)定义一个名称为“CommandGroup1”的命令按钮组，4个按钮的标题顺序为“第一条”、“上一条”、“下一条”、“最后一条”当选中某个按钮时，文本框中字符串发生相应的变化，编写“CommandGroup1”的Click事件代码. 操作要点：

右击命令按钮组，在弹出的快捷菜单上选生成器，弹出“命令组生成器”对话框 选“布局”选项卡，按钮布局：水平 按钮组各命令按钮的CLICK事件代码如下： 1） COMMAND1的CLICK事件代码: go 1

13

thisform.refresh

2） COMMAND2的CLICK事件代码: skip -1

thisform.refresh

3） COMMAND3的CLICK事件代码: Skip 1

thisform.refresh

4） COMMAND4的CLICK事件代码: go bottom thisform.refresh

七、微调控件

（二十三）

操作要点：

1）把spinner1的increment属性设置为1.00，spinnerhighvalue设为40，spinnnerlowvalue设为6 1） Spinner1的interactivechange事件代码：thisform.text1.fontsize=thisform.spinner1.value 2）关闭按钮COMMAND1的CLICK事件代码: thisform.release

14

（二十四）

代码编写：

1）“设置为表单背景色”按钮COMMAND1事件代码为：

x=thisform.spinner1.value y=thisform.spinner2.value z=thisform.spinner3.value thisform.backcolor=rgb(x,y,z)

2）关闭按钮COMMAND1的CLICK事件代码: thisform.release

七、计时器

（二十五）

题目要求：

(1)该表单的名称为“Form1”，标题为“欢迎光临”，高度为260，宽度为400；

(2)定义一个名称为“LABEL1”，标题为“2008北京奥运”的标签,字号为12的加粗蓝色字体(RGB值为0,0,255); (3)定义一个名称为“TIMER1”的计时器,Enabled为.F. ,Interval的值为500,编写Timer事件代码,使得每执行一次代码标签上移10;

(4)定义一个名称为“Command1”，标题为“开始”的按钮，当单击该按钮时，标签LABEL1中的内容逐渐向表单上方移动;

(5)定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单(不得退出VFP系统)。 操作要点：

1）TIMER1按钮的TIMER事件代码为:

15

thisform.label1.top=thisform.label1.top-10 Command1按钮的CLICK事件代码为: thisform.timer1.enabled=.t.

2）“关闭”的按钮 Command2的Click事件代码: Thisform.Release

注意：1）不要忘记设置TIMER1的INTERVAL

2）执行过程：开始按钮的CLICK事件代码为激活时钟TIMER1，由TIMER1的CLICK事件代码控制标签的移动。 （二十六）

代码编写：

1）时钟TIMER1按钮的TIMER事件代码为: thisform.label1.left=thisform.label1.left+5

2）“开始“按钮Command1的CLICK事件代码为: thisform.timer1.enabled=.t.

3）“关闭”按钮 Command2的Click事件代码: Thisform.Release

16