创建调用函数

此示例使用标准 EXE 项目添加了模块文件。

• 创建新的“标准 EXE”项目。因此，默认情况下，表单将添加到项目中。
• 将模块文件添加到项目中
• 在窗体上放置一个命令按钮
• 创建命令按钮单击事件。

模块代码

在模块中创建了两个函数。一个是公共职能（FnAdd）。它需要两个整数参数 val_1 和 val_2。它返回一个 Integer。此函数添加两个参数并将值返回给调用者。在添加之前，这两个参数在另一个函数中经历一个过程。这是一个私人功能。公共和私人职能的特征/规则在备注部分解释。

Public Function FnAdd(val_1 As Integer, val_2 As Integer) As Integer

'Calling private function
val_1 = FnMultiplyBy5(val_1)

'Calling private function
val_2 = FnMultiplyBy5(val_2)

'Function return statement
FnAdd = val_1 + val_2

End Function

以下是模块中的私有功能。它需要一个整数参数 val。它返回一个整数。此函数将值 5 与参数相乘，并将结果返回给调用者。

Private Function FnMultiplyBy5(Val As Integer) As Integer

'Function return statement
FnMultiplyBy5 = Val * 5

End Function

表格代码

在命令按钮中单击事件。这里我们调用 Module Public 函数 FnAdd

Private Sub Command1_Click()
Debug.Print FnAdd(3, 7)
End Sub

立即窗口中的结果

50