VB中如何写程序代码计算圆的面积

本例子将通过圆周率的值和用户输入的圆的半径，计算出圆的面积。

01

在工具箱中找到对应的控件，然后在窗体上适当的位置进行绘制。

02

接下来我们开始编写计算按钮的单击事件。首先先定义两个变量r和s，r是半径，s是面积。

03

接下来定义毕吵一个Pi的常量，默认值设置为3.14。

04

接下来我们开始编写代码。绝灶（因为程序行数较多，在并数扮这里统一写注释不方便观察，每句的含义请看程序中的注释。）

05

按F5运行测试，在框中输入半径为3，即可计算出结果为28.26。

特别提示

注意公式的改写，平方请用幂符号“^”，乘号请用“*”。

代码掘信中如下：

PrivateSubForm_Click()

DimnAsInteger,mAsLong,sumAsLong

m=1

sum=0

n=Val(InputBox("输入一个正整数"))

Fori=1Ton

m=m*i

sum=sum+m

Nexti

Printn&"的阶乘判山和是"&坦销sum

EndSub

---