六层for循环怎么更改算法？ for i=1 to 15 for j=1 to 15 for k=1 to 15 for o=1 to 15 for p=1 to 15 for q=1 to 15 然后这里是其他代码，关键是六层循环系统基本上崩溃了。我里面的代码比如：当i=1，j=5，k=7，o=3，p=3，q=8时i*j*k*o*p*q,又或者ijkopq等于其他数时又把它们相乘

最好是说明你为什么要用这么多层的for 这么多层一定对电脑的要求高的很。

Dim iCount As Integer = 6 '6层循环
Dim nCount As Integer = 1 '要相乘的ijkopq的组合情况的数目
Dim Num(nCount - 1, iCount - 1) As Integer '要相乘的组合，nCount*iCount的二维数组
Dim nResult(nCount - 1) As Integer '最终相乘的结果，有nCount种
Num = {{1, 5, 7, 3, 3, 8}} '楼主举例的序列
'Num(1,0~5)={2,5,7,13,3,3}'其他情况,该注释为伪代码
'Num(2,0~5)={1,3,7,4,3,8}
'...
'Num(nCount-1,0~5)={1,5,6,3,3,9}
For i = 0 To nCount - 1
nResult(i) = 1
For j = 0 To iCount - 1
nResult(i) = nResult(i) * Num(i, j)
Next
Next