code185a.txt

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

Public Function Min(ByVal First, ByVal Second) As Variant
  If First < Second Then Min = First
  If First = Second Then Min = Null
  If Second < First Then Min = Second
End Function

Public Function Max(ByVal First, ByVal Second) As Variant
  If First > Second Then Max = First
  If First = Second Then Max = Null
  If Second > First Then Max = Second
End Function

Public Sub Main()
  Debug.Print "Maximum of 10.0 and 25.0 is ", Max(10.0, 25.0)
  Debug.Print "Minimum of 10.0 and 25.0 is ", Min(10.0, 25.0)
  Debug.Print "Minimum of 10 and 10 is ", Min(10#,10#)
End Sub