VFP笔记

最新推荐文章于 2021-10-24 22:05:24 发布

商商-77

最新推荐文章于 2021-10-24 22:05:24 发布

阅读量717

点赞数

分类专栏： VFP

本文链接：https://blog.csdn.net/umgsai/article/details/38467785

版权

VFP 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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