中科新闻网如何退出ipad账号:Fox pro 编程高手请进。。有个不懂的程序呀
来源：百度文库 编辑：中科新闻网 时间：2024/05/01 04:47:38
π=3.1416
d=0
r=VAL(thisform.text1.value)
s=π*r*r
d=len(str(s))
clear
thisform.text1.value=ALLTRIM(STR(s,d,4))
return
从键盘上输入圆的半径R，求圆的面积S。
用的是一个表单，有一个文本框和一个命令按钮。结果和要输入的值都在文本框中显示。
大家帮我解释解释上面那段程序吧。。这样编写对吗？？应该怎样呀？？
d=len(str(s))我就是不能理解这一个语句呀。算出的结果不能理解。
d=0
r=VAL(thisform.text1.value)
s=π*r*r
d=len(str(s))
clear
thisform.text1.value=ALLTRIM(STR(s,d,4))
return
从键盘上输入圆的半径R，求圆的面积S。
用的是一个表单，有一个文本框和一个命令按钮。结果和要输入的值都在文本框中显示。
大家帮我解释解释上面那段程序吧。。这样编写对吗？？应该怎样呀？？
d=len(str(s))我就是不能理解这一个语句呀。算出的结果不能理解。
解释一下吧
π=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就可以了