min.bas

来自「用VB开发的基于模糊数学的水质评价中的应用实例」· BAS 代码 · 共 11 行

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