Question

$如何用visual foxpro 6.0表单设计求圆的面积

Answer 1

1.CREATE FORM TEST
2.添加标签Label1,修改其caption为“请输入圆半径:”，添加一个文本框text1在label1的后面
3.添加标签Label2,修改其caption为“圆面积为:”，添加一个文本框text2在label2的后面
4.添加一个命令按钮COMMAND1，修改其caption为“计算”，双击次按钮，输入其click事件代码：
S=0
R=VAL(THISFORM.TEXT1.VALUE)
S=PI()*R*R
THISFORM.TEXT2.VALUE=S
5.添加一个命令按钮COMMAND2，修改其caption为“退出”，双击次按钮，输入其click事件代码：
THISFORM.RELEASE