两元素的排列问题

求能打印出由n个1和m个0所有排列的算法或代码，那位达人能帮一下

用深度优先搜索做比较方便，以下是pascal语言代码，看懂了很容易移植到VB里。
程序代码：

回复 2# multiple1902 的帖子

先谢了！能不能给翻译成vb代码啊，pascal看不懂

你先看看深度优先搜索的相关知识，然后我给你讲解，然后你自己写出来。

基本思路是，如果我要生成5个数，其中2个0和3个1的排列，那么我就先让第一位为0，然后就是1个0、3个1的排列问题了(递归)；接着让第一位为1，就转化为了2个0、2个1的排列问题。就这样递归下去，直到5位都确定之后输出当前结果。

学C，直接出来

Private Sub Form_Click()
  Dim M As Long
  Dim N As Long
  
  Dim I As Long, K As Long
  Dim sI As Long, eI As Long
  
  N = -1
  Do While N < 0
    TempSTR = InputBox("请输入N(1的个数):", "南宫飘雪", "4")
    If IsNumeric(TempSTR) Then
      N = Val(TempSTR)
      If N > 31 Then I = -1
    End If
  Loop
  
  M = -1
  Do While M < 0
    TempSTR = InputBox("请输入N(1的个数):", "南宫飘雪", "4")
    If IsNumeric(TempSTR) Then
      M = Val(TempSTR)
      If M + N > 31 Then M = -1
    End If
  Loop
  If M = 0 Or N = 0 Then Exit Sub
  
  Me.Cls
  Me.AutoRedraw = True
  Print Long2STR(2 ^ N - 1, M + N)
  For I = 0 To N - 1
    sI = 0: eI = 0
    For K = 0 To I
      sI = 2 * sI + 1
    Next K
    sI = sI * 2 ^ (N - I - 1)
    For K = 1 To N - I - 1
      eI = 2 * eI + 1
    Next K
   
    For K = 1 To M + N - K - I
      Print Long2STR((sI * (2 ^ K)) Or eI, M + N)
    Next
  Next I
End Sub

Private Function Long2STR(ByVal NUM As Long, ByVal Lenght As Long) As String
  Dim TempSTR As String
  
  Do While NUM
    TempSTR = CStr(NUM And 1) & TempSTR
    NUM = NUM \ 2
  Loop
  Lenght = Lenght - Len(TempSTR)
  If Lenght > 0 Then TempSTR = String(Lenght, "0") & TempSTR
  Long2STR = TempSTR
End Function

回复 5# multiple1902 的帖子

老大！您还是给写一下吧，研究了半天还是搞不懂

回复 7# Joforn 的帖子

多谢了！先研究下！！

嗯，慢慢看，有不懂的地方找本基础书对照看下。