1、VFP 表单实验参考讲义一、标签和文本框（一）题目要求：（1）该表单的名称为“Form1”，标题为“密码输入窗口”，高度为 190，宽度为 300； （2）定义一个名称为“Label1”、标题为“请输入密码”、字号为 10 磅的标签；（3）定义一个名称为“Text1 ”的文本框，用于输入密码，当输入密码时，屏幕显示“* ”； （4）定义一个名称为“Label2”的标签，标题为空，自动调整控件大小； （5）定义一个名称为“Command1”，标题为“显示密码”的按钮，当单击该按钮时，标签“Label2”显示输入的密码，编写 Click 事件代码（6）定义一个名称为“Command2 ”，标题为“
2、关闭”的按钮，当单击该按钮时，释放该表单。(不得退出 VFP 系统)操作要点：1）注意将 text1 的属性 passwordchar 设置为：*2）label2 的属性 autosize 设置为： .T.3） “显示密码” 按钮 Command1 的 Click 事件代码:写法一：Thisform.Label2.Caption=Thisform.Text1.Value写法二：X=Thisform.Text1.ValueThisform.Label2.Caption=X3） “关闭”的按钮 Command2 的 Click 事件代码:Thisform.Release（二）Command1 的
3、CLICK 事件代码:if thisform.text1.value=“abc“thisform.label2.caption=“欢迎使用“elsethisform.label2.caption=“密码错误“EndifCommand2 的 CLICK 事件代码:thisform.release（三）代码编写：1) “确定” 按钮 Command1 的 Click 事件代码:If Thisform.text1.value=”ABCD”Messagebox(“欢迎光临” ，65， “密码正确“)ElseMessagebox(“禁止进入“，65， ”密码错误“)Endif2） “关闭”的按钮 Com
4、mand2 的 Click 事件代码:Thisform.Release（四）代码编写：1) “确定” 按钮 Command1 的 Click 事件代码:r=val(thisform.text1.value)s=3.1415926*r*rmessagebox(str(s,5,2),65,”面积”)2) “关闭”的按钮 Command2 的 Click 事件代码:Thisform.Release（五）题目要求：(1) 该表单的名称为“Form1”，标题为“ 温度转换”，高度为 260，宽度为 400；2) 定义一个名称为“Label1”标题为“ 摄氏温度” 的标签；再定义一个名称为 “Label2
5、”标题为“华氏温度”的标签,两个标签的字号均为 11磅；3) 定义一个名称为“Text1” 的文本框，用于输入摄氏温度，再定义一个名称为“Text2”的文本框，具有只读属性，用于显示华氏温度; 4) 定义一个名称为“Command1 ”，标题为 “转换”的按钮，当单击该按钮时，将输入的摄氏温度转换成华氏温度并显示在 Text2 文本框中，编写其 Click 事件代码；其中：华氏温度=9/5*摄氏温度+32 5) 定义一个名称为 “Command2”，标题为“关闭 ”的按钮，当单击该按钮时，释放该表单(不得退出 VFP 系统)。操作要点：1）文本框 text2 的 readonly 属性设置为.
6、T.2） “转换” 按钮 Command1 的 Click 事件代码:X=Val(Thisform.Text1.Value)Thisform.Text2.Value=9/5*X+322） “关闭”的按钮 Command2 的 Click 事件代码:Thisform.Release（六）题目要求：（1）该表单的名称为“Form1”，标题为“计算”，高度为 260，宽度为 400；（2）定义三个文本框，从左到右名称分别为“Text1 ”、 “Text2”和“Text3” ，其中“Text1”、 “Text2”用于输入两个数， “Text3”用于显示“Text1”和“ Text2”中两数之和；（3）
7、定义一个名称为“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.Te
8、xt3.Value=X+Y2） “关闭”的按钮 Command2 的 Click 事件代码: Thisform.Release（七）题目要求：(1)该表单的名称为“ Form1”，标题为 “奇偶判断”，高度为 260，宽度为 400；(2)定义一个名称为“Label1”标题为“ 请输入一个数” 的标签；(3)定义一个名称为“ Label2”标题为“结果”的标签；(4) 定义一个名称为“Text1”的文本框；(5)定义一个名称为“ Text2”的文本框，具有只读属性(6)定义一个名称为“ Command1”，标题为“ 判断 ”的按钮，当单击该按钮时，若 Text1 文本框输入的为偶数，则在 Te
9、xt2 文本框中显示“这是一个偶数”，否则显示 “这是一个奇数 ”，编写其 Click 事件代码；(7)定义一个名称为“Command2”，标题为“关闭 ”的按钮，当单击该按钮时，释放该表单 (不得退出 VFP 系统 )操作要点：1） “判定” 按钮 Command1 的 Click 事件代码:X=Val(Thisform.Text1.Value)IF MOD(X,2)=0 Thisform.Text2.Value=“这是一个偶数!”ELSEThisform.Text2.Value=“这是一个奇数!”ENDIF2） “关闭”的按钮 Command2 的 Click 事件代码: Thisform.Release（八）代码编写：1） “计算” 按钮 Command1 的 Click 事件代码:x=thisform.text1.valuethisform.text2.value=x22） “关闭”的按钮 Command2 的 Click 事件代码: Thisform.Release
