统计数组元素中个位数为5的个数的vb

Question

统计数组元素中个位数为5的个数的vb

Answer 1

'任意长度数组获取最大值
Private Function getMax()
Dim arr() As Long
Dim max As Long
arr = getArr 'getArr可以是任意获取数组的方法
max = arr(0)
For i = 1 To UBound(arr)
If arr(i) > max Then
max = arr(i)
End If
Next i
End Function
这个方法可以获取任意大小一维数组的最大项
中间的getArr 方法可以指定获取数组的方法，嫌麻烦可以直接在这里初始化一个