vb中用怎样sub过程计算圆面积与周长

Const pi As Double = 3.141592

Private Sub Form_Load()

Dim rad As Integer

Dim area As Double

Dim pre As Double

rad = 10

area = pi * rad * rad

pre = 2 * pi * rad

Print "半径="; rad

Print "圆面积="; area

Print "圆周长="; pre

End Sub

扩展资料

如没有显式地指定使用 Public 或 Private，则 即它们对于 Script 中的所有其他过程都是可见的。Sub 过程中局部变量的值在调用过程中不被保留。

所有可执行代码必须包含于过程中。不能在另一个 Sub 或 Function 过程中定义一个 Sub 过程。

使用 Exit Sub 语句可以立即从 Sub 过程中退出。程序继续执行调用 Sub 过程的语句之后的语句。可以在 Sub 过程中任意位置出现任意个 Exit Sub 语句。

参考资料来源：百度百科-Sub过程

Const pi As Single = 3.141593

Sub f1(r) '计算面积，r是半径
MsgBox "面积为" & pi * r ^ 2
End Sub

Sub f2(r) '计算周长，r是半径
MsgBox "面积为" & 2 * pi * r
End Sub