通过文本框循环字符串加入文本框

through textbox loop string join in textboxes

很简单,我想在文本框中显示它的值i但是在同一行上用逗号分隔。也就是说,我的文本框应该是 Textbox1.Text = 1,2,3,4,5,6,7,8,9 那么我如何在不写很多行的情况下以更简单的形式做到这一点。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim i As Integer = 0
    While i < 9
    i = i + 1
    TextBox1.AppendText(i & "," & vbNewLine)
    TextBox1.Text = TextBox1.Text.Replace(vbCrLf, vbLf)
End Sub

Enumerable.Range(startNumber, Length) 给出数字,String.Join 将数字添加到以逗号分隔的字符串中。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    TextBox1.Text = String.Join(",", Enumerable.Range(1, 9))
End Sub