Dim n As IntegerFor i = 1 To Len(Text1.Text)If Mid(Text1.Text, i, 1) = Chr(13) Then n = n + 1NextMsgBox "段落数为：" & n假设字符在text1中，插入（13）为段落标记，就是回车符以实验，可用
