vfp表单所有习题参考答案.docx

vfp表单所有习题参考答案.docx

《vfp表单所有习题参考答案.docx》由会员分享，可在线阅读，更多相关《vfp表单所有习题参考答案.docx（115页珍藏版）》请在冰点文库上搜索。

vfp表单所有习题参考答案

VFP表单实验参考讲义

一、标签和文本框

（一）

题目要求：

（1）该表单的名称为“Form1”，标题为“密码输入窗口”，高度为190，宽度为300；

（2）定义一个名称为“Label1”、标题为“请输入密码”、字号为10磅的标签；（3）定义一个名称为“Text1”的文本框，用于输入密码，当输入密码时，屏幕显示“*”；（4）定义一个名称为“Label2”的标签，标题为空，自动调整控件大小；（5）定义一个名称为“Command1”，标题为“显示密码”的按钮，当单击该按钮时，标签“Label2”显示输入的密码，编写Click事件代码（6）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单。

（不得退出VFP系统）

操作要点：

1）注意将text1的属性passwordchar设置为：

*

2）label2的属性autosize设置为：

.T.

3）“显示密码”按钮Command1的Click事件代码:

写法一：

Thisform.Label2.Caption=Thisform.Text1.Value

写法二：

X=Thisform.Text1.Value

Thisform.Label2.Caption=X

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

Thisform.Release

（二）

Command1的CLICK事件代码:

ifthisform.text1.value="abc"

thisform.label2.caption="欢迎使用"

else

thisform.label2.caption="密码错误"

Endif

Command2的CLICK事件代码:

thisform.release

（三）

代码编写：

1）“确定”按钮Command1的Click事件代码:

IfThisform.text1.value=”ABCD”

Messagebox（“欢迎光临”，65，“密码正确“）

Else

Messagebox（“禁止进入“，65，”密码错误“）

Endif

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

Thisform.Release

（四）

代码编写：

1）“确定”按钮Command1的Click事件代码:

r=val（thisform.text1.value）

s=3.1415926*r*r

messagebox（str（s,5,2）,65,”面积”）

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

Thisform.Release

（五）

题目要求：

（1）该表单的名称为“Form1”，标题为“温度转换”，高度为260，宽度为400；

2）定义一个名称为“Label1”标题为“摄氏温度”的标签；再定义一个名称为“Label2”标题为“华氏温度”的标签,两个标签的字号均为11磅；

3）定义一个名称为“Text1”的文本框，用于输入摄氏温度，再定义一个名称为“Text2”的文本框，具有只读属性，用于显示华氏温度;4）定义一个名称为“Command1”，标题为“转换”的按钮，当单击该按钮时，将输入的摄氏温度转换成华氏温度并显示在Text2文本框中，编写其Click事件代码；其中：

华氏温度=9/5*摄氏温度+32

5）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

操作要点：

1）文本框text2的readonly属性设置为.T.

2）“转换”按钮Command1的Click事件代码:

X=Val（Thisform.Text1.Value）

Thisform.Text2.Value=9/5*X+32

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

Thisform.Release

（六）

题目要求：

（1）该表单的名称为“Form1”，标题为“计算”，高度为260，宽度为400；

（2）定义三个文本框，从左到右名称分别为“Text1”、“Text2”和“Text3”，其中“Text1”、“Text2”用于输入两个数，“Text3”用于显示“Text1”和“Text2”中两数之和；

（3）定义一个名称为“Label1”的标签，标题为“+”；（4）定义一个名称为“Label2”的标签，标题为“等于”；

（5）定义一个名称为“Command1”，标题为“确定”的按钮，当单击该按钮时，文本框“Text3”中显示“Text1”和“Text2”中两数之和；

（6）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）

操作要点：

1）“确定”按钮Command1的Click事件代码:

X=Val（Thisform.Text1.Value）

Y=Val（Thisform.Text2.Value）

Thisform.Text3.Value=X+Y

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

Thisform.Release

（七）

题目要求：

（1）该表单的名称为“Form1”，标题为“奇偶判断”，高度为260，宽度为400；

（2）定义一个名称为“Label1”标题为“请输入一个数”的标签；

（3）定义一个名称为“Label2”标题为“结果”的标签；

（4）定义一个名称为“Text1”的文本框；（5）定义一个名称为“Text2”的文本框，具有只读属性

（6）定义一个名称为“Command1”，标题为“判断”的按钮，当单击该按钮时，若Text1文本框输入的为偶数，则在Text2文本框中显示“这是一个偶数”，否则显示“这是一个奇数”，编写其Click事件代码；

（7）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）

操作要点：

1）“判定”按钮Command1的Click事件代码:

X=Val（Thisform.Text1.Value）

IFMOD（X,2）=0

Thisform.Text2.Value=“这是一个偶数!

”

ELSE

Thisform.Text2.Value=“这是一个奇数!

”

ENDIF

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

Thisform.Release

（八）

代码编写：

1）“计算”按钮Command1的Click事件代码:

x=thisform.text1.value

thisform.text2.value=x^2

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

