vb自定义函数求最小值

下面是一个 VB 自定义函数求最小值的示例：

Public Function MinValue(ByVal arr() As Double) As Double
    Dim minVal As Double = arr(0)
    For i As Integer = 1 To arr.Length - 1
        If arr(i) < minVal Then
            minVal = arr(i)
        End If
    Next
    Return minVal
End Function

这个函数接受一个 Double 类型的数组作为参数，然后遍历数组找到最小值并返回。你可以在程序中调用这个函数来获取给定数组的最小值。