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

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

01

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

02

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

03

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

04

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

05

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

特别提示

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

Private Sub Form_click()

Dim r As Single'定义半径r为单精度(变量)

Const PI As Single = 3.14 '铅埋定义PI为单精度(常量)

Dim s As Single '定义面积S为单精度（纤让变量）

r = InputBox("输入r") '半径r通过inputbox函数输入值

s = PI * r ^ 2 '用求圆面积公式，并把槐竖蚂值赋给S

Print s '在窗体上打印出S的值

End Sub

Private Sub Command1_Click()

D = InputBox("请输入圆的直径")

S = 3.1415926 / 4 * D ^ 2

L = 3.1415926 * D

MsgBox ("圆的面拿运积" &S &vbCrLf &"圆的周长" &L)

End Sub

Private Sub Command2_Click()

R = InputBox("请输入圆的半径")

S = 3.1415926 * (R ^ 2)

L = 2 * 3.1415926 * R

MsgBox ("圆的面积" &S &vbCrLf &"圆的族粗周兆敏镇长" &L)

End Sub

---