如何找数组最大值和最小值的对应值???

kittli

最大值是5,如何找对应的"a5"??
最小值是1,如何找对应的"a1"??
麻烦老师们指点！谢谢！

gwjkkkkk

请参考图片。。。

gwjkkkkk

gwjkkkkk 发表于 2024-2-25 17:43
请参考图片。。。

这个是考虑只有一个最大和最小值的情况，如果有多个，还需别外考虑。。。

kittli

gwjkkkkk 发表于 2024-2-25 18:01
这个是考虑只有一个最大和最小值的情况，如果有多个，还需别外考虑。。。

现在就一个最大和最小值！谢谢老师指点

micch

1. Function GetMaxItem(ar)
   
2.     Dim iMax, v
   
3.     iMax = ar(1, 2)
   
4.     v = ar(1, 1)
   
5.     For i = LBound(ar) To UBound(ar)
   
6.         If ar(i, 2) > iMax Then
   
7.             iMax = ar(i, 2)
   
8.             v = ar(i, 1)
   
9.         End If
   
10.     Next
    
11.     GetMaxItem = v
    
12. End Function

复制代码