[已解决]VBA实现和分拆为多个整数一共多少组

wp8680

vbyou127 发表于 2016-3-30 20:23
你在搞什么，把这10组输出来

你说我在搞什么？结果在内存数组中，你看不出来？你又没有说输出到哪里。你想要输出，加一句代码就行了。

我的代码运算速度也不会怎么样，循环次数才就5985次罢了，时间是几毫秒。你说我在搞什么，这语句，我无语。

香川群子

vbyou127 发表于 2016-3-30 20:23
你在搞什么，把这10组输出来

输出语句：

[a1].Resize(5, x) = WorksheetFunction.Transpose(arr)

因为他的程序结果中，arr的元素是一个个的一维数组。arr(x) = Array(a, b, c, d, e)

所以，无法直接输出结果到工作表，需要Transpose转置后输出。

香川群子

wp8680 发表于 2016-3-31 12:41
你说我在搞什么？结果在内存数组中，你看不出来？你又没有说输出到哪里。你想要输出，加一句代码就行了。 ...

按数学原理，你的循环范围可以大大缩小：

1. Sub test2()
   
2.     Dim s%, a%, b%, c%, d%, e%, arr(), x%, cnt&
   
3.     s = 21
   
4.     For a = 1 To 2 '3+4+5+6+7=25>21  所以a<3取=2
   
5.         For b = a + 1 To 3 '1+4+5+6+7=23>21 所以b<4取=3
   
6.             For c = b + 1 To 5 '1+2+5+6+7=21 所以取c=5
   
7.                 For d = c + 1 To 7 '1+2+3+7+8=21 所以取d=7
   
8.                     e = 21 - a - b - c - d
   
9.                     cnt = cnt + 1
   
10.                     If e > d Then
    
11.                         x = x + 1
    
12.                         ReDim Preserve arr(1 To x)
    
13.                         arr(x) = Array(a, b, c, d, e)
    
14.                     End If
    
15.                 Next d
    
16.             Next c
    
17.         Next b
    
18.     Next a
    
19. 
    
20.     [a1].Resize(5, x) = WorksheetFunction.Transpose(arr) '要这样才能输出到工作表
    
21.     MsgBox x & "/" & cnt
    
22. End Sub

复制代码

结果显示循环19次就得到10个解。
否则需要循环5985次。

wp8680

香川群子 发表于 2016-3-31 15:27
按数学原理，你的循环范围可以大大缩小：结果显示循环19次就得到10个解。
否则需要循环5985次。

我在写的时候，就考虑过不可能要循环到21，只不过写代码时为了方便思考逻辑，就没有去多想怎么节省循环次，反正下面有最大值是21的条件限制，不去设定循环末节数也能得到结果。
所以你也不必太较这个真。既然会循环，要想节省资源肯定是多少能想到点吧。
当然，从大数据上考虑，减少循环运算次数是有利的。我不否认你的成绩。