新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 ' 类模块 Base.Cls Public Function aSum(ByVal x As Long, ByVal y As Long) As Long Dim result As Long result = x + y aSum = result End Function Public Function aJian(ByVal x As Long, ByVal y As Long) As Long Dim result As Long result = x - y aJian = result End Function --------------------------------------------------------------- ' 调用 Private Sub Command1_Click() Dim a As New Base MsgBox a.aSum(2, 3) MsgBox a.aJian(2, 3) End Sub 返回 保存