VBA 函数参数列表选择

使用VBA函数参数列表可以帮助我们更有效地编写和调用函数。参数列表是指函数的输入参数，可以根据函数的要求进行定义和传递。在VBA中，参数列表由函数名称、参数名称和参数类型组成。下面将介绍如何使用VBA函数参数列表，并附带案例代码。

vba
Function AddNumbers(num1 As Integer, num2 As Integer) As Integer
    AddNumbers = num1 + num2
End Function
Sub TestFunction()
    Dim result As Integer
    result = AddNumbers(10, 20)
    MsgBox "The result is: " & result
End Sub

vba
Function MultiplyNumbers(num1 As Integer, num2 As Integer, Optional num3 As Integer = 1) As Integer
    MultiplyNumbers = num1 * num2 * num3
End Function
Sub TestFunction()
    Dim result As Integer
    result = MultiplyNumbers(2, 3) '使用默认值1
    MsgBox "The result is: " & result
    
    Dim num As Integer
    num = 4
    result = MultiplyNumbers(2, 3, num) '传递变量num的值
    MsgBox "The result is: " & result
End Sub

vba
Function CalculateAverageScore(score1 As Double, score2 As Double, score3 As Double) As Double
    CalculateAverageScore = (score1 + score2 + score3) / 3
End Function
Sub TestFunction()
    Dim score1 As Double
    Dim score2 As Double
    Dim score3 As Double
    Dim averageScore As Double
    
    score1 = 80
    score2 = 90
    score3 = 85
    
    averageScore = CalculateAverageScore(score1, score2, score3)
    MsgBox "The average score is: " & averageScore
End Sub