文章通过实例介绍了数字排列组合的数学公式的写法。 感兴趣的朋友对排列组合的公式有点变通,以实现同样的需求。
需要排列组合公式的,很多朋友对数字感兴趣,喜欢在数字上排列组合。
本文介绍在excel中编写VBA代码,掌握一些规律和算法,编写数组组合表达式。
排列数字组合公式的想法可以理解为,从n个不同的要素中,任意m (朴素的大象)个要素按照一定的顺序排列成一列。
下面的示例说明如何排列组合表达式以完成数字组合:
例如,从“9876543”中任意选取5个进行排列组合的方法如下。
创建新工作表,按ALT F11键,打开VBE编辑器,插入——模块,在右侧代码编辑框中复制下面的代码,然后单击工具栏上的“运行”命令切换到工作表
子数组组合表达式() )。
Dim II%、I%、J%、K%、L%、M%
Dim Srt1$、Srt2$、Srt3$、Srt4$、Srt5$
Dim TStr1$、TStr2$、TStr3$、TStr4$
Dim t,arr () )。
Const FullStr='9876543 '
t=Timer
II=0
For I=1 To 7
SRT1=mid (完整str,I,1 ) )。
TT R1=替换(fullstr,Srt1,'')
For J=1 To 6
SRT2=mid(tstr1,j,1 ) ) )。
tstr2=替换(tstr 1、Srt2、'')
For K=1 To 5
SRT3=mid(tstr2,k,1 ) )。
tstr3=替换(tstr 2、Srt3、'')
For L=1 To 4
SRT4=mid(tstr3,l,1 ) ) ) ) ) )。
tstr4=替换(tstr 3,Srt4,'')
For M=1 To 3
SRT5=mid(tstr3,m,1 ) )。
II=II 1
redimpreservearr(1toii ) )。
ARR(ii )=Srt1 Srt2 Srt3 Srt4 Srt5
下一步
下一步
下一步
下一步
下一步
范围(a 1: a ) ii )=应用.传输(arr ) ) ) ) )
最终辅