解释一下吧
π=3.1416 &&----圆周率赋予变量
d=0 &&----变量d=0，本行可以省略
r=VAL(thisform.text1.value) &&----取得半径
s=π*r*r &&----s=面积
d=len(str(s)) &&----d=转换为字符型(整数面积)的长度
clear &&----清除屏幕
thisform.text1.value=ALLTRIM(STR(s,d,4)) &&----文本框赋值，ALLTRIM(STR(s,d,4))=去掉前后空格(转换为字符(面积，总长度d，小数位数4))
return &&----返回上一层
不理解：
d有什么用处？还赋了2次值，直接用10就可以了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024