code167a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 25 行

Private Function Add_Em(ByVal Caption As String, ParamArray Values()) As _
    Single
  Add_Em = 0
  Dim Counter As Integer

  For Counter = 2 To UBound(Values)
    Add_Em = Add_Em + Values(Counter)
  Next

  If Not IsMissing(Values(0)) Then
     Add_Em = Add_Em * Values(0)
  End If
  
  If Not IsMissing(Values(1)) Then
    Add_Em = Add_Em / Values(1)
  End If
  Debug.Print "Processing..."; Caption
End Function

Public Sub Main()
  Debug.Print Add_Em("Add 3, Mult 5", 5, , 1, 2, 3)
  Debug.Print Add_Em("Add 3", , , 1.1, 2.2, 3.3)
  Debug.Print Add_Em("Add 4, Mult 5, Div 2", 5, 2, 1.1, 2, 3.3, 4)
End Sub