vb数组求最大值最小值

你可以使用以下代码来求一个 VB 数组的最大值和最小值：

Dim myArray(5) As Integer ' 假设数组长度为 5

' 给数组赋值
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50

' 假设最大值为数组中的第一个元素，最小值也是
Dim maxValue As Integer = myArray(0)
Dim minValue As Integer = myArray(0)

' 遍历数组，比较每个元素与当前最大值和最小值的大小关系
For i As Integer = 1 To 4
    If myArray(i) > maxValue Then
        maxValue = myArray(i)
    End If
    If myArray(i) < minValue Then
        minValue = myArray(i)
    End If
Next

' 输出结果
MsgBox("最大值为：" & maxValue & vbCrLf & "最小值为：" & minValue)

当然，你也可以使用 VB 自带的 `Max` 和 `Min` 函数来求一个数组的最大值和最小值：

Dim myArray(5) As Integer ' 假设数组长度为 5

' 给数组赋值
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50

' 使用 Max 和 Min 函数求最大值和最小值
Dim maxValue As Integer = Application.WorksheetFunction.Max(myArray)
Dim minValue As Integer = Application.WorksheetFunction.Min(myArray)

' 输出结果
MsgBox("最大值为：" & maxValue & vbCrLf & "最小值为：" & minValue)