建立呼叫函式

此示例使用標準 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