Visual FoxPro题目。设计一个求圆面积和周长的表单，通过选项按钮组选定求圆的面积和周长，

Question

Visual FoxPro题目。设计一个求圆面积和周长的表单，通过选项按钮组选定求圆的面积和周长，单击"计算"命令进行计算。 怎么样用文字的方式叙述一下怎么做。？

Answer 1

你先新建一个表单，在上面添加一个文本框，再在上面添加一个选择按钮组，在属性窗口设置buttoncount属性值为2，然后双击这个选项按钮组，打开它的click代码窗口，输入代码程序
r=val(allt(thisform.text1.value))
if this.value=1
s=pi()*r^2
messagebox("圆的面积是:"+str(s))
else
s=2*pi*r
messagebox("圆的周长是:"+str(s))
endif