VFP笔记 - 爱码网

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

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

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