VB.Net文本框数字升序逐行输出实现及代码优化

问题核心原因 #

循环拼接数字时仅直接追加数字值，未在每个数字后添加换行分隔符；同时若输出文本框未开启多行显示模式，即使存在换行符也无法正常逐行展示，最终导致数字无间隔连续拼接输出。

具体调整方案 #

基础改动（最小侵入原有逻辑） #

1. 将循环内的字符串拼接语句修改为：每个数字后追加系统适配的换行符
2. 在设计器中将输出文本框TextBox2的Multiline属性设置为True，可按需开启ScrollBars属性添加垂直滚动条，适配大量数字的查看需求

仅需修改循环行的最小改动代码如下：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim count As Integer
        If Integer.TryParse(TextBox1.Text, count) Then
            Dim strNumbers As String = ""
            For x As Integer = 0 To count - 1
                ' 新增换行符，替换原有的直接拼接x的逻辑
                strNumbers &= x & Environment.NewLine
            Next
            TextBox2.Text = strNumbers
        End If
    End Sub
End Class

性能优化改动（适配大数值count场景） #

当输入的count值较大时，直接用&拼接字符串会频繁生成新的字符串实例，内存开销和性能损耗较高，可改用StringBuilder做拼接优化，代码如下：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim count As Integer
        If Integer.TryParse(TextBox1.Text, count) Then
            ' 预估拼接总长度初始化StringBuilder容量，减少扩容开销
            Dim strNumbers As New System.Text.StringBuilder(count * 3)
            For x As Integer = 0 To count - 1
                strNumbers.Append(x).Append(Environment.NewLine)
            Next
            TextBox2.Text = strNumbers.ToString()
        End If
    End Sub
End Class

注意事项 #

• 相比硬编码vbCrLf，使用Environment.NewLine会自动适配不同系统的换行标准，兼容性更强
• 若未开启TextBox2的Multiline属性，即使字符串中包含换行符，也只会在单行内连续展示，无法实现逐行效果
• 若需要输出范围包含输入的count值本身，只需将循环的终止条件从count - 1调整为count即可

内容的提问来源于stack exchange，提问作者Anshley Madrid