Module1.bas代码：
Public Function Addition(a As Integer, b As Integer)
Addition = a + b
End Function调用示例：
MsgBox Addition(2, 3)②类模块
Class1.cls代码：
Public Function Subtraction(a As Integer, b As Integer)
Subtraction = a - b
End Function调用示例：
Dim obj As New Class1
MsgBox obj.Subtraction(2, 3)小结
模块中的公有函数、子过程可以直接调用，而类模块中的公有函数、子过程必须由类实例对象来调用！
评论（0）
暂无评论。