Question

vb中求一个数组中值最大的元素

Answer 1

二楼有简便方法……此方法作为参照_(:зゝ∠)_

写个函数丢模块里

题目描述有点不清楚，大致代码如下

使用方法：返回值=MaxNum(数组名称)

如:Dim a(1 to 5) as integer:b=MaxNum(a)

Public Function MaxNum(sz() As Integer) As Integer
Dim i As Integer
For i = LBound(sz) + 1 To UBound(sz)
    If sz(i - 1) < sz(i) Then MaxNum = i
Next i
End Function

这个会返回一个Integer型的数据，表示数组中最大的元素的编号

比如a(1)=2:a(2)=5:a(3)=3 那么返回的是2

Public Function MaxNum(sz() As Integer) As Integer
Dim i As Integer
For i = LBound(sz) + 1 To UBound(sz)
    If sz(i - 1) < sz(i) Then MaxNum = sz(i)
Next i
End Function

这也会返回Ineteger型数据，表示最大的元素是什么

举例如上，返回的是5，因为a(2)=5为最大

如果需要判断的数组是Long型，就把第一句中的Integer全部改成Long

大致如上

以上

追问

问题就在于得到最大值的编号以后该怎么得到元素名？

Answer 2

maxVal = max(index(arr(),0)
这个是一维数组取最大值的方法