VBS中如何获取一个数组中最大值的位置？
2010-01-07 23:00
351 查看
VBS中如何获取一个数组中最大值的位置？
以下VBS脚本可以实现这个功能：
Public Function getArrMaxValueIndex(ByVal arr)
Dim ix, ixMax
ixMax = 0
For ix = 1 To UBound(arr)
If ( arr(ixMax) < arr(ix) ) Then
ixMax = ix
End If
Next
getArrMaxValueIndex = ixMax
End Function
'Define array and index for max entry
Dim arr, ixMax
'Initialize the array
arr = Array(4, 1, 8, 6, 3,6)
'Get the index of the max value
ixMax = getArrMaxValueIndex(arr)
'Print result
MsgBox "Max value: " & arr(ixMax) & " was found at " & ixMax & " index."
以下VBS脚本可以实现这个功能：
Public Function getArrMaxValueIndex(ByVal arr)
Dim ix, ixMax
ixMax = 0
For ix = 1 To UBound(arr)
If ( arr(ixMax) < arr(ix) ) Then
ixMax = ix
End If
Next
getArrMaxValueIndex = ixMax
End Function
'Define array and index for max entry
Dim arr, ixMax
'Initialize the array
arr = Array(4, 1, 8, 6, 3,6)
'Get the index of the max value
ixMax = getArrMaxValueIndex(arr)
'Print result
MsgBox "Max value: " & arr(ixMax) & " was found at " & ixMax & " index."
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 对于一个有序的数组，如果要插入一个元素并保证数组还有序， 问如何获取该元素位置。用二分法
- 练习：有一个有序的数组，想要将一个元素插入到该数组中，还要保证该数组是有序的。如何获取该元素在数组中的位置.（2012.2.17）
- 给定一个非负整数数组，最初定位在数组的第一个索引处。组中的每个元素表示您在该位置的最大跳跃长度。求最小跳数
- 如何在用结构体在数组指定的位置插入一个元素
- JS中如何快速获取数组中的最大值最小值
- 1.将数组A中的内容和数组B中的内容进行交换。（数组一样大） 2.获取一个数二进制序列中所有的偶数位和奇数位，分别输出二进制序列。 3.将三个数按从大到小输出。 4.求两个数的最大公约数。
- swift 获取一个数组中的最大值
- 黑马程序员java学习—如何获取数组中的最大值
- 获取一个数组的最大值与最小值 数组的合并
- 获取一个数组内的最大最小值
- 定义一个数组工具类！数组选择排序、冒泡排序、获取最大、最小值！
- 如何取一个数组中相同元素的位置
- 获取一个数组最大的k个数
- 整数数组的定义，然后输入一个整数X,假定X不在这个数组，返回小于X位置的最大数目i而超过X位置的最小数目j
- 华为：给定一个数组input[]，如果数组长度n为奇数，则将数组中最大的元素放到 output[]数组最中间的位置，如果数组长度n为偶数。。 .
- Java有N个数字的int类型数组，如何获取数量最多并且数字最大的数以及数量
- 已知一个int数组, 编程从数组中获取最大数
- 如何编程获取到一个文件的扇区位置，并读写它？
- 定义一个数组，获取数组中的最大值和最小值
- 2、 java 已知一个int数组, 编程从数组中获取最大数.