程序代码

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)表示回车换行