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

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

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

多谢了！先研究下！！

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
怎么都是“请输入N(1的个数”应该有一个是M的吧？

TempSTR = CStr(NUM And 1) & TempSTR   这里的and属于什么运算

[[it] 本帖最后由 zgsdwf 于 2008-10-2 23:09 编辑 [/it]]

你好老大，我现在有一个想法，就是如果要排的是2个1、3个0那么对应的最大二进制数为11000最小为00011，将最大的11000转为十进制作递减，再转为二进制，然后作判断只保留含有两个1的字符串。
问题1：此方法可以吗？
问题2：我为此写了一段测试代码如下。但运行时for循环在第一次还是正确的，第二次11000所对应的十进制数一下变为-1，不明白为何会这样，还请老大指点


Private Sub Form_Click()

Dim i As Integer
Dim j As Integer
Dim n As String
Dim m As String
n = InputBox("输入字符串:")
m = StrReverse(n)
j = Con(n)
  For i = Con(m) To j
      Print De(j, Len(n))
      j = j - 1
   Next
End Sub

Public Function De(DecimalValue As Integer, MinimumDigits As Integer) As String '十进制转二进制
Dim result As String
Dim ExtraDigitsNeeded As Integer

DecimalValue = Abs(DecimalValue)

Do
    result = CStr(DecimalValue Mod 2) & result
    DecimalValue = DecimalValue \ 2
Loop While DecimalValue > 0
ExtraDigitsNeeded = MinimumDigits - Len(result)
If ExtraDigitsNeeded > 0 Then
    result = String(ExtraDigitsNeeded, "0") & result
End If

De = result

End Function

 Public Function Con(ByVal strBin As String) As Integer '二进制转十进制
  Dim tmpVal As Integer
  iCount     As Long
  Dim tmpV   As String
          For iCount = 1 To Len(strBin)
                 tmpVal = Val(tmpVal) + Val(Mid$(strBin, iCount, 1)) * (2 ^ (Len(strBin) - iCount))
                                    
          Next iCount
                      Con = tmpVal
  End Function

这种情况应该可以通过判断剔除吧？如只有11就不需作处理了

本人太菜，对递归还未深入了解，对于经典的汉诺塔问题我至今未全搞清，很想学一下，还请老大给写一个使用递归解决此问题的代码

使用我的递减法测试成功，只是程序运行开销较大，排列8个1、9个0须40多秒加上我的机器也较衰（c4 1.7），再次请老大给写一个使用递归解决此问题的代码