code168a.txt

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

Private Function Work_2_Ints(ByVal Num1 As Integer, ByVal Num2 As _
    Integer, Optional ByVal Mult As Variant, Optional ByVal Div As _
    Variant) As Single
  Work_2_Ints = 0

  If IsMissing(Mult) And IsMissing(Div) Then
    Work_2_Ints = Num1 - Num2
    Exit Function
  End If

  Work_2_Ints = Num1 + Num2
  If Not IsMissing(Mult) Then
     Work_2_Ints = Work_2_Ints * Mult
  End If
  
  If Not IsMissing(Div) Then
    Work_2_Ints = Work_2_Ints / Div
  End If
End Function

Public Sub Main()
  Debug.Print Work_2_Ints(3, 5, 5)
  Debug.Print Work_2_Ints(16, 4, , 5)
  Debug.Print Work_2_Ints(16, 4, 5, 10)
  Debug.Print Work_2_Ints(16, 4)
End Sub