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

Const pi A衡痕贤伎s 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过程