(修改)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事件代码:

X=Val(Thisform.Text1.Value)

IF MOD(X,2)=0

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