code149a.txt

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

Private Function Add_Values(ByVal Val1, ByVal Val2, ByVal Val3) _
    As Variant
  Add_Values = Val1 + Val2 + Val3
End Function

Public Sub Main()

Debug.Print "Adding floating-point: ", Add_Values(1.5, 7.2, 13.3567)
Debug.Print "Adding integers: ", Add_Values(1, 3, 5)
Debug.Print "Adding both types:", Add_Values(1, 6.9, 32729)

End Sub