Permutation of 0,1.

xiaokulou

There are M 0,1 permutations, which are printed out by the program. If there are 3 0,1 permutations, you should type:
0 0 0
0 0 1
0 1 0
0 1 1
1 0 0
1 0 1
1 1 0
1 1 1
How to generate this, please help masters, thanks in advance! By the way, the value of M is not known in advance and can be changed temporarily.

四不像君

I think of a way to do it is to convert it to binary.
For example, if you enter 5, you will first get 5 1's binary as 31, (solve it yourself)
then:
Write a function that converts decimal to binary, for example:
Public Function DecToBinary (dec As Integer)
    Dim m As String, n As String, d As Integer
    d = dec
    Do
        m = (d Mod 2)&m
        d = d\2
    Loop Until d = 0
    DecToBinary = m
End Function

after that:
dim i as Integer
dim s as string
for i = 0 to 31
  s = str (DecToBinary (i))
  print s&vbcrlf
next i

xiaokulou

It seems that I did not make it clear that I intend to store these permutations in an array, and I will use these numbers at that time.

xiaokulou

That is to get a column number:
a (0) = 0 a (1) = 0 a (2) = 0
a (0) = 0 a (1) = 0 a (2) = 1
         .
         .
         .
a (0) = 1 a (1) = 1 a (2) = 1
Hope to get such a result.

madwww

I wrote a function CreateArray for you, and have an example:

Option Explicit

Private Sub CreateArray (ByVal M As Integer, ByRef ABuf)
    ReDim ABuf (2 ^ M-1, M-1)
    Dim iRow As Integer
    Dim iCol As Integer
    Dim iNum As Integer
    For iRow = 0 To 2 ^ M-1
        iNum = iRow
        For iCol = M-1 To 0 Step -1
            ABuf (iRow, iCol) = iNum Mod 2
            iNum = iNum\2
        Next iCol
    Next iRow
End Sub

Private Sub Command1_Click ()
    Dim A () As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    k = InputBox ("The value of input M")
    CreateArray k, A
    For i = 0 To 2 ^ k-1
        For j = 0 To k-1
            Debug.Print A (i, j);
        Next j
        Debug.Print
    Next i
End Sub

rockyoung

Another method, without converting to binary,
Dim M, a () As Integer, i, P
M = 4: ReDim a (M-1)
Do
    P = M-1
    For i = 0 To P
        Debug.Print a (i);
    Next: Debug.Print
    Do
        a (P) = a (P) + 1
        If a (P)> 1 Then a (P) = 0: P = P-1 Else Exit Do
    Loop While P> -1
Loop While P> -1

rockyoung

It should be faster than converting to binary
Where the array a () stores each value

anan_007

Auto-increment from 0, converted to binary each time and stored in the array

justindx

If it were me, I would have the following methods
1: Database Text files can also be operated as databases
2: Add data to LISTVIEW or list
Sorted property

Returns a value that specifies whether the elements of the control are automatically sorted alphabetically.

xiaokulou

Thank you for your help!