Thisform.Release

（九）

代码编写：

1）“产生随机数”按钮Command1的Click事件代码:

法一：

x=int（1000*rand（））

ifx>=100

thisform.text1.value=x

Endif

法二：

x=int（900*rand（））+100

thisform.text1.value=x

2）“判别”按钮Command2的Click事件代码:

X=thisform.text1.value

Ifmod（x,2）=0

Thisform.label2.caption=“偶数“

Else

Thisform.label2.caption=“奇数“

endif

3）“关闭”的按钮Command3的Click事件代码:

Thisform.Release

（十）

题目要求：

（1）该表单的名称为“Form1”，标题为“颜色设置”，高度为260，宽度为400；

（2）定义一个名称为“Label1”标题为“红”的标签；

（3）定义一个名称为“Label2”标题为“绿”的标签；

（4）定义一个名称为“Label3”标题为“蓝”的标签；

（5）定义三个名称分别为“Text1”、“Text2”、“Text3”的文本框；

（6）定义一个名称为“Command1”，标题为“设置为表单背景色”的按钮，当单击该按钮时，表单背景色设置为用3个文本框中数字组成的rgb颜色，编写Click事件代码；

（7）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）

。

操作要点：

1）Command1的Click事件代码:

X=Val（Thisform.Text1.Value）

Y=Val（Thisform.Text2.Value）

Z=Val（Thisform.Text3.Value）

Thisform.Backcolor=RGB（X,Y,Z）

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

Thisform.Release

二、列表框

（十一）

题目要求：

（1）该表单的名称为“Form1”，标题为“列表框应用”，高度为260，宽度为400；

（2）定义一个名称为“LABEL1”，标题为“你的选择是”的标签；

（2）定义一个名称为“TEXT1”的文本框，具有只读属性；

（3）定义一个名称为“List1”的列表框，数据来源类型为值，列表项的来源设置为“神州5号，神州6号，嫦娥1号”，当选中列表项后，选中的项显示在文本框中，编写其CLICK事件代码。

（4）定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

操作要点：

1）TEXT1的只读设置:

READONLY属性设为.T.

2）LIST1的ROWSOURCETYPE属性选择”1--值”,ROWSOURCE属性里写上“神州5号，神州6号，嫦娥1号”

注意:

分隔的逗号全部是英文逗号

3）列表框LIST1的CLICK事件代码:

thisform.text1.value=this.value

或:

thisform.text1.value=thisform.list1.value

4）“关闭”按钮Command1的Click事件代码:

Thisform.Release

（十二）

题目要求：

（1）该表单的名称为“Form1”，标题为“风景区添加”，高度为260，宽度为400；

（2）定义一个名称为“Text1”的文本框，字体为10磅字；

（3）定义一个名称为“List1”的列表框，数据来源类型为1，列表项的来源设置为“泰山,黄山”（4）定义一个名称为“Command1”，标题为“添加”的按钮，当单击该按钮时，文本框中输入的内容添加到列表框最后,编写其Click事件代码；

（5）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

代码编写：

1）“添加”按钮Command1的Click事件代码:

X=Thisform.Text1.Value

Thisform.List1.AddItem（X）

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

Thisform.Release

（十三）

题目要求：

（1）该表单的名称为“Form1”，标题为“我的表单”，高度为260，宽度为400；

（2）定义一个名称为“List1”列表框,字号为11磅，用于显示偶数；

（3）定义一个名称为“Command1”，标题为“开始”的按钮，当单击该按钮时，将1到100之间的偶数显示在列表框“List1”中，编写其Click事件代码；

（4）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

代码编写：

1）“开始”按钮Command1的Click事件代码:

FORN=2TO100STEP2

Thisform.List1.AddItem（STR（N,3））

ENDFOR

注意：

因为列表框的默认类型为字符型，所以加数字进去时要使用函数转换。

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

Thisform.Release

（十四）

题目要求：

1）表单的名称为“Form1”，标题为“列表框应用”，高度为260，宽度为400；

2）定义一个名称为“Label1”标题为“你选中的项是”的标签；

3）定义一个名称为“Text1”的文本框，具有只读属性；

4）定义一个名称为“List1”的列表框，数据来源类型为“值”，项的来源为“A,B,C,D,E”，当选中列表项后，选中的项显示在文本框中，编写其Click事件代码；

6）定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

代码编写：

1）列表框List1的Click事件代码:

X=Thisform.List1.Value

Thisform.Text1.Value=X

2）“关闭”的按钮Command1的Click事件代码:

Thisform.Release

（十五）

操作要点：

1）“添加到右边”按钮Command1的Click事件代码:

thisform.list2.additem（thisform.list1.value）

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

Thisform.Release

三、组合框

（十六）

题目要求：

1）该表单的名称为“Form1”，标题为“课程选择”，高度为260，宽度为400；

2）定义一个名称为“Combo1”的下拉组合框，数据来源类型为1，列表项的来源设置为“计算机基础,高等数学,大学英语”，编写其Click事件代码，使得选中的列表项显示在文本框中；

