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过程
