下更新vfp表单例题参考

２)“关闭”的按钮Ｃoｍmand2的Cｌick事件代码：Thisｆorm.Ｒeｌｅase
(五)
题目要求:
（1)该表单的名称为“Form１”,标题为“温度转换”,高度为26０，宽度为40０；
2)定义一个名称为“Lａbel1”标题为“摄氏温度”的标签;再定义一个名称为“Ｌabeｌ２”标题为“华氏温度”的标签,两个标签的字号均为11磅；
下更新ｖｆp表单例题参考
———————————————————————————————— 作者:
———————————————————————————————— 日期：
ﻩ
VFP表单实验参考讲义
一、标签和文本框
（一）
题目要求：
(１)该表单的名称为“Form１”,标题为“密码输入窗口”，高度为１90,宽度为30０；（2)定义一个名称为“Label1”、标题为“请输入密码”、字号为1０磅的标签;（３）定义一个名称为“Teｘｔ1”的文本框，用于输入密码,当输入密码时，屏幕显示“*”;（4)定义一个名称为“Lａbel2”的标签,标题为空，自动调整控件大小;(5)定义一个名称为“Ｃomｍaｎｄ1”,标题为“显示密码”的按钮，当单击该按钮时，标签“Lａbeｌ2”显示输入的密码,编写Ｃｌick事件代码（６）定义一个名称为“Commａｎd２”，标题为“关闭”的按钮,当单击该按钮时,释放该表单。(不得退出VＦP系统）
(2)定义一个名称为“Labｅl1”标题为“请输入一个数”的标签；
(3)定义一个名称为“Ｌabel２”标题为“结果”的标签；
（4)定义一个名称为“Tｅxｔ1”的文本框；（5)定义一个名称为“Teｘｔ2”的文本框,具有只读属性
（６)定义一个名称为“Commaｎｄ1”,标题为“判断”的按钮，当单击该按钮时,若Ｔext1文本框输入的为偶数,则在Ｔeｘt２文本框中显示“这是一个偶数”，否则显示“这是一个奇数”，编写其Cｌick事件代码；
3）定义一个名称为“Ｔexｔ1”的文本框，用于输入摄氏温度,再定义一个名称为“Ｔext2”的文本框，具有只读属性,用于显示华氏温度;４)定义一个名称为“Commaｎd1”,标题为“转换”的按钮，当单击该按钮时，将输入的摄氏温度转换成华氏温度并显示在Texｔ２文本框中，编写其Click事件代码；其中：华氏温度=９/5＊摄氏温度＋３２
(7)定义一个名称为“Commanｄ2”，标题为“关闭”的按钮,当单击该按钮时,释放该表单 （不得退出VFP系统)
操作要点：
1）“判定”按钮Coｍmanｄ1的Clｉcｋ事件代码：
X＝Ｖal(Ｔhisform．Teｘt１.Vaｌue)
ＩＦ ＭOD(X，２)＝0
Ｔｈisforｍ.Ｔｅxｔ2.Value=“这是一个偶数!”
5）定义一个名称为“Ｃｏmmanｄ2”，标题为“关闭”的按钮，当单击该按钮时，释放该表单(不得退出VFＰ系统)。
操作要点：
1）“转换”按钮Ｃommand１的Cliｃｋ事件代码:
Ｘ＝Val(Thｉsfoｒｍ.Ｔｅxt1．Vaｌue)
Thｉsfｏrm.Text２.Ｖalue=９/５*Ｘ＋３２
2）“关闭”的按钮Cｏｍｍand2的Clｉｃk事件代码:Thisｆorｍ.Release
（5)定义一个名称为“Ｃoｍmａｎd1”，标题为“确定”的按钮，当单击该按钮时,文本框“Tｅxt３”中显示“Texｔ1”和“Text2”中两数之和;
（6)定义一个名称为“Ｃommａnd2”，标题为“关闭”的按钮,当单击该按钮时,释放该表单（不得退出VFP系统)
操作要点:
1)“确定”按钮Cｏmmand1的Ｃlicｋ事件代码:
操作要点：
1）注意将ｔext1的属性paｓｓworｄcｈａr设置为:*
２）“显示密码”按钮Ｃomｍand１的Clｉck事件代码:
写法一:
Ｔhisｆｏｒｂel2．Capｔiｏｎ＝Thisforｍ．Text1.Value
写法二：
X=Thisform.Text1.Ｖalｕe
Ｔhisｆorm．Lａbeｌ2.Ｃaption=Ｘ
X=Ｖaｌ(Thisform.Ｔext1.Valｕe)
Ｙ＝Vaｌ(Thiｓｆorm.Text2.Vaｌｕe)
Thiｓfoｒm.Texｔ3．Valuｅ＝X＋Y
2）“关闭”的按钮Commａnd2的Clｉck事件代码:Thisｆorｍ.Rｅlease
（七)
题目要求:
(１）该表单的名称为“Foｒm1”,标题为“奇偶判断”,高度为260，宽度为４０0;
3）“关闭”的按钮Commaｎd2的Click事件代码:
Thisｆorｍ．Ｒelｅａse
(二)
ﻬCｏmmaｎd１的CＬICK事件代码:
if tｈiｓform.teｘt1.ｖａlue＝"abc"
thisfoｒm.ｌabel2.ｃapｔioｎ=＂欢迎使用＂
eｌｓe
ｔｈｉsfｏrｍ.label2.cａｐｔiｏn="密码错误"
ELSE
Thｉsｆoｒm.Tｅxt2.Vaｌue=“这是一个奇数!”
Ｅｎｄif
Ｃｏmmaｎd2的CLIＣＫ事件代码:
ｔhisfｏrm．reｌeasｅ
（三)
代码编写:
1)“确定”按钮Ｃommanｄ1的Clicｋ事件代码:
ＩfＴhiｓforｍ.text1.vａｌuｅ=”ＡBＣD”
Ｍessaｇebｏｘ(“欢迎光临”，65,“密码正确“)
Ｅｌse
Mesｓａgebox(“禁止进入“,6５,”密码错误“)
（六)
题目要求:
(1）该表单的名称为“Foｒm1”，标题为“计算”，高度为２６0,宽度为４0０;
(2)定义三个文本框，从左到右名称分别为“Ｔeｘt1”、“Tｅｘt2”和“Text3”,其中“Text1”、“Teｘｔ2”用于输入两个数,“Text3”用于显示“Teｘt1”和“Text２”中两数之和;
(3）定义一个名称为“Laｂｅl1”的标签，标题为“＋”；(4）定义一个名称为“Labeｌ２”的标签,标题为“等于”；
Endif
2)“关闭”的按钮Command2的Clicｋ事件代码:Ｔhi写：
1)“确定”按钮Ｃｏmｍand1的Ｃｌiｃｋ事件代码：
r=val（thisform.tｅxt１.value）
s=3.14１5926*ｒ*r
messａｇｅboｘ(str（s，５,2），65，”面积”)