数组子集的VBA多个元素
提问于 2016-06-01 07:40:32
我有一个包含5个整数的数组。例如：
myArray = Array(3, 5, 2, 9, 3)我想要写一个循环，循环遍历数组的元素，在每次迭代中，返回当前元素的乘积以及所有元素的右侧。
在上面的例子中：
3 * 5 * 2 * 9 * 3
5 * 2 * 9 * 3
2 * 9 * 3
9 * 3
3我的非VBA思想是这样的：
for i in myArray
product(myArray[i:])但是我不知道如何用VBA编写它，特别是因为它不支持数组子设置。欢迎任何帮助。
回答 1
Stack Overflow用户
回答已采纳
发布于 2016-06-01 07:45:54
你需要两个循环：
Sub foo()
Dim myArray
myArray = Array(3, 5, 2, 9, 3)
Dim i&, j&
Dim output As Double
For i = LBound(myArray) To UBound(myArray)
output = 1
For j = i To UBound(myArray)
output = output * myArray(j)
Next j
Debug.Print output
Next i
End Sub
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37573182
复制
腾讯云开发者
