在VB中寻找一个数组的最大值或最小值，可否用Max或Min函数？

Question

如题所述

Answer 1

vb没有max和min函数，需要自己编写
Private Sub Command1_Click()
Dim arr(1 To 100) As Integer
Randomize
For i = 1 To 100
arr(i) = Int(Rnd * 10000)
Print Format(arr(i), "@@@@ ");
If i Mod 10 = 0 Then Print
Next
Print
Print "最大值=" & max(arr)
Print "最小值=" & min(arr)
End Sub

Private Function max(ByRef a() As Integer)
max = a(LBound(a))
For i = LBound(a) To UBound(a)
If max < a(i) Then max = a(i)
Next
End Function

Private Function min(ByRef a() As Integer)
min = a(LBound(a))
For i = LBound(a) To UBound(a)
If min > a(i) Then min = a(i)
Next
End Function

Answer 2

功能：MAX返回参数包含的数据集中的最大数值，MIN返回参数包含的数据集中的最 小数值。函数MAX和MIN属于统计函数。

格式：MAX/MIN（numberl，number2，……）

参数：numberl，number2，……为需要求最大值或最小值或包含需要求最大值或最小值数据的参数，最多可以有30个参数。数字、逻辑值、文本数字、空单元格、单元格和区域的引用地址、名称和标志都可以作为参数。

如果参数直接是数字、空单元格、逻辑值或文本数字，计算时都将被包括在内，空单元格被视为0，TRUE的值为1，FALSE的值为0，文本数字自动转换为数值数字。如果参数直接是非数字文本或错误值，将显示错误提示。如果参数是单元格或区域的引用，只有引用内容是数字的才被计算，其他值都将被忽略。本回答被网友采纳