代码之家  ›  专栏  ›  技术社区  ›  Freddakos

如何找到变量之间的最小数?

  •  0
  • Freddakos  · 技术社区  · 7 年前

    我有4个变量,它们包含一些值。

    我已经将它们转换为数字 CDbl

    所以我有这样的想法:

    var1=CDbl(str1)
    var2=CDbl(str2)
    var3=CDbl(str3)
    var4=CDbl(str4)
    

    如何找到var1、var2、var3和var4之间的最小数字?

    1 回复  |  直到 7 年前
        1
  •  1
  •   langstrom    7 年前

    以下工作。只需将值作为数组传递即可。

    Function FindSmallest(arr)
        out = arr(0)
        For i = 1 to UBound(arr)
            If out > arr(i) Then
                out = arr(i)
            End If
        Next
        FindSmallest = out
    End Function
    
    WScript.Echo FindSmallest(Array(var1,var2,var3,var4))