如何将字符串划分为大小为1到4的所有可能的字符组

像这样的。。。

Sub writeDelimination(ByVal toSplit As String, ByVal start As String)
    Dim top As Integer = 4
    If toSplit.Length < 4 Then
        top = toSplit.Length
    End If
    For i As Integer = 1 To top Step 1
        Dim split As String = toSplit.Substring(0, i)
        writeDelimination(toSplit.Substring(i, toSplit.Length - i), start + "|" + split)
    Next
    If top = 0 Then
        Console.WriteLine(start)
    End If
End Sub

你第一次打电话给潜艇 writeDelimination("xoox", Nothing)

有趣的是,你的视觉表现 |

你有 2^(n-1) n n :

000
001
010
011
100
101
110
111

0 1

当然,为了生成二进制数列表、创建输出列表等,VB.NET还有很多工作要做,但希望这能让您开始。