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

写法一：

bel2.Caption=Thisform.Text1.Value

写法二：

X=Thisform.Text1.Value

bel2.Caption=X

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

〔二〕

Command1 的CLICK事件代码:

if thisform.text1.value="abc"

bel2.caption="欢迎使用"

else

bel2.caption="密码错误"

Endif

Command2 的CLICK事件代码:

thisform.release

〔三〕

代码编写：

1)“确定〞按钮Command1的Click事件代码:

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