min.bas

用VB开发的基于模糊数学的水质评价中的应用实例

Attribute VB_Name = "Module1"
Function min(number1 As Double, number2 As Double) As Double
    If number1 < number2 Then
        min = number1
    Else
        min = number2
    End If
End Function