史上最酷的Excel VBA 组合算法 代码

jinbo3535

老谭酸菜 发表于 2013-11-26 22:47
群子现在没空。本菜回答一下：
Dim 和 ReDim 定义的是同一个变量，但两者类型不一致(前者是Variant型，后 ...

可是，这样也通过不了？（没强制声明变量）
Sub a()

   ReDim a$(1 To 100)
Stop

End Sub

再如果：
Sub a()

   dim a$
      ReDim a$(1 To 100)

Stop
End Sub
那a不就不能是数组？

老谭酸菜

jinbo3535 发表于 2013-11-26 22:54
可是，这样也通过不了？（没强制声明变量）
Sub a()

怎么可以把过程名a再定义为变量？

老谭酸菜

jinbo3535 发表于 2013-11-26 22:54
可是，这样也通过不了？（没强制声明变量）
Sub a()

怎么可以把过程名a再定义为变量？
应该这样：

1. Sub b()
   
2.     ReDim a$(1 To 100)
   
3. End Sub
   
4. 
   
5. Sub c()
   
6. Dim a$()
   
7. ReDim a$(1 To 100)
   
8. End Sub
   

复制代码

jinbo3535

老谭酸菜 发表于 2013-11-26 23:00
怎么可以把过程名a再定义为变量？

太谢谢您了！您又让我学到了，2个知识点！群子老师的算法高深，前段时间没空，停下了学习VBA，现在正想学习学习，发现有数组有这种声明方法，老是困惑，现在终于解决了！再次谢谢您的指导！

jinbo3535

老谭酸菜 发表于 2013-11-26 23:02
怎么可以把过程名a再定义为变量？
应该这样：

太谢谢您，原来强制声明要这么处理！

老谭酸菜

不用谢。只是咱俩说了些和组合无关的内容，把群子的帖子弄乱了。希望群子不要生气才好！{:soso_e113:}

鱼东东

组合一般用在什么地方阿 老师

香川群子

鱼东东 发表于 2013-12-3 22:28
组合一般用在什么地方阿 老师

组合用在彩票上比较常见……呵呵。


当然其它地方也有用。

aoe1981

香川群子 发表于 2013-9-24 10:25
我的代码是不可能有错误的。是你的要求有问题。

你的10个原始数据中0重复了3次……你想要得到什么样 ...

　　对55楼的部分结果存疑，详见下图：
　　
　　当然，不排除我的计算错误，您毕竟是用代码罗列的，不过这种计算也可以算是一种补充验证，我希望是彼此能指出错误之所在！

aoe1981

香川群子 发表于 2013-9-24 10:25
我的代码是不可能有错误的。是你的要求有问题。

你的10个原始数据中0重复了3次……你想要得到什么样 ...

　　“但如果需要排除3个重复的0，则只有64个不重复组合结果，或者274个不重复排列结果。”——摘自55楼　　对上述话的后半句存疑，也可能是我自己错了，但希望彼此指正……
　　补充说明见下图：