vb如何刪除文本框的最後壹個空行？

1，打開Visual Basic 6.0軟件，新建壹個標準exe項目，在表單設計界面添加壹個Text1和壹個Command控件；

2.設計文本1的多行屬性值為True

3.進入表單上的代碼編輯界面。代碼如下:

私人的？Sub？Command1_Click（）

如果？右（Text1。文本，？2)?=?vbCrLf嗎？然後呢？文本1。短信？=?左（Text1。文本，？len（text 1。正文）？-?2)

結束？潛水艇

私人的？Sub？表單加載（）

暗淡？str？作為什麽？線

str？=?""

str？=?str？& amp？"1"?& amp？vbCrLf

str？=?str？& amp？"2"?& amp？vbCrLf

str？=?str？& amp？vbCrLf

str？=?str？& amp？"3"?& amp？vbCrLf

str？=?str？& amp？"4"?& amp？vbCrLf

str？=?str？& amp？vbCrLf

str？=?str？& amp？"5"?& amp？vbCrLf

str？=?str？& amp？"6"?& amp？vbCrLf

str？=?str？& amp？vbCrLf

文本1。短信？=?潛艇用熱中子反應堆（submarine thermal reactor的縮寫）

結束？Sub4。單擊“運行”按鈕或按F5運行項目；

點擊按鈕前後，我發現最後壹個空行被刪除了: