用编写出
1
12
123
1234
12345

Dim a As Integer
        Dim b As String = "12345"
        Dim c As String = ""
        For a = 1 To 5
            c = c & b.Substring(0, a) & vbCrLf
        Next
        txt.Text = c