表单上建一文本框Text1，和一个命令按纽。在命令按钮的Click事件中写以下代码r=val(thisform.text1.value)s=alltrim(str(r*r*pi(),10,3))messagebox("圆的面积为 "+s)
