在處理VB6.0文本框內容時，遇到文本的最后一行存在多余的換行符問題，原因在于“回車換行符”是由回車符（Chr(13)，常數為vbCr）和換行符（Chr(10)，常數為vbLf）兩個特殊字符組成的。如果你只是通過回車符（Chr(13)）來分割文本成數組，那么最后一行可能會多出一個換行符，這會使VB自動解析為回車換行符。因此，正確的做法是將代碼中的AA = Split(Text3, Chr(13)) 改為 AA = Split(Text3, vbCrLf) ，這樣可以避免多余換行符的問題。還有一種實現方法，如下：Private Sub Command1_Click()Dim AA() As StringAA = Split(Text3, vbCrLf)For i = 0 To UBound(AA)AA(i) = Text1 & AA(i) & Text2NextText3 = Join(AA, vbCrLf)End Sub這種方法通過將文本框內容按“回車換行符”（vbCrLf）分割，然后逐行處理，最后再用“回車換行符”重新組合，可以有效清除文本最后一行的多余換行符。通過以上兩種方法，可以有效地清除VB6.0文本框最后一行的多余換行符，保證文本內容的整潔和一致性。