FMUD1回答的就是正解，但是textbox3的属性要修改一下。AutoCompleteMode属性改为SuggestMultiline属性改为TrueScrollBars属性修改为Both再确认一下。Lines属性是否是String[] ArrayPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a() As String = TextBox3.Lines
If a.Length = 0 Then ReDim a(0)
a(a.Length - 1) = "Mouth " & T...
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a() As String = TextBox3.Lines'输出的文本框，textbox1是月份，textbox2是saving
If a.Lengt...
