code152a.txt

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

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

Private Sub TestResult(ByVal TestObject As Variant)
  Dim PrintString As String

  Select Case VarType(TestObject)
    Case vbSingle, vbDouble
      PrintString = "Result is floating-point: "
    Case vbInteger
      PrintString = "Result is integer: "
    Case Else
      PrintString = "Result is of another type: "
  End Select
  Debug.Print PrintString, TestObject
End Sub

Public Sub Main()
  Dim Result As Variant

  Result = Add_Values(1.5, 7.2, 13.3567)
  TestResult Result
  Result = Add_Values(1, 3, 5)
  TestResult Result

  Result = Add_Values(15000, 2000, 32729)
  TestResult Result
End Sub