程序代码
Private Sub Command1_Click() Dim j As Integer Dim i(100) As String Text2 = "" For j = 1 To Len(Text1) i(j) = Mid(Text1, j, 1) Text2 = Text2 & i(j) & Chr(13) & Chr(10) Next j '去除文本框首尾空行 If Left(Text2, 2) = Chr(13) & Chr(10) Then Text2 = Right(Text2, Len(Text2) - 2) End If
If Right(Text2, 2) = Chr(13) & Chr(10) Then Text2 = Left(Text2, Len(Text2) - 2) End If End Sub
总结：
Chr(13) & Chr(10)表示回车换行
