遥远时空中舞一夜歌曲:VFP一个很简单的计算问题，谢谢大家

来源：百度文库 编辑：高校问答 时间：2024/04/29 04:47:56
在TEXT1中输入半径，单击“计算”，如果半径大于等于0，则圆面积显示在TEXT2中，

利用文本框输入圆的半径，然后按"计算"按钮，得到圆的面积。

步骤如下：
(1). 建立应用程序用户界面：
选择"新建"表单，进入表单设计器，增加两个"文本框"控件text1和text2,两个"标签"控件label1和label2,一个"命令按钮"command1.

(2). 设置对象属性：
修改text1的属性：inputmask 改为：999.99
value改为：0
修改text2的属性： readonly改为：.t.
inputmask 改为：9999999.99
tabstop改为：.f.
value改为：0
修改label1的属性： autosize改为：.t.
caption改为：请输入圆的半径：
fontsize改为：16
修改label2的属autosize改为：.t.
caption改为：圆的面积为：
fontsize改为：16
修改command1的属性：caption改为：\ fontname改为：.t.

(3). 编写程序代码：
编写表单的事件代码：
activate事件：this.text1.setfocus
编写command1的事件代码：
click事件： a=thisform.text1.value
thisform.text2.value=a*a*3.14
thisform.text1.setfocus

在"计算"按钮的click事件代码中输入以下内容:
r=THISFORM.Text1.Value
IF r>=0
mj=r*r*PI()
THISFORM.Text2.Value=mj
ENDIF

要注意事先把两个文本框的InputMask属性设置成"9"

VFP一个很简单的计算问题，谢谢大家 VFP中的一个简单的删除问题 VFP中的一个极其简单的查询问题。查询问题 一个很简单的英语问题,谢谢大家帮忙!!!!!!!!!!!!!!!! VFP中的一个极其简单的打印问题 VFP中的一个相当简单的删除问题, VFP中的一个极其简单的替换问题。 VFP的问题，谢谢 一个简单的数学计算问题？ 很简单的问题，谢谢大家帮忙