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事件代码:写法一：Thisform.Label2.Caption=写法二：X=Thisform.Label2.Caption=X3〕“关闭〞的按钮Command2的Click事件代码:Thisform.Release〔二〕Command1 的CLICK事件代码:if thisform.text1.value="abc" thisform.label2.caption="欢送使用" else thisform.label2.caption="密码错误"EndifCommand2 的CLICK事件代码:thisform.release〔三〕代码编写：1) “确定〞 按钮Command1 的Click事件代码: If Thisform.text1.value=〞ABCD〞Messagebox(“欢送光临〞，65，“密码正确“) ElseMessagebox(“禁止进入“，65，〞密码错误“) Endif2〕“关闭〞的按钮 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+322〕“关闭〞的按钮 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+Y2〕“关闭〞的按钮 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)IFMOD(X,2)=0Thisform.Text2.Value=“这是一个偶数!〞ELSEThisform.Text2.Value=“这是一个奇数!〞ENDIF2〕“关闭〞的按钮 Command2的Click事件代码: Thisform.Release〔八〕代码编写：1〕“计算〞 按钮Command1 的Click事件代码: thisform.text2.value=x^22〕“关闭〞的按钮 Command2的Click事件代码: Thisform.Release〔九〕代码编写：1〕“产生随机数〞 按钮Command1 的Click事件代码:x=int(1000*rand())if x>=100thisform.text1.value=xEndif2) “判别〞 按钮Command2 的Click事件代码:If mod(x,2)=0 Thisform.label2.caption=“偶数“ Else Thisform.label2.caption=“奇数“ endif3〕“关闭〞的按钮 Command3的Click事件代码: Thisform.Release〔十〕题目要求：(1)该表单的名称为“Form1”，标题为“颜色设置〞，高度为260，宽度为400；(2)定义一个名称为“Label1”标题为“红〞的标签；(3)定义一个名称为“Label2”标题为“绿〞的标签；(4)定义一个名称为“Label3”标题为“蓝〞的标签；(5)定义三个名称分别为“Text1”、“Text2”、“Text3”的文本框； (6)定义一个名称为“Command1”，标题为“设置为表单背景色〞的按钮，当单击该按钮时，表单背景色设置为用3个文本框中数字组成的rgb颜色，编写Click事件代码；(7)定义一个名称为“Command2”，标题为“关闭〞的按钮，当单击该按钮时，释放该表单 (不得退出VFP系统)“设置为表单背景色〞 按钮操作要点：1〕Command1 的Click事件代码:X=Val(Thisform.Text1.Value)Y=Val(Thisform.Text2.Value)Z=Val(Thisform.Text3.Value)Thisform.Backcolor=RGB(X,Y,Z)2〕“关闭〞的按钮 Command2的Click事件代码: Thisform.Release二、列表框〔十一〕题目要求：(1)该表单的名称为“Form1”，标题为“列表框应用〞，高度为260，宽度为400；(2)定义一个名称为“LABEL1”，标题为“你的选择是〞的标签； (2)定义一个名称为“TEXT1”的文本框，具有只读属性；(3)定义一个名称为“List1”的列表框，数据来源类型为值，列表项的来源设置为“神州5号，神州6号，嫦娥1号〞，中选中列表项后，选中的项显示在文本框中，编写其CLICK事件代码。
4)定义一个名称为“Command1”，标题为“关闭〞的按钮，当单击该按钮时，释放该表单 (不得退出VFP系统)操作要点：1〕TEXT1的只读设置: READONLY属性设为.T.2〕LIST1的ROWSOURCETYPE属性选择〞1--值〞,ROWSOURCE属性里写上“神州5号，神州6号，嫦娥1号〞 注意:分隔的逗号全部是英文逗号！！！3〕列表框LIST1的CLICK事件代码:thisform.text1.value=this.value4〕“关闭〞按钮 Command1的Click事件代码: Thisform.Release〔十二〕题目要求：(1)该表单的名称为“Form1”，标题为“风景区添加〞，高度为260，宽度为400；(2)定义一个名称为“Text1”的文本框，字体为10磅字； (3)定义一个名称为“List1”的列表框，数据来源类型为1，列表项的来源设置为“泰山,黄山〞 (4)定义一个名称为“Command1”，标题为“添加〞的按钮，当单击该按钮时，文本框中输入的内容添加到列表框最后,编写其Click事件代码；(5)定义一个名称为“Command2”，标题为“关闭〞的按钮，当单击该按钮时，释放该表单 (不得退出VFP系统)。
代码编写：1〕“添加〞 按钮Command1 的Click事件代码:X=ThisfoThisform.List1.AddItem(X)2〕“关闭〞的按钮 Command2的Click事件代码: Thisform.Release〔十三〕题目要求：〔1〕该表单的名称为“Form1〞，标题为“我的表单〞，高度为260，宽度为400；〔2〕定义一个名称为“List1〞列表框,字号为11磅，用于显示偶数；〔3〕定义一个名称为“Command1〞，标题为“开始〞的按钮，当单击该按钮时，将1到100之间的偶数显示在列表框“List1〞中，编写其Click事件代码；〔4〕定义一个名称为“Command2”，标题为“关闭〞的按钮，当单击该按钮时，释放该表单(不得退出VFP系统)代码编写：1〕“开始〞 按钮Command1 的Click事件代码: FOR N=2 TO100 STEP 2 Thisform.List1.AddItem(STR(N,3))ENDFOR注意：因为列表框的默认类型为字符型，所以加数字进去时要使用函数转换2〕“关闭〞的按钮 Command2的Click事件代码: Thisform.Release〔十四〕题目要求：1) 表单的名称为“Fo。