VB.Net中的反向数

我想要反向号码：示例： Textbox1.Text=

214212223444

一个部署算法来实现这一点。制造

预期输出：所有可能的反向组合

我尝试的是：它可以工作，但它不能像上面的模型那样携带所有可能的组合

 Dim r As Integer
    Public Function Reverse(rn As Integer)
        Dim value As Integer
        Dim values As New List(Of String)
        For Each strValue As String In TextBox1.Text.Split(" ".ToCharArray, StringSplitOptions.RemoveEmptyEntries)
            If Integer.TryParse(strValue.Trim, value) Then
                values.Add(value)
            End If
        Next
        Dim numbers = Val(TextBox1.Text)
        Dim result As Integer
        While numbers > 0
            rn = numbers Mod 10
            result = result * 10 + rn
            numbers = numbers \ 10
        End While
        Reverse = result
    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox2.Text = Reverse(r & " ")
    End Sub

---

首先执行逻辑工作流（伪代码），然后对其进行编码。能够编写伪代码是一种被低估的程序员超级能力，在你的整个职业生涯中都会对你有所帮助。你允许重复吗？例如，22与22相反，因此一个简单的算法将创建重复项，除非包含避免/消除它们的逻辑。否则，您的模式与二进制计数非常相似。00001、00010、00011等。考虑一下如何生成二进制数，你就会找到答案。是的，就像示例中一样。允许重复，22将保留22。是否有负数？10反转成“1”还是“01”？循环基本上需要2个，

用于i=0到值。计数-1 Dim输出作为j=0到值的新列表（字符串）。计数-1如果（i=j），则反向编码Else输出。添加（值（j））如果下一步结束，而不为0。如果它是1，那么它将是1。没有0。请用问题的代码回答，我可以给你+1的答案。
 Dim r As Integer
    Public Function Reverse(rn As Integer)
        Dim value As Integer
        Dim values As New List(Of String)
        For Each strValue As String In TextBox1.Text.Split(" ".ToCharArray, StringSplitOptions.RemoveEmptyEntries)
            If Integer.TryParse(strValue.Trim, value) Then
                values.Add(value)
            End If
        Next
        Dim numbers = Val(TextBox1.Text)
        Dim result As Integer
        While numbers > 0
            rn = numbers Mod 10
            result = result * 10 + rn
            numbers = numbers \ 10
        End While
        Reverse = result
    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox2.Text = Reverse(r & " ")
    End Sub