1.计算圆的面积的计算器

650) this.width=650;" src="http://s3.51cto.com/wyfs02/M01/12/43/wKiom1MAsFzxmH_EAADebJHFiwM002.jpg" title="QQ截图20140216203204.png" alt="wKiom1MAsFzxmH_EAADebJHFiwM002.jpg" />

r=Thisform.Text1.Value  &&将文本框1的值赋给r

Thisform.Text2.Value =3.14159*r*r   &&将计算结果赋给文本框2

Thisform.Release    &&释放表单

在文本框上单击右键选择“生成器”，将文本框的值设置成数值型。默认是字符型。

也可以用标签来显示计算结果，代码如下

r=Thisform.Text1.Value  &&将文本框1的值赋给r

s=3.14159*r*r

Thisform.Label3.Caption = transform(s)   &&将计算结果赋给文本框2

2.

650) this.width=650;" src="http://s3.51cto.com/wyfs02/M02/12/43/wKiom1MAsjeh3K7EAAFYZ4GI1Vs700.jpg" title="QQ截图20140216203727.png" alt="wKiom1MAsjeh3K7EAAFYZ4GI1Vs700.jpg" />

For i=0 to Thisform.width    &&循环控制语句

  Thisform.Label1.left=i      &&改变标签的左边距

   inkey(0.1,'h')            &&停留一段时间

Endfor                   &&循环终端语句

Thisform.Label1.left=100    &&还原标签的位置

本文出自 “阿凡达” 博客，请务必保留此出处http://shamrock.blog.51cto.com/2079212/1359599