1、过程
Public|Private Sub 过程名(形参, ...)
...
End Sub
注:Exit Sub强制退出过程
2、函数
Public|Private Function 函数名(形参, ...) As 返回数据类型
...
函数名=返回值
End Function
注:Exit Function强制退出函数
3、类模块
Private 变量名 As 数据类型
Property Get 属性名() As 属性类型
属性名=变量名
End Property
Property Let 属性名(ByVal 形参名 As 数据类型)
变量名=形参名
End Property
Property Set 属性名(ByVal 形参名 As 数据类型)
...
End Property
时间: 2024-10-29 19:08:12