3）定义一个名称为“Text1”的文本框，字体为12磅字，用于显示列表框选中的列表项；

4）定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

操作要点：

1）下拉组合框Combo1的Click事件代码:

X=Thisform.Combo1.Value

Thisform.Text1.Value=X

2）“关闭”的按钮Command1的Click事件代码:

Thisform.Release

（十七）

题目要求：

1）该表单的名称为“Form1”，标题为“成绩表单”，高度为260，宽度为400；

2）将考生文件夹下的自由表cj.dbf添加到表单的数据环境中；

3）定义一个名称为“Combo1”下拉列表框,数据来源类型为“字段”，数据项的来源为cj表中“姓名”字段；

4）定义一个名称为“Text1”的文本框；

5）编写下拉列表框的“Click”事件代码，将选中学生所对应的成绩显示在文本框中；

6）定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不得退出VFP系统）。

操作要点：

1）下拉列表框Combo1的Click事件代码:

Thisform.Text1.Value=成绩

2）“关闭”的按钮Command1的Click事件代码:

Thisform.Release

四、复选框

（十八）

（法1）Check1的Value属性值初始为数值型.

复选框Check1的Click事件代码:

IFThisForm.Check1.Value=1

ThisForm.Label1.Fontunderline=.T.

ELSE

ThisForm.Label1.Fontunderline=.F.

ENDIF

（法2）Check1的Value属性值初始为逻辑型.

复选框Check1的Click事件代码:

IFThisForm.Check1.Value=.T.

ThisForm.Label1.Fontunderline=.T.

ELSE

ThisForm.Label1.Fontunderline=.F.

ENDIF

（十九）

题目要求：

（1）表单的名称为“Form1”，标题为“设置窗口”.

（2）定义一个名称为“Label1”、标题为“请输入内容”的标签，字体为加粗、楷体14磅字。

（3）定义一个名称为“Text1”高度适中的文本框，Value值为“请观察效果”；

（4）定义一个名称为“Check1”，标题为“文本框背景为红色”、Value值为.F.的复选框，当选中该复选框时，“Text1”背景为红色（RGB值为255,0,0）,当未选中该复选框时，“Text1”背景为白色（RGB值为255,255,255）；（5）定义一名称为“Check2”，标题“文本框前景为蓝色”、Value值为.F.的复选框，当选中该复选框时，“Text1”前景为蓝色（RGB值为0,0,255）,未选中该复选框时，“Text1”前景为黑色（RGB值为0,0,0）（6）定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时，释放该表单（不退出VFP系统）。

操作要点：

1）复选框Check1的Click事件代码:

IFThisForm.Check1.Value=.T.

ThisForm.Text1.BackColor=RGB（255,0,0）

ELSE

ThisForm.Text1.BackColor=RGB（255,255,255）

ENDIF

2）复选框Check2的Click事件代码:

IFThisForm.Check2.Value=.T.

ThisForm.Text1.ForeColor=RGB（0,0,255）

ELSE

ThisForm.Text1.ForeColor=RGB（0,0,0）

ENDIF

说明：

因为题目要求将CHECK1和CHECK2的初值设为.F.,所以代码里要把复选框写成相应的逻辑型。

五、选项按钮组

（二十）

（1）该表单的名称为“Form1”，标题为“我的表单”，高度为260，宽度为400；

（2）定义一个名称为“LABEL1”，标题为“请输入文本内容”的标签,字号为楷体,加粗,14磅字。

（3）定义一个名称为“TEXT1”的文本框，字号为16磅字，用于输入文本；

（4）定义一个名称为“LABEL2”，标题为“请选择字体”的标签，字体为黑体，加粗，12磅字。

（5）定义一个名称为“OPTIONGROUP1”的选项按钮组，标题依次为“宋体”、“隶书”、“黑体”、“幼圆”，当选中某个按钮时，文本框中的字体发生相应的变化，用DOCASE结构编写CLICK事件代码。

（6）定义一个名称为“Command1”，标题为“关闭”的按钮，当单击该按钮时释放该表单（不得退出VFP系统）。

操作要点：

1）选项按钮组OPTIONGROUP1的CLICK事件代码：

docase

casethis.value=1

thisform.text1.fontname="宋体"

casethis.value=2

thisform.text1.fontname="隶书"

casethis.value=3

thisform.text1.fontname="黑体"

casethis.value=4

thisform.text1.fontname="幼圆"

Endcase

注意：

this.value等价于thisform.optiongroup1.value

2）关闭按钮COMMAND1的CLCK事件代码：

THISFORM.RELEASE

（二十一）

题目要求：

（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

docase

casethis.value=1

thisform.text1.value=upper（x）

casethis.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事件代码:

go1

thisform.refresh

2）COMMAND2的CLICK事件代码:

skip-1

thisform.refresh

3）COMMAND3的CLICK事件代码:

Skip1

thisform.refresh

4）COMMAND4的CLICK事件代码:

gobottom

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

（二十四）

代码编写：

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

七、计时器

（二十五）

题目要求：