非递归实现不重复序列的全排列(二)
来源:互联网 发布:云计算创始人 编辑:程序博客网 时间:2024/04/30 16:16
下面给出一个回溯算法的代码,在VertyNew(华) 网友提供代码(http://community.csdn.net/Expert/topic/2909/2909080.xml?temp=.9990503)基础上稍作修改:
Sub pailie2(ParamArray x())
Dim starttime As Single, endtime As Single
Dim i As Integer, j As Integer, Num As Long, n As Integer
Dim a() As Integer '记载数组下标
Dim b() As Integer '记载使用标识
n = UBound(x) + 1
starttime = Timer '开始计时
ReDim a(1 To n)
ReDim b(1 To n)
i = 1
a(1) = 0
Do While i <= n
?? a(i) = a(i) + 1
?? If a(i) <= n Then
????? If b(a(i)) = 0 Then
???????? If i = n Then '达到数组末,则输出组合情况
???????????? For j = 1 To n
????????????? Debug.Print x(a(j) - 1) & " ";?'输出
???????????? Next
??????????? Debug.Print
??????????? Num = Num + 1
???????????? i = i - 1
???????????? b(a(i)) = 0 '清空使用标识
????????? Else
???????????? b(a(i)) = 1 '标记已使用
???????????? i = i + 1
???????????? a(i) = 0 '重查
????????? End If
????? End If
?? Else
????? i = i - 1
????? If i = 0 Then Exit Do '回溯至数组前则结束
????? b(a(i)) = 0
?? End If
?? DoEvents
Loop
endtime = Timer
Debug.Print "共 " & Num & " 种排列!用时 " & endtime - starttime & " 秒!"
End Sub
Private Sub Command1_Click()
pailie2 "a", "b", "c", "d", "e", "f", "g"
End Sub
- 非递归实现不重复序列的全排列(二)
- 非递归实现不重复序列的全排列(一)
- 非递归实现不重复序列的全排列(三)
- 非递归实现不重复序列的全排列(三)
- 面试题------全排列的非递归和递归实现(含重复元素)
- 无重复全排列_非递归实现
- 全排列的非递归实现
- 全排列算法的非递归实现
- 全排列的非递归实现
- 全排列非递归实现
- 全排列非递归实现
- 非递归全排列实现
- 全排列--非递归实现
- 全排列非递归实现
- 全排列---非递归实现
- 全排列的递归实现与非递归实现
- 全排列的非递归实现及递归实现
- 全排列的递归和非递归的实现
- makefile的含义与用途
- 在pb中获取当前网络中所存在的SQLServer实例名
- 函数调用规则总结
- 拜读团队管理101招后有感!
- MFC中,Release版出错Debug版不出错的一个最常见原因之深入剖析
- 非递归实现不重复序列的全排列(二)
- SqlServer中如何按姓氏笔画排序
- 读取电脑CPU序列号、主板BIOS、硬盘的序列号
- matlab的combuilder系列-matlab下做com组件
- What is MATLAB COM builder?
- 迷茫的程序员和中国软件业
- 电脑前的护眼窍门
- 操作电脑:谨防“腕管综合症”
- after install Linux