下更新vfp表单例题参考
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VFP表单实验参考讲义
一、标签和文本框
（一）
题目要求：
（1）该表单的名称为“Form1”，标题为“密码输入窗口”，高度为190，宽度为300；（2）定义一个名称为“Label1”、标题为“请输入密码”、字号为10磅的标签；（3）定义一个名称为“Text1”的文本框，用于输入密码，当输入密码时，屏幕显示“*”；（4）定义一个名称为“Label2”的标签，标题为空，自动调整控件大小；（5）定义一个名称为“Command1”，标题为“显示密码”的按钮，当单击该按钮时，标签“Label2”显示输入的密码，编写Click事件代码（6）定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单。(不得退出VFP系统)
操作要点：
1）注意将text1的属性passwordchar设置为：*
2）“显示密码” 按钮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*摄氏温度+325) 定义一个名称为“Command2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单(不得退出VFP系统)。
操作要点：
1）“转换” 按钮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=“这是一个偶数!”
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