Vb.net 反向编号数组多行文本框

基本上，我想把数字颠倒过来。（文本框中只有两位数字）

如果我有Textbox1.text：

12
2
41
71
70

我想在框中显示（Textbox1.text）

功能：

Public Shared Function Reverse(num As Integer) As Integer
        Dim _reverse As Integer = 0
        While num <> 0
            _reverse *= 10
            _reverse += num Mod 10
            num \= 10
        End While
        Return _reverse
    End Function

---

这是一个完美的例子，说明了当人们试图在不知道代码应该是什么的情况下编写代码时会发生什么。代码所要做的不仅仅是最终结果，而是达到目的的步骤。如果您不知道这些步骤是什么，那么就不应该编写任何代码，因为您编写的代码不太可能有用。代码只是逻辑的一个实现，所以您应该首先了解逻辑。它不需要任何编程经验来计算逻辑，因为如果它是一个手动过程，我们都可以这样做，这将是相同的逻辑

那么，所涉及的步骤是什么

获取文本的行

把线绕过去

反转当前行

用反转的结果更换原来的管路

用完整的结果替换文本

如果你真的考虑了每一个步骤，很明显，对于每个循环，你不能使用<代码>，因为这只会让你从列表中获取数据，而不是把数据放进去。这就很明显，

For

循环是正确的选择，因为它可以让您获取数据并将其放入。现在，您可以编写实际执行有用操作的代码

Dim lines=TextBox1.行
对于i=0的行。GetUpperBound（0）
尺寸线=线（i）
尺寸编号=CInt（线）
尺寸结果=反向（数字）
行（i）=result.ToString（）
下一个
TextBox1.Lines=行

---

简单的东西，但是，同样，如果你不知道代码实际上要做什么，那么编写代码来完成它是一个挑战。总是先把问题分解成更小的部分，这样你就可以单独处理每个部分，在试图编写代码来实现逻辑之前，一定要先计算出您试图实现的逻辑，并手动测试该逻辑。

这是一个完美的例子，说明了当人们试图在不知道代码应该是什么的情况下编写代码时会发生什么。代码所要做的不仅仅是最终结果，而是达到目的的步骤。如果您不知道这些步骤是什么，那么就不应该编写任何代码，因为您编写的代码不太可能有用。代码只是逻辑的一个实现，所以您应该首先了解逻辑。它不需要任何编程经验来计算逻辑，因为如果它是一个手动过程，我们都可以这样做，这将是相同的逻辑

那么，所涉及的步骤是什么

获取文本的行

把线绕过去

反转当前行

用反转的结果更换原来的管路

用完整的结果替换文本

如果你真的考虑了每一个步骤，很明显，对于每个循环，你不能使用<代码>，因为这只会让你从列表中获取数据，而不是把数据放进去。这就很明显，

For

循环是正确的选择，因为它可以让您获取数据并将其放入。现在，您可以编写实际执行有用操作的代码

Dim lines=TextBox1.行
对于i=0的行。GetUpperBound（0）
尺寸线=线（i）
尺寸编号=CInt（线）
尺寸结果=反向（数字）
行（i）=result.ToString（）
下一个
TextBox1.Lines=行

---

简单的东西，但是，同样，如果你不知道代码实际上要做什么，那么编写代码来完成它是一个挑战。始终先将问题分解为更小的部分，这样您就可以单独处理每个部分，并且在尝试编写代码来实现逻辑之前，始终先计算出您试图实现的逻辑，并手动测试该逻辑。

您需要遍历TextBox1的所有行。这就是全部！完成：（：：（：）您需要遍历TextBox1的所有行。仅此而已！完成：（：（：）(

Public Shared Function Reverse(num As Integer) As Integer
        Dim _reverse As Integer = 0
        While num <> 0
            _reverse *= 10
            _reverse += num Mod 10
            num \= 10
        End While
        Return _reverse
    End Function

    For Each lines In TextBox1.Lines
    Dim rev = Reverse(lines)
    lines.Replace(lines, rev)
    Next