Sub fact(str As String)
While Len(str) > Form2.Width / 90
   Print Left(str, Form2.Width / 90 - 1)
   str = Mid(str, Form2.Width / 90 - 1)
Wend
End Sub

那您知道为什么窗体显示的不连续吗？ （不是从上一行的末尾接着显示的）谢谢啊

好的，谢谢你啊，我再捣鼓捣鼓

好的，谢谢你啊，解决大难题了