求Vb脚本 的 全组合算法

求Vb脚本 的 全组合算法

欢迎看看我空间的有关文章。
也欢迎互相探讨。

这是个好题目，要难道很多人，我做好传上来

Dim a(10) As Integer, s As Long
m = Val(InputBox("请输入元素的个数:"))
n = 1
For i = 1 To m
  n = n * 2
Next i
For i = 1 To n - 1
  j = i: k = 0
  Do While j > 0
    k = k + 1
    a(k) = j Mod 2
    j = j 2
  Loop
  Print "No."; i; ":",
  For j = 1 To 9
    If a(j) = 1 Then Print Trim(Str(j));
  Next j
  Print
Next i
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息